Mercurial > hg > xemacs-beta

comparison lisp/term/sun.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
215 215
216 (define-key suntool-map "jL" 'yank) ; DELETE 216 (define-key suntool-map "jL" 'yank) ; DELETE
217 (define-key suntool-map "jl" 'kill-region-and-unmark) ; Delete 217 (define-key suntool-map "jl" 'kill-region-and-unmark) ; Delete
218 (define-key suntool-map "j\M-l" 'exchange-point-and-mark); M-Delete 218 (define-key suntool-map "j\M-l" 'exchange-point-and-mark); M-Delete
219 (define-key suntool-map "j," 219 (define-key suntool-map "j,"
220 '(lambda () (interactive) (pop-mark 1))) ; C-Delete 220 #'(lambda () (interactive) (pop-mark 1))) ; C-Delete
221 221
222 (define-key suntool-map "fT" 'shrink-window-horizontally) ; T6 222 (define-key suntool-map "fT" 'shrink-window-horizontally) ; T6
223 (define-key suntool-map "gT" 'enlarge-window-horizontally) ; T7 223 (define-key suntool-map "gT" 'enlarge-window-horizontally) ; T7
224 (define-key suntool-map "ft" 'shrink-window) ; t6 224 (define-key suntool-map "ft" 'shrink-window) ; t6
225 (define-key suntool-map "gt" 'enlarge-window) ; t7 225 (define-key suntool-map "gt" 'enlarge-window) ; t7
226 (define-key suntool-map "cT" '(lambda(n) (interactive "p") (scroll-down n))) 226 (define-key suntool-map "cT" #'(lambda(n) (interactive "p") (scroll-down n)))
227 (define-key suntool-map "dT" '(lambda(n) (interactive "p") (scroll-up n))) 227 (define-key suntool-map "dT" #'(lambda(n) (interactive "p") (scroll-up n)))
228 (define-key suntool-map "ct" 'scroll-down-in-place) ; t3 228 (define-key suntool-map "ct" 'scroll-down-in-place) ; t3
229 (define-key suntool-map "dt" 'scroll-up-in-place) ; t4 229 (define-key suntool-map "dt" 'scroll-up-in-place) ; t4
230 (define-key ctl-x-map "*" suntool-map) 230 (define-key ctl-x-map "*" suntool-map)
231 231
232 ;;; Since .emacs gets loaded before this file, a hook is supplied 232 ;;; Since .emacs gets loaded before this file, a hook is supplied