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

Check that (car rule) is a symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66ca3262ebd3c2108a21b771570783787bf249f5..d68937780a667ba460d4dc98231b0caa2a843cd0 100644 (file)
--- 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 388c090a2040c8a3d5fe8f5dd90ad4f548b8f398..5f10d555113e8125a44f7b7e4a1b872b95d1ca52 100644 (file)
--- 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)))