/[emacs]/emacs/lisp/elide-head.el
ViewVC logotype

Diff of /emacs/lisp/elide-head.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pj, Mon Jul 16 12:22:58 2001 UTC revision 1.9.8.1 by miles, Fri Apr 4 06:20:04 2003 UTC
# Line 33  Line 33 
33  ;; elision.  ;; elision.
34    
35  ;; You might add `elide-head' to appropriate major mode hooks or to  ;; You might add `elide-head' to appropriate major mode hooks or to
36  ;; `find-file-hooks'.  Please do not do this in site init files.  If  ;; `find-file-hook'.  Please do not do this in site init files.  If
37  ;; you do, information may be hidden from users who don't know it  ;; you do, information may be hidden from users who don't know it
38  ;; already.  ;; already.
39    
# Line 78  cdr." Line 78  cdr."
78  The header is made invisible with an overlay.  With a prefix arg, show  The header is made invisible with an overlay.  With a prefix arg, show
79  an elided material again.  an elided material again.
80    
81  This is suitable as an entry on `find-file-hooks' or appropriate mode hooks."  This is suitable as an entry on `find-file-hook' or appropriate mode hooks."
82    (interactive "P")    (interactive "P")
83    (if arg    (if arg
84        (elide-head-show)        (elide-head-show)
# Line 105  This is suitable as an entry on `find-fi Line 105  This is suitable as an entry on `find-fi
105                  (move-overlay elide-head-overlay (point-marker) end)                  (move-overlay elide-head-overlay (point-marker) end)
106                (setq elide-head-overlay (make-overlay (point-marker) end)))                (setq elide-head-overlay (make-overlay (point-marker) end)))
107              (overlay-put elide-head-overlay 'invisible t)              (overlay-put elide-head-overlay 'invisible t)
             (overlay-put elide-head-overlay 'intangible t)  
108              (overlay-put elide-head-overlay 'evaporate t)              (overlay-put elide-head-overlay 'evaporate t)
109              (overlay-put elide-head-overlay 'after-string "...")))))))              (overlay-put elide-head-overlay 'after-string "...")))))))
110    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26