Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(add-to-invisibility-spec, remove-from-invisibility-spec):

Browse source 
Rename ARG to ELEMENT.  Doc fix.
This commit is contained in:
Richard M. Stallman 2005-05-01 13:58:45 +00:00
parent bff05d9ea2
commit 648d174d39
2 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -11,6 +11,11 @@
Remove aliases and obsolete declarations.
Back out inadvertant changes from previous commit.
2005-05-01 Richard M. Stallman <rms@gnu.org>
* subr.el (add-to-invisibility-spec, remove-from-invisibility-spec):
Rename ARG to ELEMENT. Doc fix.
2005-05-01 Luc Teirlinck <teirllm@auburn.edu>
* files.el (require-final-newline): Make Custom tags consistent

12
lisp/subr.el
View file

@ -2275,19 +2275,19 @@ If POS is outside the buffer's accessible portion, return nil."
If SYNTAX is nil, return nil."
(and syntax (logand (car syntax) 65535)))
(defun add-to-invisibility-spec (arg)
"Add elements to `buffer-invisibility-spec'.
(defun add-to-invisibility-spec (element)
"Add ELEMENT to `buffer-invisibility-spec'.
See documentation for `buffer-invisibility-spec' for the kind of elements
that can be added."
(if (eq buffer-invisibility-spec t)
(setq buffer-invisibility-spec (list t)))
(setq buffer-invisibility-spec
(cons arg buffer-invisibility-spec)))
(cons element buffer-invisibility-spec)))
(defun remove-from-invisibility-spec (arg)
"Remove elements from `buffer-invisibility-spec'."
(defun remove-from-invisibility-spec (element)
"Remove ELEMENT from `buffer-invisibility-spec'."
(if (consp buffer-invisibility-spec)
(setq buffer-invisibility-spec (delete arg buffer-invisibility-spec))))
(setq buffer-invisibility-spec (delete element buffer-invisibility-spec))))
(defun global-set-key (key command)
"Give KEY a global binding as COMMAND.