From ab1e2729d3701458b4b14874826b7aba8b3e685a Mon Sep 17 00:00:00 2001 From: Shane Celis Date: Mon, 30 Mar 2009 16:54:51 -0700 Subject: [PATCH] Finishing touches. --- TODO | 1 + hideshow-org.el | 7 +++---- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/TODO b/TODO index 26b178b..961c165 100644 --- a/TODO +++ b/TODO @@ -6,3 +6,4 @@ - [ ] ensure it works most of the time - [ ] do a screencast + diff --git a/hideshow-org.el b/hideshow-org.el index 7327fb3..e8cfc28 100644 --- a/hideshow-org.el +++ b/hideshow-org.el @@ -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))