/[emacs]/emacs/lisp/obsolete/fast-lock.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/fast-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by monnier, Fri Sep 2 18:39:42 2005 UTC revision 1.7 by deego, Sun Sep 18 12:44:00 2005 UTC
# Line 226  Line 226 
226                (progn                (progn
227                  (when temp-message                  (when temp-message
228                    (setq current-message (current-message))                    (setq current-message (current-message))
229                    (message temp-message))                    (message "%s" temp-message))
230                  ,@body)                  ,@body)
231             (when temp-message             (when temp-message
232               (message current-message))))))               (message "%s" current-message))))))
233   ;;   ;;
234   ;; We use this for compatibility with a future Emacs.   ;; We use this for compatibility with a future Emacs.
235   (or (fboundp 'defcustom)   (or (fboundp 'defcustom)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26