mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(term-if-emacs19): Recognize version 20.

Browse source
This commit is contained in:
Karl Heuer 1997-09-24 16:38:24 +00:00
parent a137e62c85
commit 3f172d5d65
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/term.el
View file

@ -634,9 +634,10 @@ 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.
;; Do FORMS if running under Emacs 19 or later.
(defmacro term-if-emacs19 (&rest forms)
(if (string-match "^19" emacs-version) (cons 'progn 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).