From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 10 Jan 2022 03:28:33 +0000 (+0100)
Subject: Make old elide-head commands wrappers for mode
X-Git-Tag: emacs-29.0.90~3163
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3057e0458f247c9d7bf43b27087c0abcf8aff4b3;p=emacs.git

Make old elide-head commands wrappers for mode

* lisp/elide-head.el (elide-head, elide-head-show): Make into
wrappers around elide-head-mode.
---

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)