# HG changeset patch # User Richard M. Stallman # Date 912354098 0 # Node ID 68c3d9e82bb7fa56ab94629ab6106531f61725e8 # Parent 9cee50f0ec561d16667a58e001151699983ad856 (hack-one-local-variable): Cope with non-file buffers. diff -r 9cee50f0ec56 -r 68c3d9e82bb7 lisp/files.el --- a/lisp/files.el Sun Nov 29 00:56:49 1998 +0000 +++ b/lisp/files.el Sun Nov 29 15:41:38 1998 +0000 @@ -1748,13 +1748,15 @@ (beginning-of-line) (set-window-start (selected-window) (point))) (setq enable-local-eval - (y-or-n-p (format "Process `eval' or hook local variables in file %s? " - (file-name-nondirectory buffer-file-name))))))))) + (y-or-n-p (format "Process `eval' or hook local variables in %s? " + (if buffer-file-name + (concat "file " (file-name-nondirectory buffer-file-name)) + (concat "buffer " (buffer-name))))))))))) (if (eq var 'eval) (save-excursion (eval val)) (make-local-variable var) (set var val)) - (message "Ignoring `eval:' in file's local variables"))) + (message "Ignoring `eval:' in the local variables list"))) ;; Ordinary variable, really set it. (t (make-local-variable var) (set var val))))