From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Apr 2002 17:14:14 +0000 (+0000)
Subject: (align-region): Fix call to `message'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~57361
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a7938b0e01c4dac900103a39c950644c1642e4bc;p=emacs.git

(align-region): Fix call to `message'.
Check that (car rule) is a symbol.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66ca3262ebd..d68937780a6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-04-30  Richard M. Stallman  <rms@gnu.org>
 
+	* align.el (align-region): Fix call to `message'.
+	Check that (car rule) is a symbol.
+
 	* autoinsert.el (auto-insert-directory): Doc fix.
 
 	* facemenu.el (describe-text-at and stuff): Moved to descr-text.el.
diff --git a/lisp/align.el b/lisp/align.el
index 388c090a204..5f10d555113 100644
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1413,10 +1413,11 @@ aligner would have dealt with are."
 			;; are, if it's a very large region being
 			;; aligned
 			(if report
-			    (let ((name (symbol-name (car rule))))
-			      (if name
+			    (let ((symbol (car rule)))
+			      (if (and symbol (symbolp symbol))
 				  (message
 				   "Aligning `%s' (rule %d of %d) %d%%..."
+				   (symbol-name symbol)
 				   name rule-index rule-count
 				   (/ (* (- (point) real-beg) 100)
 				      (- end-mark real-beg)))