# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1121677385 0
# Node ID e55dd693f95b7ede200d96827878beda9bccd7b5
# Parent  6cc1090d14f2f4580c5e26777934a82cf79f8bd1
(allout-resolve-xref): Fix typos in error strings.
(allout-before-change-protect): Remove unneeded `concat'.

diff -r 6cc1090d14f2 -r e55dd693f95b lisp/allout.el
--- a/lisp/allout.el	Mon Jul 18 05:42:23 2005 +0000
+++ b/lisp/allout.el	Mon Jul 18 09:03:05 2005 +0000
@@ -2218,8 +2218,7 @@
 		      (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 @@
   (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