diff options
| author | Dima Kogan <dima@secretsauce.net> | 2016-02-28 15:15:18 +1030 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-28 15:15:18 +1030 |
| commit | f4b057c67f74e0a7a2c4ff03c19c8236989465d0 (patch) | |
| tree | 167a41e32fc1dde6d958cc8e1d069cb3066e389e | |
| parent | e00974a7d1981d716d38ecf45b689dd30a381c65 (diff) | |
| download | emacs-f4b057c67f74e0a7a2c4ff03c19c8236989465d0.tar.gz | |
Use a separate history variable for align-regexp
* lisp/align.el (align-regexp-history): New variable (bug#16891).
(align-regexp): Use it.
| -rw-r--r-- | etc/NEWS | 5 | ||||
| -rw-r--r-- | lisp/align.el | 5 |
2 files changed, 9 insertions, 1 deletions
@@ -31,6 +31,11 @@ otherwise leave it unmarked. * Changes in Emacs 25.2 +--- +** `align-regexp' has a separate history for its interactive argument +`align-regexp' no longer shares its history with all other +history-less functions that use `read-string' + +++ ** The networking code has been reworked so that it's more asynchronous than it was (when specifying :nowait t in diff --git a/lisp/align.el b/lisp/align.el index 7e439f3e073..c3389dc9860 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -802,6 +802,9 @@ See the variable `align-exclude-rules-list' for more details.") (defvar align-highlight-overlays nil "The current overlays highlighting the text matched by a rule.") +(defvar align-regexp-history nil + "Input history for the full user-entered regex in `align-regexp'") + ;; Sample extension rule set, for vhdl-mode. This should properly be ;; in vhdl-mode.el itself. @@ -946,7 +949,7 @@ construct a rule to pass to `align-region', which does the real work." (list (region-beginning) (region-end)) (if current-prefix-arg (list (read-string "Complex align using regexp: " - "\\(\\s-*\\)") + "\\(\\s-*\\)" 'align-regexp-history) (string-to-number (read-string "Parenthesis group to modify (justify if negative): " "1")) |