Minor align-regexp fix.

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

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c104d38cdfd..0b9731ae904 100644
--- 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 9d811327021..0812d362875 100644
--- 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))