Mercurial > emacs
comparison lisp/term.el @ 20021:42354e3ea997
(term-regexp-arg): No need to bind
minibuffer-history-sexp-flag any more.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 02 Oct 1997 03:03:50 +0000 |
| parents | 81065d2158f9 |
| children | 7ebe9039c4f9 |
comparison
equal
deleted
inserted
replaced
| 20020:c03bbe136bd0 | 20021:42354e3ea997 |
|---|---|
| 1588 (setq unread-command-events (list ch))))))) | 1588 (setq unread-command-events (list ch))))))) |
| 1589 | 1589 |
| 1590 | 1590 |
| 1591 (defun term-regexp-arg (prompt) | 1591 (defun term-regexp-arg (prompt) |
| 1592 ;; Return list of regexp and prefix arg using PROMPT. | 1592 ;; Return list of regexp and prefix arg using PROMPT. |
| 1593 (let* ((minibuffer-history-sexp-flag nil) | 1593 (let* (;; Don't clobber this. |
| 1594 ;; Don't clobber this. | |
| 1595 (last-command last-command) | 1594 (last-command last-command) |
| 1596 (regexp (read-from-minibuffer prompt nil nil nil | 1595 (regexp (read-from-minibuffer prompt nil nil nil |
| 1597 'minibuffer-history-search-history))) | 1596 'minibuffer-history-search-history))) |
| 1598 (list (if (string-equal regexp "") | 1597 (list (if (string-equal regexp "") |
| 1599 (setcar minibuffer-history-search-history | 1598 (setcar minibuffer-history-search-history |