[Emacs-diffs] Changes to emacs/lisp/term/sun.el

[Juanma Barranquero]

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 ()