[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M . Stallman]

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.