summaryrefslogtreecommitdiff
path: root/lisp/elide-head.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-01-10 04:28:33 +0100
committerStefan Kangas <stefan@marxist.se>2022-01-10 04:30:13 +0100
commit3057e0458f247c9d7bf43b27087c0abcf8aff4b3 (patch)
treefe4f29d3a5c09e0fd4ea61bb2f4d52ca1de3ccae /lisp/elide-head.el
parentbf121747de93f7a7d04f04ffde5e35c8725451e5 (diff)
downloademacs-3057e0458f247c9d7bf43b27087c0abcf8aff4b3.tar.gz
Make old elide-head commands wrappers for mode
* lisp/elide-head.el (elide-head, elide-head-show): Make into wrappers around elide-head-mode.
Diffstat (limited to 'lisp/elide-head.el')
-rw-r--r--lisp/elide-head.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/elide-head.el b/lisp/elide-head.el
index 837dca1afe4..90bf1fe35b5 100644
--- a/lisp/elide-head.el
+++ b/lisp/elide-head.el
@@ -154,14 +154,14 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks."
(declare (obsolete elide-head-mode "29.1"))
(interactive "P")
(if arg
- (elide-head--show)
- (elide-head--hide)))
+ (elide-head-mode -1)
+ (elide-head-mode 1)))
(defun elide-head-show ()
"Show a header in the current buffer elided by \\[elide-head]."
(declare (obsolete elide-head-mode "29.1"))
(interactive)
- (elide-head--show))
+ (elide-head-mode -1))
(provide 'elide-head)