/[emacs]/emacs/lisp/term/sun.el
ViewVC logotype

Diff of /emacs/lisp/term/sun.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by monnier, Tue Jul 17 18:37:47 2001 UTC revision 1.12.8.1 by miles, Fri Apr 4 06:20:37 2003 UTC
# Line 65  Line 65 
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))))
# Line 88  Line 88 
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    
# Line 169  Line 169 
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  ;;  ;;
# Line 248  Line 248 
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 ()

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.12.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26