Minor align-regexp fix.

* lisp/align.el (align-regexp): Make group and spacing arguments use
the interactive defaults when non-interactive.  (Bug#6698)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c104d38cdfd235d12fa6768338019d1bb4c80f25..0b9731ae904696cf9d5436e787b2e78a1c600590 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-08-20  Glenn Morris  <rgm@gnu.org>
 
+       * align.el (align-regexp): Make group and spacing arguments
+       use the interactive defaults when non-interactive.  (Bug#6698)
+
        * mail/rmail.el (rmail-forward): Replace mail-text-start with its
        expansion, so as not to need sendmail.
        (mail-text-start): Remove declaration.

diff --git a/lisp/align.el b/lisp/align.el
index 9d81132702134330e9ac10a65b49789dc1900a64..0812d362875b897b8bd2a86d09344818d1533278 100644 (file)
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1,7 +1,7 @@
 ;;; align.el --- align text to a specific column, by regexp
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009, 2010  Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 ;; Maintainer: FSF
@@ -944,6 +944,8 @@ region, call `align-regexp' and type in that regular expression."
       (list (concat "\\(\\s-*\\)"
                    (read-string "Align regexp: "))
            1 align-default-spacing nil))))
+  (or group (setq group 1))
+  (or spacing (setq spacing align-default-spacing))
   (let ((rule
         (list (list nil (cons 'regexp regexp)
                     (cons 'group (abs group))