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 837dca1afe4fa2ff9a3a6d73f6c8c9ffcb7ccef3..90bf1fe35b5ccbabdd9bb128f6ad1f3a684e3e4a 100644 (file)
--- 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)