From a7938b0e01c4dac900103a39c950644c1642e4bc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Apr 2002 17:14:14 +0000 Subject: [PATCH] (align-region): Fix call to `message'. Check that (car rule) is a symbol. --- lisp/ChangeLog | 3 +++ lisp/align.el | 5 +++-- 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 + * 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))) -- 2.39.5