align.el bugfix patch

[Karl Chen]

A bug in align.el's `align-region' causes it to die on large regions. The
call to `message' is missing an argument, plus it doesn't correctly
determine if a variable has a symbol name or not.

Diff fix to version 21.1 below.

--
Karl


*** .backup/align.el.~1~ Mon Oct 22 21:19:57 2001
--- align.el Mon Apr 29 19:53:50 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%%..."
         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)
         rule-index rule-count
         (/ (* (- (point) real-beg) 100)
            (- end-mark real-beg)))