Mercurial > emacs
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.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Tue, 25 Dec 2007 19:21:38 +0000 |
parents | 8a7ed478f7bc |
children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
87383:e8864ce8543f | 87384:20bb7aaa7b12 |
---|---|
216 (if (symbolp ,face) | 216 (if (symbolp ,face) |
217 (memq ,face fast-lock-save-faces) | 217 (memq ,face fast-lock-save-faces) |
218 (let ((faces ,face)) | 218 (let ((faces ,face)) |
219 (while (unless (memq (car faces) fast-lock-save-faces) | 219 (while (unless (memq (car faces) fast-lock-save-faces) |
220 (setq faces (cdr faces)))) | 220 (setq faces (cdr faces)))) |
221 faces)))) | 221 faces))))) |
222 ;; | |
223 ;; We use this for compatibility with a future Emacs. | |
224 (or (fboundp 'with-temp-message) | |
225 (defmacro with-temp-message (message &rest body) | |
226 `(let ((temp-message ,message) current-message) | |
227 (unwind-protect | |
228 (progn | |
229 (when temp-message | |
230 (setq current-message (current-message)) | |
231 (message "%s" temp-message)) | |
232 ,@body) | |
233 (when temp-message | |
234 (message "%s" current-message)))))) | |
235 ;; | |
236 ;; We use this for compatibility with a future Emacs. | |
237 (or (fboundp 'defcustom) | |
238 (defmacro defcustom (symbol value doc &rest args) | |
239 `(defvar ,symbol ,value ,doc)))) | |
240 | 222 |
241 ;;(defun fast-lock-submit-bug-report () | 223 ;;(defun fast-lock-submit-bug-report () |
242 ;; "Submit via mail a bug report on fast-lock.el." | 224 ;; "Submit via mail a bug report on fast-lock.el." |
243 ;; (interactive) | 225 ;; (interactive) |
244 ;; (let ((reporter-prompt-for-summary-p t)) | 226 ;; (let ((reporter-prompt-for-summary-p t)) |