[Emacs-diffs] Changes to emacs/lisp/align.el

[Richard M. Stallman]

Index: emacs/lisp/align.el
diff -c emacs/lisp/align.el:1.8 emacs/lisp/align.el:1.9
*** emacs/lisp/align.el:1.8     Wed Feb  6 02:07:54 2002
--- emacs/lisp/align.el Tue Apr 30 13:14:06 2002
***************
*** 1413,1422 ****
                        ;; are, if it's a very large region being
                        ;; aligned
                        (if report
!                           (let ((name (symbol-name (car rule))))
!                             (if name
                                  (message
                                   "Aligning `%s' (rule %d of %d) %d%%..."
                                   name rule-index rule-count
                                   (/ (* (- (point) real-beg) 100)
                                      (- end-mark real-beg)))
--- 1413,1423 ----
                        ;; are, if it's a very large region being
                        ;; aligned
                        (if report
!                           (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)))