diff options
Diffstat (limited to 'lisp/term/sun.el')
| -rw-r--r-- | lisp/term/sun.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/term/sun.el b/lisp/term/sun.el index b79311cf68e..ed211ee8fc3 100644 --- a/lisp/term/sun.el +++ b/lisp/term/sun.el @@ -65,11 +65,11 @@ (let* ((command (car command-history)) (command-name (symbol-name (car command))) (search-arg (car (cdr command))) - (search-command + (search-command (and command-name (string-match "search" command-name))) ) (if (and search-command (stringp search-arg)) (setq grep-arg search-arg) - (setq search-command this-command + (setq search-command this-command grep-arg (read-string "REsearch: " grep-arg) this-command search-command) grep-arg)))) @@ -88,7 +88,7 @@ ;; handle sun's extra function keys ;; this version for those who run with standard .ttyswrc and no emacstool ;; -;; sunview picks up expose and open on the way UP, +;; sunview picks up expose and open on the way UP, ;; so we ignore them on the way down ;; @@ -169,11 +169,11 @@ ;; ;; {c} is [a-j] for LEFT, [a-i] for TOP, [a-o] for RIGHT. ;; A higher level insists on encoding {h,j,l,n}{r} (the arrow keys) -;; as ANSI escape sequences. Use the shell command +;; as ANSI escape sequences. Use the shell command ;; % setkeys noarrows ;; if you want these to come through for emacstool. ;; -;; If you are not using EmacsTool, +;; If you are not using EmacsTool, ;; you can also use this by creating a .ttyswrc file to do the conversion. ;; but it won't include the CONTROL, META, or SHIFT keys! ;; @@ -248,7 +248,7 @@ ;; ;; C-x C-@ is the mouse command prefix. -(autoload 'sun-mouse-handler "sun-mouse" +(autoload 'sun-mouse-handler "sun-mouse" "Sun Emacstool handler for mouse blips (not loaded)." t) (defun emacstool-init () |