- faces))))
- ;;
- ;; We use this for compatibility with a future Emacs.
- (or (fboundp 'with-temp-message)
- (defmacro with-temp-message (message &rest body)
- `(let ((temp-message ,message) current-message)
- (unwind-protect
- (progn
- (when temp-message
- (setq current-message (current-message))
- (message "%s" temp-message))
- ,@body)
- (when temp-message
- (message "%s" current-message))))))
- ;;
- ;; We use this for compatibility with a future Emacs.
- (or (fboundp 'defcustom)
- (defmacro defcustom (symbol value doc &rest args)
- `(defvar ,symbol ,value ,doc))))