[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/sun.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/sun.el |
Date: |
Tue, 04 Feb 2003 08:28:08 -0500 |
Index: emacs/lisp/term/sun.el
diff -c emacs/lisp/term/sun.el:1.12 emacs/lisp/term/sun.el:1.13
*** emacs/lisp/term/sun.el:1.12 Tue Jul 17 14:37:47 2001
--- emacs/lisp/term/sun.el Tue Feb 4 08:28:06 2003
***************
*** 65,75 ****
(let* ((command (car command-history))
(command-name (symbol-name (car command)))
(search-arg (car (cdr 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
grep-arg (read-string "REsearch: " grep-arg)
this-command search-command)
grep-arg))))
--- 65,75 ----
(let* ((command (car command-history))
(command-name (symbol-name (car command)))
(search-arg (car (cdr 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
grep-arg (read-string "REsearch: " grep-arg)
this-command search-command)
grep-arg))))
***************
*** 88,94 ****
;; 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,
;; so we ignore them on the way down
;;
--- 88,94 ----
;; 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,
;; so we ignore them on the way down
;;
***************
*** 169,179 ****
;;
;; {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
;; % setkeys noarrows
;; if you want these to come through for 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!
;;
--- 169,179 ----
;;
;; {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
;; % setkeys noarrows
;; if you want these to come through for 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,254 ****
;;
;; C-x C-@ is the mouse command prefix.
! (autoload 'sun-mouse-handler "sun-mouse"
"Sun Emacstool handler for mouse blips (not loaded)." t)
(defun emacstool-init ()
--- 248,254 ----
;;
;; C-x C-@ is the mouse command prefix.
! (autoload 'sun-mouse-handler "sun-mouse"
"Sun Emacstool handler for mouse blips (not loaded)." t)
(defun emacstool-init ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/term/sun.el,
Juanma Barranquero <=