Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fb652bb5
Commit
fb652bb5
authored
Sep 25, 2009
by
Juanma Barranquero
Browse files
* progmodes/hideshow.el (hs-show-block): Run `hs-show-hook'. (Bug#4548)
parent
4561f7e0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
5 deletions
+9
-5
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/progmodes/hideshow.el
lisp/progmodes/hideshow.el
+5
-5
No files found.
lisp/ChangeLog
View file @
fb652bb5
2009-09-25 David Engster <deng@randomsample.de>
* progmodes/hideshow.el (hs-show-block): Run `hs-show-hook'. (Bug#4548)
2009-09-24 Chong Yidong <cyd@stupidchicken.com>
* nxml/nxml-mode.el: Alias xml-mode to nxml-mode.
...
...
lisp/progmodes/hideshow.el
View file @
fb652bb5
...
...
@@ -371,7 +371,7 @@ Use the command `hs-minor-mode' to toggle or set this variable.")
[
"Toggle Hiding"
hs-toggle-hiding
:help
"Toggle the hiding state of the current block"
]
"----"
[
"Hide comments when hiding all"
[
"Hide comments when hiding all"
(
setq
hs-hide-comments-when-hiding-all
(
not
hs-hide-comments-when-hiding-all
))
:help
"If t also hide comment blocks when doing `hs-hide-all'"
...
...
@@ -869,8 +869,8 @@ See documentation for functions `hs-hide-block' and `run-hooks'."
q
(
progn
(
hs-forward-sexp
(
match-data
t
)
1
)
(
point
)))))
(
when
(
and
p
q
)
(
hs-discard-overlays
p
q
)
(
goto-char
(
if
end
q
(
1+
p
)))))
(
run-hooks
'hs-show-hook
)))
)
(
goto-char
(
if
end
q
(
1+
p
)))))
)
(
run-hooks
'hs-show-hook
)))
(
defun
hs-hide-level
(
arg
)
"Hide all blocks ARG levels below this block.
...
...
@@ -919,7 +919,7 @@ This can be useful if you have huge RCS logs in those comments."
;;;###autoload
(
define-minor-mode
hs-minor-mode
"Minor mode to selectively hide/show code and comment blocks.
"Minor mode to selectively hide/show code and comment blocks.
When hideshow minor mode is on, the menu bar is augmented with hideshow
commands and the hideshow commands are enabled.
The value '(hs . t) is added to `buffer-invisibility-spec'.
...
...
@@ -935,7 +935,7 @@ Lastly, the normal hook `hs-minor-mode-hook' is run using `run-hooks'.
Key bindings:
\\{hs-minor-mode-map}"
:group
'hideshow
:group
'hideshow
:lighter
" hs"
:keymap
hs-minor-mode-map
(
setq
hs-headline
nil
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment