patch-20010524.gz in [tamago:00462] is applied.

[elisp/tamago.git] / egg.el

diff --git a/egg.el b/egg.el
index 69f4503..7bd4f3c 100644 (file)
--- a/egg.el
+++ b/egg.el
@@ -30,7 +30,9 @@
 
 ;;; Code:
 
-(require 'cl)
+(eval-when-compile
+  (require 'cl))
+
 (require 'egg-edep)
 
 (autoload 'egg-simple-input-method "egg-sim"
@@ -192,6 +194,13 @@
        (setq prop (cddr prop)))
       (setq p (next-property-change p object to)))
     (remove-text-properties from to props object)))
+
+(defun egg-setup-invisibility-spec ()
+  (if (listp buffer-invisibility-spec)
+      (unless (condition-case nil (memq 'egg buffer-invisibility-spec) (error))
+       (setq buffer-invisibility-spec (cons 'egg buffer-invisibility-spec)))
+    (unless (eq buffer-invisibility-spec t)
+      (setq buffer-invisibility-spec (list 'egg buffer-invisibility-spec)))))
 \f
 (defvar egg-mark-list nil)
 (defvar egg-suppress-marking nil)