diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-10-30 00:27:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-10-30 00:27:25 +0000 |
| commit | df4eaaf048ad9ff892174aa1cddfddb8a2c6902b (patch) | |
| tree | f705f84233bc6a1832f666e62a939e82f7c96631 /lisp/term.el | |
| parent | cacf2193641f71840a49f940be34449c74d51918 (diff) | |
| download | emacs-df4eaaf048ad9ff892174aa1cddfddb8a2c6902b.tar.gz | |
(term-if-emacs19): Macro deleted.
Callers changed to use progn instead.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/term.el b/lisp/term.el index f4591e16f4e..7410edc5652 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -658,10 +658,6 @@ Buffer local variable.") (put 'term-scroll-show-maximum-output 'permanent-local t) (put 'term-ptyp 'permanent-local t) -;; Do FORMS if running under Emacs 19 or later. -(defmacro term-if-emacs19 (&rest forms) - (if (string-match "^\\(19\\|[2-9][0-9]\\)" emacs-version) - (cons 'progn forms))) ;; True if running under XEmacs (previously Lucid Emacs). (defmacro term-is-xemacs () '(string-match "Lucid" emacs-version)) ;; Do FORM if running under XEmacs (previously Lucid Emacs). @@ -1064,7 +1060,7 @@ Entry to this mode runs the hooks on term-mode-hook" ;; Menu bars: (term-ifnot-xemacs - (term-if-emacs19 + (progn ;; terminal: (let (newmap) @@ -1300,7 +1296,7 @@ intervention from Emacs, except for the escape character (usually C-c)." ;;; Added nearly all the 'grey keys' -mm - (term-if-emacs19 + (progn (term-if-xemacs (define-key term-raw-map [button2] 'term-mouse-paste)) (term-ifnot-xemacs @@ -3368,7 +3364,7 @@ The top-most line is line 0." (define-key map ">" 'term-pager-eob) ;; Add menu bar. - (term-if-emacs19 + (progn (term-ifnot-xemacs (define-key map [menu-bar terminal] term-terminal-menu) (define-key map [menu-bar signals] term-signals-menu) |