Index: emacs/lisp/allout.el
diff -c emacs/lisp/allout.el:1.56 emacs/lisp/allout.el:1.57
*** emacs/lisp/allout.el:1.56 Sat Jul 16 19:15:06 2005
--- emacs/lisp/allout.el Mon Jul 18 09:03:05 2005
***************
*** 2218,2225 ****
(if rehide-place (goto-char rehide-place))
(allout-hide-current-entry-completely))
(allout-hide-current-entry))
! (error (concat
! "Change within concealed region prevented.")))))))
) ; if
) ; defun
;;;_ = allout-post-goto-bullet
--- 2218,2224 ----
(if rehide-place (goto-char rehide-place))
(allout-hide-current-entry-completely))
(allout-hide-current-entry))
! (error "Change within concealed region prevented."))))))
) ; if
) ; defun
;;;_ = allout-post-goto-bullet
***************
*** 3426,3434 ****
(interactive)
(if (not allout-file-xref-bullet)
(error
! "outline cross references disabled - no `allout-file-xref-bullet'")
(if (not (string= (allout-current-bullet) allout-file-xref-bullet))
! (error "current heading lacks cross-reference bullet `%s'"
allout-file-xref-bullet)
(let (file-name)
(save-excursion
--- 3425,3433 ----
(interactive)
(if (not allout-file-xref-bullet)
(error
! "Outline cross references disabled - no `allout-file-xref-bullet'")
(if (not (string= (allout-current-bullet) allout-file-xref-bullet))
! (error "Current heading lacks cross-reference bullet `%s'"
allout-file-xref-bullet)
(let (file-name)
(save-excursion
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
