Mercurial > hg > xemacs-beta
diff lisp/term/sun.el @ 380:8626e4521993 r21-2-5
Import from CVS: tag r21-2-5
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:07:10 +0200 |
| parents | 376386a54a3c |
| children |
line wrap: on
line diff
--- a/lisp/term/sun.el Mon Aug 13 11:06:08 2007 +0200 +++ b/lisp/term/sun.el Mon Aug 13 11:07:10 2007 +0200 @@ -217,14 +217,14 @@ (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 + #'(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)