Mercurial > emacs
comparison lisp/progmodes/antlr-mode.el @ 85511:f873840f9fea
* emulation/edt-mapper.el (function-key-map):
(edt-map-key): Make it a function instead of using fset. Inline
edt-gnu-map-key and edt-lucid-map-key. Use featurep 'xemacs.
(edt-gnu-map-key, edt-lucid-map-key): Remove.
(edt-x-emacs-p): Remove.
(edt-emacs-variant, edt-window-system, edt-xserver):
Use featurep 'xemacs.
* net/eudc.el: Use (featurep 'xemacs) instead of the string test.
Replace eudc-xemacs-p with its definition.
(eudc-xemacs-p, eudc-emacs-p, eudc-xemacs-mule-p)
(eudc-emacs-mule-p): Remove.
(eudc-install-menu, eudc-mode): Replace eudc-emacs-p and
eudc-xemacs-p with feature tests.
* net/eudc-bob.el (eudc-bob-generic-menu, eudc-bob-mail-keymap)
(eudc-bob-url-keymap, eudc-bob-sound-keymap)
(eudc-bob-generic-keymap, eudc-bob-popup-menu)
(eudc-bob-toggle-inline-display):
* net/eudc-hotlist.el (eudc-hotlist-emacs-menu): Replace
eudc-emacs-p and eudc-xemacs-p with feature tests.
* net/eudcb-ph.el (eudc-ph-open-session): Replace
eudc-xemacs-mule-p with its former definition.
* progmodes/octave-mod.el (octave-xemacs-p): Remove.
(octave-abbrev-start): Replace octave-xemacs-p with
(featurep 'xemacs).
* progmodes/vera-mode.el (vera-xemacs): Remove.
(vera-mode-syntax-table): Replace vera-xemacs with
(featurep 'xemacs).
* progmodes/vhdl-mode.el (vhdl-xemacs): Remove.
(vhdl-doc-mode, vhdl-doc-variable, vhdl-compile-init)
(vhdl-speedbar-initialize, vhdl-ps-print-init)
(vhdl-forward-comment, vhdl-mode-map-init, vhdl-show-messages)
(vhdl-emacs-22, vhdl-emacs-21): Replace vhdl-xemacs
with (featurep 'xemacs).
* progmodes/antlr-mode.el (cond-emacs-xemacs-macfn, defunx)
(save-buffer-state-x):
* obsolete/fast-lock.el (fast-lock-verbose):
* emulation/viper-init.el (viper-xemacs-p)
(viper-cond-compile-for-xemacs-or-emacs):
* emacs-lisp/checkdoc.el (checkdoc-minor-mode-map):
* ps-print.el (case-fold-search):
* ediff-hook.el (ediff-cond-compile-for-xemacs-or-emacs):
* calculator.el (calculator-help): Use featurep 'xemacs.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sun, 21 Oct 2007 17:22:04 +0000 |
parents | 419c5c316b51 |
children | 48d7747f9483 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
85510:e2eac01cf548 | 85511:f873840f9fea |
---|---|
97 (defun cond-emacs-xemacs-macfn (args &optional msg) | 97 (defun cond-emacs-xemacs-macfn (args &optional msg) |
98 (if (atom args) args | 98 (if (atom args) args |
99 (and (eq (car args) :@) (null msg) ; (:@ ...spliced...) | 99 (and (eq (car args) :@) (null msg) ; (:@ ...spliced...) |
100 (setq args (cdr args) | 100 (setq args (cdr args) |
101 msg "(:@ ....) must return exactly one element")) | 101 msg "(:@ ....) must return exactly one element")) |
102 (let ((ignore (if (string-match "XEmacs" emacs-version) :EMACS :XEMACS)) | 102 (let ((ignore (if (featurep 'xemacs) :EMACS :XEMACS)) |
103 (mode :BOTH) code) | 103 (mode :BOTH) code) |
104 (while (consp args) | 104 (while (consp args) |
105 (if (memq (car args) '(:EMACS :XEMACS :BOTH)) (setq mode (pop args))) | 105 (if (memq (car args) '(:EMACS :XEMACS :BOTH)) (setq mode (pop args))) |
106 (if (atom args) | 106 (if (atom args) |
107 (or args (error "Used selector %s without elements" mode)) | 107 (or args (error "Used selector %s without elements" mode)) |
113 (t (nconc (nreverse code) args)))))) | 113 (t (nconc (nreverse code) args)))))) |
114 ;; Emacs/XEmacs-compatibility `defun': remove interactive "_" for Emacs, use | 114 ;; Emacs/XEmacs-compatibility `defun': remove interactive "_" for Emacs, use |
115 ;; existing functions when they are `fboundp', provide shortcuts if they are | 115 ;; existing functions when they are `fboundp', provide shortcuts if they are |
116 ;; known to be defined in a specific Emacs branch (for short .elc) | 116 ;; known to be defined in a specific Emacs branch (for short .elc) |
117 (defmacro defunx (name arglist &rest definition) | 117 (defmacro defunx (name arglist &rest definition) |
118 (let ((xemacsp (string-match "XEmacs" emacs-version)) reuses) | 118 (let ((xemacsp (featurep 'xemacs)) reuses) |
119 (while (memq (car definition) | 119 (while (memq (car definition) |
120 '(:try :emacs-and-try :xemacs-and-try)) | 120 '(:try :emacs-and-try :xemacs-and-try)) |
121 (if (eq (pop definition) (if xemacsp :xemacs-and-try :emacs-and-try)) | 121 (if (eq (pop definition) (if xemacsp :xemacs-and-try :emacs-and-try)) |
122 (setq reuses (car definition) | 122 (setq reuses (car definition) |
123 definition nil) | 123 definition nil) |
150 ,@(cond-emacs-xemacs-macfn definition)) | 150 ,@(cond-emacs-xemacs-macfn definition)) |
151 'ignore)))))))))) | 151 'ignore)))))))))) |
152 (defmacro ignore-errors-x (&rest body) | 152 (defmacro ignore-errors-x (&rest body) |
153 (let ((specials '((scan-sexps . 4) (scan-lists . 5))) | 153 (let ((specials '((scan-sexps . 4) (scan-lists . 5))) |
154 spec nils) | 154 spec nils) |
155 (if (and (string-match "XEmacs" emacs-version) | 155 (if (and (featurep 'xemacs) |
156 (null (cdr body)) (consp (car body)) | 156 (null (cdr body)) (consp (car body)) |
157 (setq spec (assq (caar body) specials)) | 157 (setq spec (assq (caar body) specials)) |
158 (>= (setq nils (- (cdr spec) (length (car body)))) 0)) | 158 (>= (setq nils (- (cdr spec) (length (car body)))) 0)) |
159 `(,@(car body) ,@(make-list nils nil) t) | 159 `(,@(car body) ,@(make-list nils nil) t) |
160 `(ignore-errors ,@body))))) | 160 `(ignore-errors ,@body))))) |
164 (defmacro save-buffer-state-x (&rest body) ; similar to EMACS/lazy-lock.el | 164 (defmacro save-buffer-state-x (&rest body) ; similar to EMACS/lazy-lock.el |
165 (let ((modified (with-no-warnings (gensym "save-buffer-state-x-modified-")))) | 165 (let ((modified (with-no-warnings (gensym "save-buffer-state-x-modified-")))) |
166 `(let ((,modified (buffer-modified-p))) | 166 `(let ((,modified (buffer-modified-p))) |
167 (unwind-protect | 167 (unwind-protect |
168 (let ((buffer-undo-list t) (inhibit-read-only t) | 168 (let ((buffer-undo-list t) (inhibit-read-only t) |
169 ,@(unless (string-match "XEmacs" emacs-version) | 169 ,@(unless (featurep 'xemacs) |
170 '((inhibit-point-motion-hooks t) deactivate-mark)) | 170 '((inhibit-point-motion-hooks t) deactivate-mark)) |
171 before-change-functions after-change-functions | 171 before-change-functions after-change-functions |
172 buffer-file-name buffer-file-truename) | 172 buffer-file-name buffer-file-truename) |
173 ,@body) | 173 ,@body) |
174 (and (not ,modified) (buffer-modified-p) | 174 (and (not ,modified) (buffer-modified-p) |