HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Autoload more carefully from Lisp. Follow aliases for function properties.
[bpt/emacs.git]
/
lisp
/
files-x.el
diff --git
a/lisp/files-x.el
b/lisp/files-x.el
index
a6320b3
..
e28e2ba
100644
(file)
--- a/
lisp/files-x.el
+++ b/
lisp/files-x.el
@@
-1,6
+1,6
@@
;;; files-x.el --- extended file handling commands
;;; files-x.el --- extended file handling commands
-;; Copyright (C) 2009-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 2009-201
2
Free Software Foundation, Inc.
;; Author: Juri Linkov <juri@jurta.org>
;; Maintainer: FSF
;; Author: Juri Linkov <juri@jurta.org>
;; Maintainer: FSF
@@
-49,7
+49,7
@@
Intended to be used in the `interactive' spec of
(format "%s: " prompt))
obarray
(lambda (sym)
(format "%s: " prompt))
obarray
(lambda (sym)
- (or (
user
-variable-p sym)
+ (or (
custom
-variable-p sym)
(get sym 'safe-local-variable)
(memq sym '(mode eval coding unibyte))))
nil nil nil default nil))
(get sym 'safe-local-variable)
(memq sym '(mode eval coding unibyte))))
nil nil nil default nil))
@@
-149,7
+149,7
@@
from the Local Variables list ignoring the input argument VALUE."
(goto-char (point-max))
(let ((comment-style 'plain)
(goto-char (point-max))
(let ((comment-style 'plain)
- (comment-start (or comment-start ";;
;
")))
+ (comment-start (or comment-start ";; ")))
(comment-region
(prog1 (setq beg (point))
(insert "\nLocal Variables:\nEnd:\n"))
(comment-region
(prog1 (setq beg (point))
(insert "\nLocal Variables:\nEnd:\n"))