diff options
| author | Juri Linkov <juri@linkov.net> | 2018-11-08 00:33:05 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2018-11-08 00:33:05 +0200 |
| commit | 25ab0980c773bcfea7fc84bc001481999ef72a81 (patch) | |
| tree | c809537280e17ad90453c26da9af00ba7afed521 /lisp | |
| parent | fdbe4035ac7305c2f70274d2133c310c3480e23a (diff) | |
| download | emacs-25ab0980c773bcfea7fc84bc001481999ef72a81.tar.gz | |
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
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/bindings.el | 7 |
1 files changed, 7 insertions, 0 deletions
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) |