suggestion for tab keybinding in hideshow minor mode.

[alin soare]

I suggest to reproduce the behavior of org-mode for the Tab key , when the hs
minor mode is active.

1. first tab on a narowed line shows the block
2. is the next key is also tab, to hide again
3. otherwise, to preserve the previous binding of the major mode.



(defun tab-hs-hide nil
  (interactive)
  (let ((obj (car (overlays-in
                                   (save-excursion (move-beginning-of-line nil 
) (point))
                                   (save-excursion (move-end-of-line nil) 
(point)) ))))
        (cond ((and (null obj)
                                (eq last-command this-command) )
                   (hs-hide-block) )
                  ((and (overlayp obj)
                                (eq 'hs (overlay-get obj 'invisible)))
                   (hs-show-block) )
                  (t
                   (funcall (lookup-key (current-global-map) (kbd "^I") ) ) ) ) 
) )

(define-key hs-minor-mode-map [tab] 'tab-hs-hide )