mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Delete the Emacs version error check.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-06-14 12:05:23 +00:00
parent a15a76f766
commit b35732e1e2
2 changed files with 0 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/ediff-init.el
View File

@ -607,31 +607,6 @@ ediff-toggle-hilit. Use `setq-default' to set it.")
(cond ((memq op '(= > >=)) nil)
((memq op '(< <=)) t))))
;; warn if it is a wrong emacs
(if (or (ediff-check-version '< 19 29 'emacs)
(ediff-check-version '< 19 12 'xemacs))
(progn
(with-output-to-temp-buffer ediff-msg-buffer
(switch-to-buffer ediff-msg-buffer)
(insert
(format "
This version of Ediff requires
\t Emacs 19.29 and higher
\t OR
\t XEmacs 19.12 and higher
It is unlikely to work under Emacs version %s
that you are using...
Type any key to continue..." emacs-version))
(beep 1)
(beep 1)
(ediff-read-event))
(kill-buffer ediff-msg-buffer)))
;; A fix for NeXT Step
;; Should probably be eliminated in later versions.
(if (and (ediff-window-display-p) (eq (ediff-device-type) 'ns))

24
lisp/emulation/viper-util.el
View File

@ -219,30 +219,6 @@
(error "%S: Invalid op in vip-check-version" op))))
(cond ((memq op '(= > >=)) nil)
((memq op '(< <=)) t))))
;; warn if it is a wrong emacs
(if (or (vip-check-version '< 19 29 'emacs)
(vip-check-version '< 19 12 'xemacs))
(progn
(with-output-to-temp-buffer " *vip-info*"
(switch-to-buffer " *vip-info*")
(insert
(format "
This version of Viper requires
\t Emacs 19.29 and higher
\t OR
\t XEmacs 19.12 and higher
It is unlikely to work under Emacs version %s
that you are using...
Type any key to continue..." emacs-version))
(beep 1)
(beep 1)
(vip-read-event))
(kill-buffer " *vip-info*")))
(defun vip-get-visible-buffer-window (wind)