65 |
(let* ((command (car command-history)) |
(let* ((command (car command-history)) |
66 |
(command-name (symbol-name (car command))) |
(command-name (symbol-name (car command))) |
67 |
(search-arg (car (cdr command))) |
(search-arg (car (cdr command))) |
68 |
(search-command |
(search-command |
69 |
(and command-name (string-match "search" command-name))) |
(and command-name (string-match "search" command-name))) |
70 |
) |
) |
71 |
(if (and search-command (stringp search-arg)) (setq grep-arg search-arg) |
(if (and search-command (stringp search-arg)) (setq grep-arg search-arg) |
72 |
(setq search-command this-command |
(setq search-command this-command |
73 |
grep-arg (read-string "REsearch: " grep-arg) |
grep-arg (read-string "REsearch: " grep-arg) |
74 |
this-command search-command) |
this-command search-command) |
75 |
grep-arg)))) |
grep-arg)))) |
88 |
;; handle sun's extra function keys |
;; handle sun's extra function keys |
89 |
;; this version for those who run with standard .ttyswrc and no emacstool |
;; this version for those who run with standard .ttyswrc and no emacstool |
90 |
;; |
;; |
91 |
;; sunview picks up expose and open on the way UP, |
;; sunview picks up expose and open on the way UP, |
92 |
;; so we ignore them on the way down |
;; so we ignore them on the way down |
93 |
;; |
;; |
94 |
|
|
169 |
;; |
;; |
170 |
;; {c} is [a-j] for LEFT, [a-i] for TOP, [a-o] for RIGHT. |
;; {c} is [a-j] for LEFT, [a-i] for TOP, [a-o] for RIGHT. |
171 |
;; A higher level insists on encoding {h,j,l,n}{r} (the arrow keys) |
;; A higher level insists on encoding {h,j,l,n}{r} (the arrow keys) |
172 |
;; as ANSI escape sequences. Use the shell command |
;; as ANSI escape sequences. Use the shell command |
173 |
;; % setkeys noarrows |
;; % setkeys noarrows |
174 |
;; if you want these to come through for emacstool. |
;; if you want these to come through for emacstool. |
175 |
;; |
;; |
176 |
;; If you are not using EmacsTool, |
;; If you are not using EmacsTool, |
177 |
;; you can also use this by creating a .ttyswrc file to do the conversion. |
;; you can also use this by creating a .ttyswrc file to do the conversion. |
178 |
;; but it won't include the CONTROL, META, or SHIFT keys! |
;; but it won't include the CONTROL, META, or SHIFT keys! |
179 |
;; |
;; |
248 |
;; |
;; |
249 |
;; C-x C-@ is the mouse command prefix. |
;; C-x C-@ is the mouse command prefix. |
250 |
|
|
251 |
(autoload 'sun-mouse-handler "sun-mouse" |
(autoload 'sun-mouse-handler "sun-mouse" |
252 |
"Sun Emacstool handler for mouse blips (not loaded)." t) |
"Sun Emacstool handler for mouse blips (not loaded)." t) |
253 |
|
|
254 |
(defun emacstool-init () |
(defun emacstool-init () |