3810 (define-key hs-minor-mode-map (kbd "s--") #'hs-toggle-hiding)

  3810 (defun my-selective-display-toggle ()

  3811   "Better alternative to 'C-x $' using current column as threshold."

  3812   (interactive)

  3813   (set-selective-display

  3814    (unless selective-display

  3815      (1+ (current-column)))))

  3816 

  3817 (defun my-hs-toggle ()

  3818   (interactive)

  3819   (if hs-minor-mode

  3820       (if (condition-case nil

  3821               (hs-toggle-hiding)

  3822             (error t))

  3823           (hs-show-all))

  3824     (my-selective-display-toggle)))

  3825 

  3826 (define-key global-map (kbd "s--") #'my-hs-toggle)