Mercurial > emacs
changeset 45029:18577b549577
(align-region): Fix call to `message'.
Check that (car rule) is a symbol.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Apr 2002 17:14:06 +0000 |
| parents | 21b59c29309b |
| children | 5a8ec18cf242 |
| files | lisp/align.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))