diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-30 17:14:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-30 17:14:06 +0000 |
| commit | 2e5399a62dd36f83acd87fcbd2c506891ca6c1e9 (patch) | |
| tree | af98507280a5f323d45fd2cfdc997d8adb0c75d1 /lisp/align.el | |
| parent | b6b359deb808eb740a8a0526157bf888b9c11916 (diff) | |
| download | emacs-2e5399a62dd36f83acd87fcbd2c506891ca6c1e9.tar.gz | |
(align-region): Fix call to `message'.
Check that (car rule) is a symbol.
Diffstat (limited to 'lisp/align.el')
| -rw-r--r-- | lisp/align.el | 5 |
1 files changed, 3 insertions, 2 deletions
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))) |