Mercurial > emacs
comparison lisp/obsolete/fast-lock.el @ 65593:35bdd2abe2d3
message format spec fixes, commit # 12
author | Deepak Goel <deego@gnufans.org> |
---|---|
date | Sun, 18 Sep 2005 12:44:00 +0000 |
parents | 547765a33579 |
children | e8a3fb527b77 |
comparison
equal
deleted
inserted
replaced
65592:1038e6fc7f28 | 65593:35bdd2abe2d3 |
---|---|
224 `(let ((temp-message ,message) current-message) | 224 `(let ((temp-message ,message) current-message) |
225 (unwind-protect | 225 (unwind-protect |
226 (progn | 226 (progn |
227 (when temp-message | 227 (when temp-message |
228 (setq current-message (current-message)) | 228 (setq current-message (current-message)) |
229 (message temp-message)) | 229 (message "%s" temp-message)) |
230 ,@body) | 230 ,@body) |
231 (when temp-message | 231 (when temp-message |
232 (message current-message)))))) | 232 (message "%s" current-message)))))) |
233 ;; | 233 ;; |
234 ;; We use this for compatibility with a future Emacs. | 234 ;; We use this for compatibility with a future Emacs. |
235 (or (fboundp 'defcustom) | 235 (or (fboundp 'defcustom) |
236 (defmacro defcustom (symbol value doc &rest args) | 236 (defmacro defcustom (symbol value doc &rest args) |
237 `(defvar ,symbol ,value ,doc)))) | 237 `(defvar ,symbol ,value ,doc)))) |