Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
df8fff6c
Commit
df8fff6c
authored
Nov 03, 2009
by
Glenn Morris
Browse files
(with-mode-local): Doc fix.
parent
2aea6521
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/cedet/mode-local.el
lisp/cedet/mode-local.el
+4
-1
No files found.
lisp/ChangeLog
View file @
df8fff6c
2009-11-03 Glenn Morris <rgm@gnu.org>
* cedet/mode-local.el (with-mode-local): Doc fix.
* emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
(byte-compile-file-form-define-abbrev-table)
(byte-compile-file-form-custom-declare-variable)
...
...
lisp/cedet/mode-local.el
View file @
df8fff6c
...
...
@@ -70,6 +70,9 @@ Return nil if MODE has no parent."
(
or
(
get
mode
'mode-local-parent
)
(
get
mode
'derived-mode-parent
)))
;; FIXME doc (and function name) seems wrong.
;; Return a list of MODE and all its parent modes, if any.
;; Lists parent modes first.
(
defun
mode-local-equivalent-mode-p
(
mode
)
"Is the major-mode in the current buffer equivalent to a mode in MODES."
(
let
((
modes
nil
))
...
...
@@ -377,7 +380,7 @@ To use the symbol MODE (quoted), use `with-mode-local'."
The current mode bindings are saved, BODY is evaluated, and the saved
bindings are restored, even in case of an abnormal exit.
Value is what BODY returns.
This
l
is like `with-mode-local-symbol', except that MODE is quoted
This is like `with-mode-local-symbol', except that MODE is quoted
and is note evaluated."
`
(
with-mode-local-symbol
',mode
,@
body
))
(
put
'with-mode-local
'lisp-indent-function
1
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment