diff options
Diffstat (limited to 'lisp/cedet/ede/emacs.el')
| -rw-r--r-- | lisp/cedet/ede/emacs.el | 52 |
1 files changed, 32 insertions, 20 deletions
diff --git a/lisp/cedet/ede/emacs.el b/lisp/cedet/ede/emacs.el index e3afe30063c..e3a5789cf3b 100644 --- a/lisp/cedet/ede/emacs.el +++ b/lisp/cedet/ede/emacs.el @@ -99,6 +99,17 @@ emacs_beta_version=\\([0-9]+\\)") (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? @@ -125,28 +136,29 @@ Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." (or (ede-emacs-file-existing dir) ;; Doesn't already exist, so let's make one. - (let* ((vertuple (ede-emacs-version dir))) - (ede-emacs-project (car vertuple) - :name (car vertuple) - :version (cdr vertuple) - :directory (file-name-as-directory dir) - :file (expand-file-name "src/emacs.c" - dir))) - (ede-add-project-to-global-list this) - ) - ) + (let* ((vertuple (ede-emacs-version dir)) + (proj (ede-emacs-project + (car vertuple) + :name (car vertuple) + :version (cdr vertuple) + :directory (file-name-as-directory dir) + :file (expand-file-name "src/emacs.c" + dir)))) + (ede-add-project-to-global-list proj)))) ;;;###autoload -(add-to-list 'ede-project-class-files - (ede-project-autoload "emacs" - :name "EMACS ROOT" - :file 'ede/emacs - :proj-file "src/emacs.c" - :proj-root 'ede-emacs-project-root - :load-type 'ede-emacs-load - :class-sym 'ede-emacs-project - :new-p nil) - t) +(ede-add-project-autoload + (ede-project-autoload "emacs" + :name "EMACS ROOT" + :file 'ede/emacs + :proj-file "src/emacs.c" + :proj-root-dirmatch "emacs[^/]*" + :proj-root 'ede-emacs-project-root + :load-type 'ede-emacs-load + :class-sym 'ede-emacs-project + :new-p nil + :safe-p t) + 'unique) (defclass ede-emacs-target-c (ede-target) () |