diff options
| author | Karl Heuer | 1997-10-02 03:03:32 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-10-02 03:03:32 +0000 |
| commit | 9f8ac7f9ea047a33af400e03a800ed146dcc896e (patch) | |
| tree | 25f88aaee7dc23f4173b320cf6ce03b5c145e498 | |
| parent | 35378a097bac5d5f5e9b6fc5049e1d3bddb4c815 (diff) | |
| download | emacs-9f8ac7f9ea047a33af400e03a800ed146dcc896e.tar.gz emacs-9f8ac7f9ea047a33af400e03a800ed146dcc896e.zip | |
(comint-regexp-arg): No need to bind
minibuffer-history-sexp-flag any more.
| -rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 381938b568c..39a084f9cf3 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -796,8 +796,7 @@ See also `comint-read-input-ring'." | |||
| 796 | 796 | ||
| 797 | (defun comint-regexp-arg (prompt) | 797 | (defun comint-regexp-arg (prompt) |
| 798 | ;; Return list of regexp and prefix arg using PROMPT. | 798 | ;; Return list of regexp and prefix arg using PROMPT. |
| 799 | (let* ((minibuffer-history-sexp-flag nil) | 799 | (let* (;; Don't clobber this. |
| 800 | ;; Don't clobber this. | ||
| 801 | (last-command last-command) | 800 | (last-command last-command) |
| 802 | (regexp (read-from-minibuffer prompt nil nil nil | 801 | (regexp (read-from-minibuffer prompt nil nil nil |
| 803 | 'minibuffer-history-search-history))) | 802 | 'minibuffer-history-search-history))) |