Fix error preloading bindings.el.

 lisp/bindings.el (search-map): Fix last change: don't use 'kbd' in
 bindings.el, since it is not yet loaded when bindings.el is preloaded.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c673c861d91eb51ad8da4afbb6ac9a6626d84a6..c3ff8b6d0f677f718f19707d087fdbc4ff23bb31 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-14  Eli Zaretskii  <eliz@gnu.org>
+
+       * bindings.el (search-map): Fix last change: don't use 'kbd' in
+       bindings.el, since it is not yet loaded when bindings.el is
+       preloaded.
+
 2014-11-14  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        * progmodes/python.el (python-shell-completion-get-completions):

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 5864581d3cc36f68dd3a8fff7c63d63467156078..46ff522c731e7afc75638aa631aed72384c409f6 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -925,15 +925,15 @@ if `inhibit-field-text-motion' is non-nil."
   "Keymap for search related commands.")
 (define-key esc-map "s" search-map)
 
-(define-key search-map "o"  'occur)
-(define-key search-map (kbd "M-s")  'eww-search-words)
-(define-key search-map "hr" 'highlight-regexp)
-(define-key search-map "hp" 'highlight-phrase)
-(define-key search-map "hl" 'highlight-lines-matching-regexp)
-(define-key search-map "h." 'highlight-symbol-at-point)
-(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)
+(define-key search-map "o"    'occur)
+(define-key search-map "\M-s" 'eww-search-words)
+(define-key search-map "hr"   'highlight-regexp)
+(define-key search-map "hp"   'highlight-phrase)
+(define-key search-map "hl"   'highlight-lines-matching-regexp)
+(define-key search-map "h."   'highlight-symbol-at-point)
+(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)
 
 ;;(defun function-key-error ()
 ;;  (interactive)