Mercurial > hg > xemacs-beta

changeset 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 2279a7ce5f98
children 76baaecb40c6
files lisp/ChangeLog lisp/subr.el
diffstat 2 files changed, 24 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Feb 04 22:50:33 2004 +0000
+++ b/lisp/ChangeLog	Thu Feb 05 16:54:59 2004 +0000
@@ -1,3 +1,8 @@
+2004-01-28  Jerry James  <james@xemacs.org>
+
+	* subr.el (add-to-invisibility-spec): New, from Emacs 21.3.
+	* subr.el (remove-from-invisibility-spec): Ditto.
+
 2004-01-29  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* mule/japanese.el (paragraph-start, paragraph-separate):
--- a/lisp/subr.el	Wed Feb 04 22:50:33 2004 +0000
+++ b/lisp/subr.el	Thu Feb 05 16:54:59 2004 +0000
@@ -777,6 +777,25 @@
 ;; END SYNCHED WITH FSF 21.2
 
 
+;; BEGIN SYNCHED WITH FSF 21.3
+
+(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))))
+
+;; END SYNCHED WITH FSF 21.3
+
+
 ;;; Basic string functions
 
 ;; XEmacs