From 635ca796013e17912babc5d74257aaee7d335c1a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 18 Jul 2005 09:03:05 +0000 Subject: [PATCH] (allout-resolve-xref): Fix typos in error strings. (allout-before-change-protect): Remove unneeded `concat'. --- lisp/allout.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/allout.el b/lisp/allout.el index 2c02397bd1a..7fd4a4088d7 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -2218,8 +2218,7 @@ are exempt from this restriction." (if rehide-place (goto-char rehide-place)) (allout-hide-current-entry-completely)) (allout-hide-current-entry)) - (error (concat - "Change within concealed region prevented."))))))) + (error "Change within concealed region prevented.")))))) ) ; if ) ; defun ;;;_ = allout-post-goto-bullet @@ -3426,9 +3425,9 @@ by pops to non-distinctive yanks. Bug..." (interactive) (if (not allout-file-xref-bullet) (error - "outline cross references disabled - no `allout-file-xref-bullet'") + "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'" + (error "Current heading lacks cross-reference bullet `%s'" allout-file-xref-bullet) (let (file-name) (save-excursion -- 2.39.2