HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* insdel.c (prepare_to_modify_buffer): Don't set
[bpt/emacs.git]
/
lisp
/
files-x.el
diff --git
a/lisp/files-x.el
b/lisp/files-x.el
index
3ad3f90
..
222141b
100644
(file)
--- a/
lisp/files-x.el
+++ b/
lisp/files-x.el
@@
-1,10
+1,11
@@
;;; files-x.el --- extended file handling commands
;;; files-x.el --- extended file handling commands
-;; Copyright (C) 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2009
, 2010
Free Software Foundation, Inc.
;; Author: Juri Linkov <juri@jurta.org>
;; Maintainer: FSF
;; Keywords: files
;; Author: Juri Linkov <juri@jurta.org>
;; Maintainer: FSF
;; Keywords: files
+;; Package: emacs
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
@@
-69,8
+70,7
@@
Intended to be used in the `interactive' spec of
(format "Add %s with value: " variable))
obarray
(lambda (sym)
(format "Add %s with value: " variable))
obarray
(lambda (sym)
- (and (string-match-p "-mode\\'" (symbol-name sym))
- (not (string-match-p "-minor-mode\\'" (symbol-name sym)))))
+ (string-match-p "-mode\\'" (symbol-name sym)))
nil nil nil default nil))
(and (stringp value)
(intern (replace-regexp-in-string "-mode\\'" "" value))))
nil nil nil default nil))
(and (stringp value)
(intern (replace-regexp-in-string "-mode\\'" "" value))))
@@
-92,7
+92,8
@@
Intended to be used in the `interactive' spec of
nil 'set-variable-value-history
(format "%S"
(cond ((eq variable 'unibyte) t)
nil 'set-variable-value-history
(format "%S"
(cond ((eq variable 'unibyte) t)
- (t (symbol-value variable))))))))))
+ ((boundp variable)
+ (symbol-value variable))))))))))
(defun read-file-local-variable-mode ()
"Read per-directory file-local variable's mode using completion.
(defun read-file-local-variable-mode ()
"Read per-directory file-local variable's mode using completion.