X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fterm%2Fsun.el;h=5cb92efd7e47413e7e10298fcd80cd1c48ca8589;hb=414b512c0774e67ba8e160b605447d862d3be166;hp=c5ee5c945098397455ea8e9310d6016a755ac5c6;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/term/sun.el b/lisp/term/sun.el
index c5ee5c9..5cb92ef 100644
--- a/lisp/term/sun.el
+++ b/lisp/term/sun.el
@@ -43,10 +43,10 @@
   (next-line n)
   (scroll-up n))
 
-(defun kill-region-and-unmark (beg end)
+(defun kill-region-and-unmark (start end)
   "Like kill-region, but pops the mark [which equals point, anyway.]"
   (interactive "r")
-  (kill-region beg end)
+  (kill-region start end)
   (setq this-command 'kill-region-and-unmark)
   (set-mark-command t))
 
@@ -68,11 +68,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))))
@@ -91,7 +91,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!
 ;;;
@@ -213,18 +213,18 @@
 (define-key suntool-map "i\M-l" 'research-backward)	; M-Find
 (define-key suntool-map "i\M-," 're-search-backward)	; C-M-Find
 
-(define-key suntool-map "jL" 'yank)			; DELETE        
+(define-key suntool-map "jL" 'yank)			; DELETE
 (define-key suntool-map "jl" 'kill-region-and-unmark)	; Delete
 (define-key suntool-map "j\M-l" 'exchange-point-and-mark); M-Delete
-(define-key suntool-map "j," 
-  '(lambda () (interactive) (pop-mark 1)))		; C-Delete
+(define-key suntool-map "j,"
+  #'(lambda () (interactive) (pop-mark 1)))		; C-Delete
 
 (define-key suntool-map "fT" 'shrink-window-horizontally)	; T6
 (define-key suntool-map "gT" 'enlarge-window-horizontally)	; T7
 (define-key suntool-map "ft" 'shrink-window)			; t6
 (define-key suntool-map "gt" 'enlarge-window)			; t7
-(define-key suntool-map "cT" '(lambda(n) (interactive "p") (scroll-down n)))
-(define-key suntool-map "dT" '(lambda(n) (interactive "p") (scroll-up n)))
+(define-key suntool-map "cT" #'(lambda(n) (interactive "p") (scroll-down n)))
+(define-key suntool-map "dT" #'(lambda(n) (interactive "p") (scroll-up n)))
 (define-key suntool-map "ct" 'scroll-down-in-place)		; t3
 (define-key suntool-map "dt" 'scroll-up-in-place)		; t4
 (define-key ctl-x-map "*" suntool-map)
@@ -249,7 +249,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 ()