Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 1899:124ce9dc008b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-02-05 16:54:57 by james] Add invisibility spec from Emacs 21.3.
author james
date Thu, 05 Feb 2004 16:54:59 +0000
parents c3cf7db99b98
children e6d43c299b9c
comparison
equal deleted inserted replaced
1898:2279a7ce5f98 1899:124ce9dc008b
773 ;; Reconstruct a string from the pieces. 773 ;; Reconstruct a string from the pieces.
774 (setq matches (cons (substring string start l) matches)) ; leftover 774 (setq matches (cons (substring string start l) matches)) ; leftover
775 (apply #'concat (nreverse matches))))) 775 (apply #'concat (nreverse matches)))))
776 776
777 ;; END SYNCHED WITH FSF 21.2 777 ;; END SYNCHED WITH FSF 21.2
778
779
780 ;; BEGIN SYNCHED WITH FSF 21.3
781
782 (defun add-to-invisibility-spec (arg)
783 "Add elements to `buffer-invisibility-spec'.
784 See documentation for `buffer-invisibility-spec' for the kind of elements
785 that can be added."
786 (if (eq buffer-invisibility-spec t)
787 (setq buffer-invisibility-spec (list t)))
788 (setq buffer-invisibility-spec
789 (cons arg buffer-invisibility-spec)))
790
791 (defun remove-from-invisibility-spec (arg)
792 "Remove elements from `buffer-invisibility-spec'."
793 (if (consp buffer-invisibility-spec)
794 (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec))))
795
796 ;; END SYNCHED WITH FSF 21.3
778 797
779 798
780 ;;; Basic string functions 799 ;;; Basic string functions
781 800
782 ;; XEmacs 801 ;; XEmacs