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 |
|
|
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) |
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 |
|
|