]> git.eshelyaron.com Git - emacs.git/commitdiff
Drop XEmacs and SXEmacs support from EDE
authorStefan Kangas <stefan@marxist.se>
Thu, 11 Feb 2021 20:08:17 +0000 (21:08 +0100)
committerStefan Kangas <stefan@marxist.se>
Thu, 11 Feb 2021 20:41:58 +0000 (21:41 +0100)
* lisp/cedet/ede/emacs.el (ede-emacs-version): Drop XEmacs and
SXEmacs support from EDE.

lisp/cedet/ede/emacs.el

index 332f09bc5b0d4b932eed0a8ca610980b03a70f87..00496ace16fef8d8a3f0c8d108749ec0f2d1a80b 100644 (file)
@@ -54,31 +54,6 @@ Return a tuple of ( EMACSNAME . VERSION )."
       (erase-buffer)
       (setq default-directory (file-name-as-directory dir))
       (cond
-       ;; Maybe XEmacs?
-       ((file-exists-p "version.sh")
-       (setq emacs "XEmacs")
-       (insert-file-contents "version.sh")
-       (goto-char (point-min))
-       (re-search-forward "emacs_major_version=\\([0-9]+\\)
-emacs_minor_version=\\([0-9]+\\)
-emacs_beta_version=\\([0-9]+\\)")
-       (setq ver (concat (match-string 1) "."
-                         (match-string 2) "."
-                         (match-string 3)))
-       )
-       ((file-exists-p "sxemacs.pc.in")
-       (setq emacs "SXEmacs")
-       (insert-file-contents "sxemacs_version.m4")
-       (goto-char (point-min))
-       (re-search-forward "m4_define(\\[SXEM4CS_MAJOR_VERSION\\], \\[\\([0-9]+\\)\\])
-m4_define(\\[SXEM4CS_MINOR_VERSION\\], \\[\\([0-9]+\\)\\])
-m4_define(\\[SXEM4CS_BETA_VERSION\\], \\[\\([0-9]+\\)\\])")
-       (setq ver (concat (match-string 1) "."
-                         (match-string 2) "."
-                         (match-string 3)))
-       )
-       ;; Insert other Emacs here...
-
        ;; Vaguely recent version of GNU Emacs?
        ((or (file-exists-p configure_ac)
            (file-exists-p (setq configure_ac "configure.in")))