From 705e5bd93279627a7b1a542f818a0b3967537438 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 28 Aug 2009 04:05:58 +0000 Subject: * 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). --- lisp/dos-w32.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'lisp/dos-w32.el') 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)) -- cgit v1.2.1