Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.444 emacs/lisp/subr.el:1.445
*** emacs/lisp/subr.el:1.444 Sun May 1 13:30:19 2005
--- emacs/lisp/subr.el Sun May 1 13:57:43 2005
***************
*** 2275,2293 ****
If SYNTAX is nil, return nil."
(and syntax (logand (car syntax) 65535)))
! (defun add-to-invisibility-spec (arg)
! "Add elements 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)))
! (defun remove-from-invisibility-spec (arg)
! "Remove elements from `buffer-invisibility-spec'."
(if (consp buffer-invisibility-spec)
! (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec))))
(defun global-set-key (key command)
"Give KEY a global binding as COMMAND.
--- 2275,2293 ----
If SYNTAX is nil, return nil."
(and syntax (logand (car syntax) 65535)))
! (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 element 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 element
buffer-invisibility-spec))))
(defun global-set-key (key command)
"Give KEY a global binding as COMMAND.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
