From 25ab0980c773bcfea7fc84bc001481999ef72a81 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 8 Nov 2018 00:33:05 +0200 Subject: [PATCH] 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 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) -- 2.39.5