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

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>
* commands1.el (lyskom-times): Added Towel Day.
......
......@@ -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!
(eval-and-compile
(and (condition-case nil
(or (condition-case nil
(or (equal (kbd (identity "<down-mouse-2>"))
[down-mouse-2])
(error "Bad definition of kbd"))
(error t))
(error nil))
(progn (fmakunbound 'kbd)
(lyskom-provide-macro kbd (keys)
"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