comparison lisp/obsolete/fast-lock.el @ 87384:20bb7aaa7b12

* calculator.el: * dframe.el: * iswitchb.el: * whitespace.el: * winner.el: * emacs-lisp/checkdoc.el: * mail/feedmail.el: * net/quickurl.el: * obsolete/fast-lock.el: * play/5x5.el: * progmodes/delphi.el: * progmodes/idlw-shell.el: * progmodes/idlwave.el: * textmodes/artist.el: * textmodes/ispell.el: * textmodes/texinfmt.el: * textmodes/texinfo.el: Remove obsolete definitions of backward compatibility macros for defcustom, defgroup, defface, when, unless, with-current-buffer and with-temp-message.

87383:e8864ce8543f

     (if (symbolp ,face)
         (memq ,face fast-lock-save-faces)
         (let ((faces ,face))
           (while (unless (memq (car faces) fast-lock-save-faces)
                    (setq faces (cdr faces))))
           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))))

;;(defun fast-lock-submit-bug-report ()
;;  "Submit via mail a bug report on fast-lock.el."
;;  (interactive)
;;  (let ((reporter-prompt-for-summary-p t))

87384:20bb7aaa7b12

     (if (symbolp ,face)
         (memq ,face fast-lock-save-faces)
         (let ((faces ,face))
           (while (unless (memq (car faces) fast-lock-save-faces)
                    (setq faces (cdr faces))))
           faces)))))

;;(defun fast-lock-submit-bug-report ()
;;  "Submit via mail a bug report on fast-lock.el."
;;  (interactive)
;;  (let ((reporter-prompt-for-summary-p t))