diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-28 04:05:58 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-28 04:05:58 +0000 |
commit | 705e5bd93279627a7b1a542f818a0b3967537438 (patch) | |
tree | 4e039055236ba7f64f347a0fc52d7cafc205a44d /lisp/dos-w32.el | |
parent | 4d985ac2e6cd0649f038e312a535b6a033a1229f (diff) |
* mail/feedmail.el: Use CL macros.
(feedmail-run-the-queue, feedmail-send-it-immediately):
* dos-w32.el (find-buffer-file-type): Replace uses of
default-buffer-file-type with (default-value 'buffer-file-type).
Diffstat (limited to 'lisp/dos-w32.el')
-rw-r--r-- | lisp/dos-w32.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index ae6ed5dc366..a910603f907 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -72,15 +72,12 @@ against the file name, and TYPE is nil for text, t for binary.") (setq alist (cdr alist))) found))) -;; Silence compiler. Defined in src/buffer.c on DOS_NT. -(defvar default-buffer-file-type) - ;; Don't check for untranslated file systems here. (defun find-buffer-file-type (filename) (let ((match (find-buffer-file-type-match filename)) (code)) (if (not match) - default-buffer-file-type + (default-value 'buffer-file-type) (setq code (cdr match)) (cond ((memq code '(nil t)) code) ((and (symbolp code) (fboundp code)) |