(cond (running-xemacs
;; for XEmacs
(require 'emu-xemacs)
- (cond ((featurep 'mule)
- ;; for XEmacs with MULE
- (require 'emu-20)
- (require 'emu-x20)
- )
- (t
- ;; for XEmacs without MULE
- (require 'emu-latin1)
- ))
- )
+ (if (featurep 'mule)
+ ;; for XEmacs with MULE
+ (require 'emu-x20)
+ ;; for XEmacs without MULE
+ (require 'emu-latin1)
+ ))
(running-mule-merged-emacs
;; for Emacs 20.1 and 20.2
(require 'emu-e20)
;;; @ Emacs 20.1 emulation
;;;
+;; This macro was imported Emacs 20.2.
+(defmacro-maybe when (cond &rest body)
+ "(when COND BODY...): if COND yields non-nil, do BODY, else return nil."
+ (list 'if cond (cons 'progn body)))
+
(defmacro-maybe save-current-buffer (&rest body)
"Save the current buffer; execute BODY; restore the current buffer.
Executes BODY just like `progn'."