equal
deleted
inserted
replaced
3763 (1+ (current-column))))) |
3763 (1+ (current-column))))) |
3764 |
3764 |
3765 (defun my-hs-toggle () |
3765 (defun my-hs-toggle () |
3766 (interactive) |
3766 (interactive) |
3767 (if hs-minor-mode |
3767 (if hs-minor-mode |
3768 (if (condition-case nil |
3768 ;; hs-toggle-hiding has bug in v27.1. I eliminated "(event-end e)" from "hs-toggle-hiding" as workaround. |
3769 (hs-toggle-hiding) |
3769 (hs-life-goes-on |
3770 (error t)) |
3770 (if (hs-already-hidden-p) |
3771 (hs-show-all)) |
3771 (hs-show-block) |
|
3772 (hs-hide-block))) |
3772 (my-selective-display-toggle))) |
3773 (my-selective-display-toggle))) |
3773 |
3774 |
3774 (define-key global-map (kbd "s--") #'my-hs-toggle) |
3775 (define-key global-map (kbd "s--") #'my-hs-toggle) |
3775 |
3776 |
3776 (add-to-list |
3777 (add-to-list |