emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 0bcec1e 2/3: Drop XEmacs and SXEmacs support from EDE


From: Stefan Kangas
Subject: master 0bcec1e 2/3: Drop XEmacs and SXEmacs support from EDE
Date: Thu, 11 Feb 2021 15:48:55 -0500 (EST)

branch: master
commit 0bcec1e4ae0028d6f0f4c04ab2717f6fdadb79c1
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Drop XEmacs and SXEmacs support from EDE
    
    * lisp/cedet/ede/emacs.el (ede-emacs-version): Drop XEmacs and
    SXEmacs support from EDE.
---
 lisp/cedet/ede/emacs.el | 25 -------------------------
 1 file changed, 25 deletions(-)

diff --git a/lisp/cedet/ede/emacs.el b/lisp/cedet/ede/emacs.el
index 332f09b..00496ac 100644
--- a/lisp/cedet/ede/emacs.el
+++ b/lisp/cedet/ede/emacs.el
@@ -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")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]