Skip to content

Commit

Permalink
Finishing touches.
Browse files Browse the repository at this point in the history
  • Loading branch information
Shane Celis committed Mar 30, 2009
1 parent f7a50da commit ab1e272
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
1 change: 1 addition & 0 deletions TODO
Expand Up @@ -6,3 +6,4 @@
- [ ] ensure it works most of the time - [ ] ensure it works most of the time
- [ ] do a screencast - [ ] do a screencast



7 changes: 3 additions & 4 deletions hideshow-org.el
Expand Up @@ -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)))) (let ((hs (cdr (assoc 'hs-minor-mode minor-mode-alist))))
(if hs-org/minor-mode (if hs-org/minor-mode
(setcar hs (concat (car hs) "+")) (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 () (defun hs-org/hideshow ()
"Hide or show a block." "Hide or show a block."
(interactive) (interactive)
(let* ((last-point (point)) (let* ((last-point (point))
(hs-org/minor-mode nil) (hs-org/minor-mode nil)
(command (key-binding hs-org/trigger-key))) (command (key-binding hs-org/trigger-key-block)))
(when (commandp command) (when (commandp command)
(call-interactively command)) (call-interactively command))
(when (equal last-point (point)) (when (equal last-point (point))
Expand Down

0 comments on commit ab1e272

Please sign in to comment.