Mercurial > emacs

diff lisp/dos-w32.el @ 104662:790bd85e4cb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 28 Aug 2009 04:05:58 +0000
parents 5b95a230db1f
children 50fdf250e26b
line wrap: on
line diff
--- a/lisp/dos-w32.el	Fri Aug 28 03:18:49 2009 +0000
+++ b/lisp/dos-w32.el	Fri Aug 28 04:05:58 2009 +0000
@@ -72,15 +72,12 @@
 	(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))