diff options
| author | Richard M. Stallman | 1992-10-10 07:33:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-10 07:33:59 +0000 |
| commit | ae7a6b887ebbeedb2bab330727fa2f73ae12714b (patch) | |
| tree | 444c640b600adb1cb2914778db4431555b44d2af | |
| parent | 26dc36e6f14648073298efa772dc34b5c7015b00 (diff) | |
| download | emacs-ae7a6b887ebbeedb2bab330727fa2f73ae12714b.tar.gz emacs-ae7a6b887ebbeedb2bab330727fa2f73ae12714b.zip | |
(comint-last-input-match): defvar moved up.
| -rw-r--r-- | lisp/comint.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index a3236d904d5..bf7aea518d8 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -189,6 +189,10 @@ executed once when the buffer is created.") | |||
| 189 | "True if communications via pty; false if by pipe. Buffer local. | 189 | "True if communications via pty; false if by pipe. Buffer local. |
| 190 | This is to work around a bug in emacs process signalling.") | 190 | This is to work around a bug in emacs process signalling.") |
| 191 | 191 | ||
| 192 | (defvar comint-last-input-match "" | ||
| 193 | "Last string searched for by comint input history search, for defaulting. | ||
| 194 | Buffer local variable.") | ||
| 195 | |||
| 192 | (defvar comint-input-ring nil) | 196 | (defvar comint-input-ring nil) |
| 193 | (defvar comint-last-input-start) | 197 | (defvar comint-last-input-start) |
| 194 | (defvar comint-last-input-end) | 198 | (defvar comint-last-input-end) |
| @@ -427,10 +431,6 @@ Answer is guaranteed to be non-negative, and less than m." | |||
| 427 | (interactive "*p") | 431 | (interactive "*p") |
| 428 | (comint-previous-input (- arg))) | 432 | (comint-previous-input (- arg))) |
| 429 | 433 | ||
| 430 | (defvar comint-last-input-match "" | ||
| 431 | "Last string searched for by comint input history search, for defaulting. | ||
| 432 | Buffer local variable.") | ||
| 433 | |||
| 434 | (defun comint-previous-input-matching (str) | 434 | (defun comint-previous-input-matching (str) |
| 435 | "Searches backwards through input history for substring match." | 435 | "Searches backwards through input history for substring match." |
| 436 | (interactive (let* ((last-command last-command) ; preserve around r-f-m | 436 | (interactive (let* ((last-command last-command) ; preserve around r-f-m |