From: Juri Linkov Date: Wed, 7 Nov 2018 22:33:05 +0000 (+0200) Subject: Advertise new hi-lock 'M-s h' key prefix in lisp/bindings.el X-Git-Tag: emacs-27.0.90~4204 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25ab0980c773bcfea7fc84bc001481999ef72a81;p=emacs.git Advertise new hi-lock 'M-s h' key prefix in lisp/bindings.el https://lists.gnu.org/archive/html/emacs-devel/2015-07/msg00104.html --- diff --git a/lisp/bindings.el b/lisp/bindings.el index 76383ad2cef..bc4e741d01b 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1029,6 +1029,13 @@ if `inhibit-field-text-motion' is non-nil." (define-key search-map "hu" 'unhighlight-regexp) (define-key search-map "hf" 'hi-lock-find-patterns) (define-key search-map "hw" 'hi-lock-write-interactive-patterns) +(put 'highlight-regexp :advertised-binding [?\M-s ?h ?r]) +(put 'highlight-phrase :advertised-binding [?\M-s ?h ?p]) +(put 'highlight-lines-matching-regexp :advertised-binding [?\M-s ?h ?l]) +(put 'highlight-symbol-at-point :advertised-binding [?\M-s ?h ?.]) +(put 'unhighlight-regexp :advertised-binding [?\M-s ?h ?u]) +(put 'hi-lock-find-patterns :advertised-binding [?\M-s ?h ?f]) +(put 'hi-lock-write-interactive-patterns :advertised-binding [?\M-s ?h ?w]) ;;(defun function-key-error () ;; (interactive)