mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases 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
Download patch file Download diff file Expand all files Collapse all files

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.