Revert previous hideshow commit

Hideshow has defaults that are overridden if we look for derived modes
in hs-special-modes-alist.  For instance, in lisp-interaction-mode
we'll choose a lookup based on parent modes, and that overrides the
default (bug#43032).

This reverts a415179b56.
This commit is contained in:
Lars Ingebrigtsen 2020-08-25 10:07:08 +02:00
parent d494f9e81a
commit 64d2e5a7ad
2 changed files with 1 additions and 10 deletions

View file

@ -876,11 +876,6 @@ window after starting). This variable defaults to nil.
*** New 'diff-mode' font locking face 'diff-error'.
This face is used for error messages from diff.
---
*** 'hs-minor-mode' now heeds 'hs-special-modes-alist' for derived modes.
The settings in 'hs-special-modes-alist' now also affect modes derived
from those mentioned in that alist.
+++
*** New global mode 'global-goto-address-mode'
This will enable 'goto-address-mode' in all buffers.

View file

@ -225,8 +225,6 @@
;;---------------------------------------------------------------------------
;; user-configurable variables
(require 'cl-lib)
(defgroup hideshow nil
"Minor mode for hiding and showing program and comment blocks."
:prefix "hs-"
@ -654,9 +652,7 @@ Otherwise, guess start, end and `comment-start' regexps; `forward-sexp'
function; and adjust-block-beginning function."
(if (and (bound-and-true-p comment-start)
(bound-and-true-p comment-end))
(let* ((lookup (cl-assoc-if (lambda (mode)
(derived-mode-p major-mode mode))
hs-special-modes-alist))
(let* ((lookup (assoc major-mode hs-special-modes-alist))
(start-elem (or (nth 1 lookup) "\\s(")))
(if (listp start-elem)
;; handle (START-REGEXP MDATA-SELECT)