Commit 003115c6 authored by Christer Ekholm's avatar Christer Ekholm
Browse files

Fix condition for redefine kbd.

Don't redefine kbd if existing definition is correct.
parent f81d6196
2016-07-07 Christer Ekholm <che@chrekh.se>
* compatibility.el (or): Fix condition for redefine kbd.
2016-05-25 Christer Ekholm <che@chrekh.se> 2016-05-25 Christer Ekholm <che@chrekh.se>
* commands1.el (lyskom-times): Added Towel Day. * commands1.el (lyskom-times): Added Towel Day.
......
...@@ -100,11 +100,11 @@ will be defined to be a function with ARGS and BODY." ...@@ -100,11 +100,11 @@ will be defined to be a function with ARGS and BODY."
;; will do so if it appears to be misbehaving. Don't like it? Tough! ;; will do so if it appears to be misbehaving. Don't like it? Tough!
(eval-and-compile (eval-and-compile
(and (condition-case nil (or (condition-case nil
(or (equal (kbd (identity "<down-mouse-2>")) (or (equal (kbd (identity "<down-mouse-2>"))
[down-mouse-2]) [down-mouse-2])
(error "Bad definition of kbd")) (error "Bad definition of kbd"))
(error t)) (error nil))
(progn (fmakunbound 'kbd) (progn (fmakunbound 'kbd)
(lyskom-provide-macro kbd (keys) (lyskom-provide-macro kbd (keys)
"Convert KEYS to the internal Emacs key representation. "Convert KEYS to the internal Emacs key representation.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment