Permalink
Browse files

Finishing touches.

  • Loading branch information...
1 parent f7a50da commit ab1e2729d3701458b4b14874826b7aba8b3e685a @shanecelis committed Mar 30, 2009
Showing with 4 additions and 4 deletions.
  1. +1 −0 TODO
  2. +3 −4 hideshow-org.el
View
1 TODO
@@ -6,3 +6,4 @@
- [ ] ensure it works most of the time
- [ ] do a screencast
+
View
@@ -110,16 +110,15 @@ You can customize the key through `hs-org/trigger-key-block'."
(let ((hs (cdr (assoc 'hs-minor-mode minor-mode-alist))))
(if hs-org/minor-mode
(setcar hs (concat (car hs) "+"))
- (setcar hs (replace-regexp-in-string "\\+$" "" (car hs)))
- ))
- )
+ (setcar hs (replace-regexp-in-string "\\++$" "" (car hs)))
+ )))
(defun hs-org/hideshow ()
"Hide or show a block."
(interactive)
(let* ((last-point (point))
(hs-org/minor-mode nil)
- (command (key-binding hs-org/trigger-key)))
+ (command (key-binding hs-org/trigger-key-block)))
(when (commandp command)
(call-interactively command))
(when (equal last-point (point))

0 comments on commit ab1e272

Please sign in to comment.