Add some standard places to PATH if they are not set by login script.
Rearrange the order of paths so system's are first, user's are last.
For Cygwin this helps with Cygwin's paths to be situated before
"C:/Windows" (Emacs is not started from a login shell on Windows!).
(defvar mypasshide-prefix-re "^pass: *")
(defun mypasshide--toggle-display (overlay hide)
"Hide or reveal region. Signature follows convention for
`reveal-toggle-invisible' from `reveal' mode."
(if hide
(overlay-put overlay 'display (propertize "****" 'face 'warning))
(overlay-put overlay 'display nil)))
(defun mypasshide--hide ()
(save-excursion
(goto-char (point-min))
(while (re-search-forward mypasshide-prefix-re nil t)
(let* ((beg (match-end 0))
(end (line-end-position))
(overlay (make-overlay beg end)))
(mypasshide--toggle-display overlay t)
(overlay-put overlay 'reveal-toggle-invisible #'mypasshide--toggle-display)
))))
;;;###autoload
(define-minor-mode mypasshide-mode
"Hide passwords after `mypasshide-prefix-re' and activate
`reveal-mode'. Disabling is not implemented."
:group 'reveal
(if mypasshide-mode
(progn
(mypasshide--hide)
(reveal-mode))))
(provide 'mypasshide)