[Emacs-diffs] master 25ab098: Advertise new hi-lock 'M-s h' key prefix in lisp/bindings.el

[Juri Linkov]

branch: master
commit 25ab0980c773bcfea7fc84bc001481999ef72a81
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    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
---
 lisp/bindings.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 76383ad..bc4e741 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)