# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020186846 0
# Node ID 18577b549577bea109cd315db7fd47dfa1fc619e
# Parent  21b59c29309b901d3643461aecbd20b1d762233c
(align-region): Fix call to `message'.
Check that (car rule) is a symbol.

diff -r 21b59c29309b -r 18577b549577 lisp/align.el
--- a/lisp/align.el	Tue Apr 30 17:11:38 2002 +0000
+++ b/lisp/align.el	Tue Apr 30 17:14:06 2002 +0000
@@ -1413,10 +1413,11 @@
 			;; 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)))