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)))) |