diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-08-20 00:33:06 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-08-20 00:33:06 -0700 |
| commit | 9130a2d65e43df830bc987b519b46904bf111334 (patch) | |
| tree | def512901ec50c716bf414cb33f6579da58a0ca0 /lisp/align.el | |
| parent | fb89a65490016bfb747b80a6967dc619944ef945 (diff) | |
| download | emacs-9130a2d65e43df830bc987b519b46904bf111334.tar.gz | |
Minor align-regexp fix.
* lisp/align.el (align-regexp): Make group and spacing arguments use
the interactive defaults when non-interactive. (Bug#6698)
Diffstat (limited to 'lisp/align.el')
| -rw-r--r-- | lisp/align.el | 6 |
1 files changed, 4 insertions, 2 deletions
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)) |