Mercurial > emacs
comparison lisp/term.el @ 40468:4bfc983b38c3
(term-if-emacs19): Macro deleted.
Callers changed to use progn instead.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 30 Oct 2001 00:27:25 +0000 |
parents | 67b464da13ec |
children | 2f6568a7aee9 |
comparison
equal
deleted
inserted
replaced
40467:e9c66842eb07 | 40468:4bfc983b38c3 |
---|---|
656 (put 'term-input-filter-functions 'permanent-local t) | 656 (put 'term-input-filter-functions 'permanent-local t) |
657 (put 'term-scroll-to-bottom-on-output 'permanent-local t) | 657 (put 'term-scroll-to-bottom-on-output 'permanent-local t) |
658 (put 'term-scroll-show-maximum-output 'permanent-local t) | 658 (put 'term-scroll-show-maximum-output 'permanent-local t) |
659 (put 'term-ptyp 'permanent-local t) | 659 (put 'term-ptyp 'permanent-local t) |
660 | 660 |
661 ;; Do FORMS if running under Emacs 19 or later. | |
662 (defmacro term-if-emacs19 (&rest forms) | |
663 (if (string-match "^\\(19\\|[2-9][0-9]\\)" emacs-version) | |
664 (cons 'progn forms))) | |
665 ;; True if running under XEmacs (previously Lucid Emacs). | 661 ;; True if running under XEmacs (previously Lucid Emacs). |
666 (defmacro term-is-xemacs () '(string-match "Lucid" emacs-version)) | 662 (defmacro term-is-xemacs () '(string-match "Lucid" emacs-version)) |
667 ;; Do FORM if running under XEmacs (previously Lucid Emacs). | 663 ;; Do FORM if running under XEmacs (previously Lucid Emacs). |
668 (defmacro term-if-xemacs (&rest forms) | 664 (defmacro term-if-xemacs (&rest forms) |
669 (if (term-is-xemacs) (cons 'progn forms))) | 665 (if (term-is-xemacs) (cons 'progn forms))) |
1062 ; menu-bar-final-items)) | 1058 ; menu-bar-final-items)) |
1063 ) | 1059 ) |
1064 | 1060 |
1065 ;; Menu bars: | 1061 ;; Menu bars: |
1066 (term-ifnot-xemacs | 1062 (term-ifnot-xemacs |
1067 (term-if-emacs19 | 1063 (progn |
1068 | 1064 |
1069 ;; terminal: | 1065 ;; terminal: |
1070 (let (newmap) | 1066 (let (newmap) |
1071 (setq newmap (make-sparse-keymap "Terminal")) | 1067 (setq newmap (make-sparse-keymap "Terminal")) |
1072 (define-key newmap [terminal-pager-enable] | 1068 (define-key newmap [terminal-pager-enable] |
1298 (setq term-raw-escape-map | 1294 (setq term-raw-escape-map |
1299 (copy-keymap (lookup-key (current-global-map) "\C-x"))) | 1295 (copy-keymap (lookup-key (current-global-map) "\C-x"))) |
1300 | 1296 |
1301 ;;; Added nearly all the 'grey keys' -mm | 1297 ;;; Added nearly all the 'grey keys' -mm |
1302 | 1298 |
1303 (term-if-emacs19 | 1299 (progn |
1304 (term-if-xemacs | 1300 (term-if-xemacs |
1305 (define-key term-raw-map [button2] 'term-mouse-paste)) | 1301 (define-key term-raw-map [button2] 'term-mouse-paste)) |
1306 (term-ifnot-xemacs | 1302 (term-ifnot-xemacs |
1307 (define-key term-raw-map [mouse-2] 'term-mouse-paste) | 1303 (define-key term-raw-map [mouse-2] 'term-mouse-paste) |
1308 (define-key term-raw-map [menu-bar terminal] term-terminal-menu) | 1304 (define-key term-raw-map [menu-bar terminal] term-terminal-menu) |
3366 (define-key map "D" 'term-pager-disable) | 3362 (define-key map "D" 'term-pager-disable) |
3367 (define-key map "<" 'term-pager-bob) | 3363 (define-key map "<" 'term-pager-bob) |
3368 (define-key map ">" 'term-pager-eob) | 3364 (define-key map ">" 'term-pager-eob) |
3369 | 3365 |
3370 ;; Add menu bar. | 3366 ;; Add menu bar. |
3371 (term-if-emacs19 | 3367 (progn |
3372 (term-ifnot-xemacs | 3368 (term-ifnot-xemacs |
3373 (define-key map [menu-bar terminal] term-terminal-menu) | 3369 (define-key map [menu-bar terminal] term-terminal-menu) |
3374 (define-key map [menu-bar signals] term-signals-menu) | 3370 (define-key map [menu-bar signals] term-signals-menu) |
3375 (setq tmp (make-sparse-keymap "More pages?")) | 3371 (setq tmp (make-sparse-keymap "More pages?")) |
3376 (define-key tmp [help] '("Help" . term-pager-help)) | 3372 (define-key tmp [help] '("Help" . term-pager-help)) |