[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/obsolete/fast-lock.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/obsolete/fast-lock.el,v |
Date: |
Tue, 25 Dec 2007 19:21:43 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 07/12/25 19:21:40
Index: obsolete/fast-lock.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/obsolete/fast-lock.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- obsolete/fast-lock.el 22 Nov 2007 01:05:53 -0000 1.16
+++ obsolete/fast-lock.el 25 Dec 2007 19:21:37 -0000 1.17
@@ -218,25 +218,7 @@
(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))))
+ faces)))))
;;(defun fast-lock-submit-bug-report ()
;; "Submit via mail a bug report on fast-lock.el."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/obsolete/fast-lock.el,v,
Dan Nicolaescu <=