aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1992-10-10 07:33:59 +0000
committerRichard M. Stallman1992-10-10 07:33:59 +0000
commitae7a6b887ebbeedb2bab330727fa2f73ae12714b (patch)
tree444c640b600adb1cb2914778db4431555b44d2af
parent26dc36e6f14648073298efa772dc34b5c7015b00 (diff)
downloademacs-ae7a6b887ebbeedb2bab330727fa2f73ae12714b.tar.gz
emacs-ae7a6b887ebbeedb2bab330727fa2f73ae12714b.zip
(comint-last-input-match): defvar moved up.
-rw-r--r--lisp/comint.el8
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.
190This is to work around a bug in emacs process signalling.") 190This 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.
194Buffer 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.
432Buffer 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