Commits

Anonymous committed 96b556c

packages: Sync align.el with current GNU Emacs CVS

-------------------- ChangeLog entries follow: --------------------

xemacs-packages/edit-utils/ChangeLog addition:

2004-04-24 Adrian Aichner <adrian@xemacs.org>

* align.el: Sync align.el with current GNU Emacs CVS to fix bug in
align-region.
* align.el (align-rules-list): Typo fix.
* align.el (align-exclude-rules-list): Ditto.
* align.el (align-region): Bug fix.

Comments (0)

Files changed (2)

+2004-04-24  Adrian Aichner  <adrian@xemacs.org>
+
+	* align.el: Sync align.el with current GNU Emacs CVS to fix bug in
+	align-region.
+	* align.el (align-rules-list): Typo fix.
+	* align.el (align-exclude-rules-list): Ditto.
+	* align.el (align-region): Bug fix.
+
 2004-01-05  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 2.11 released.
 ;;; align.el --- align text to a specific column, by regexp
 
-;; Copyright (C) 1999, 2000 Free Sofware Foundation
+;; Copyright (C) 1999, 2000, 2002 Free Sofware Foundation
 
 ;; Author: John Wiegley <johnw@gnu.org>
 ;; Keywords: convenience languages lisp
 ;;   (defcustom my-align-rules-list
 ;;     '((my-rule
 ;;        (regexp . "Sample")))
-;;:type align-rules-list-type
-;;:group 'my-package)
+;;     :type align-rules-list-type
+;;     :group 'my-package)
 ;;
 ;;   (put 'my-align-rules-list 'risky-local-variable t)
 ;;
      (run-if   . ,(function
 		   (lambda ()
 		     (eq '- current-prefix-arg))))))
-  "*An list describing all of the available alignment rules.
+  "*A list describing all of the available alignment rules.
 The format is:
 
    ((TITLE
 	    containing alphabetic character, sometimes you may want
 	    the search to proceed case-insensitively (for languages
 	    that ignore case, such as pascal for example).  In that
-	    case, set `case-fold' to nil, and the regular expression
-	    search will ignore case.  If `regexp' is set to a
-	    function, that function must handle the job of ignoring
+	    case, set `case-fold' to a non-nil value, and the regular
+	    expression search will ignore case.  If `regexp' is set to
+	    a function, that function must handle the job of ignoring
 	    case by itself.
 
 `tab-stop'  If the `tab-stop' attribute is set, and non-nil, the
      (regexp . "^\\s-*#\\s-*\\(if\\w*\\|endif\\)\\(.*\\)$")
      (group  . 2)
      (modes  . align-c++-modes)))
-  "*An list describing text that should be excluded from alignment.
+  "*A list describing text that should be excluded from alignment.
 See the documentation for `align-rules-list' for more info."
   :type align-exclude-rules-list-type
   :group 'align)
 			;; 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%%..."
-				   rule-index rule-count
+				   (symbol-name symbol) rule-index rule-count
 				   (/ (* (- (point) real-beg) 100)
 				      (- end-mark real-beg)))
 				(message
 
 (run-hooks 'align-load-hook)
 
+;;; arch-tag: ef79cccf-1db8-4888-a8a1-d7ce2d1532f7
 ;;; align.el ends here