(align-region): Fix call to `message'.

Check that (car rule) is a symbol.

2 files changed, 6 insertions, 2 deletions

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)))