[Erbot-cvs] erbot erbc.el

[D. Goel]

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Branch:         
Changes by:     D. Goel <address@hidden>        06/03/21 16:08:20

Modified files:
        .              : erbc.el 

Log message:
        minor: disable kbd unless explicitly turned on.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbc.el.diff?tr1=1.121&tr2=1.122&r1=text&r2=text

Patches:
Index: erbot/erbc.el
diff -u erbot/erbc.el:1.121 erbot/erbc.el:1.122
--- erbot/erbc.el:1.121 Tue Mar 21 15:47:25 2006
+++ erbot/erbc.el       Tue Mar 21 16:08:20 2006
@@ -1,5 +1,5 @@
 ;;; erbc.el --- Erbot user-interface commands -- see also erbc5.el
-;; Time-stamp: <2006-03-21 10:42:28 deego>
+;; Time-stamp: <2006-03-21 11:06:42 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -4956,9 +4956,17 @@
 (erbutils-defalias-i '(window-system))
 
 
-(unless erbot-paranoid-p 
-  (erbutils-defalias-i
-   '(kbd read-kbd-macro)))
+(defvar erbot-kbd-p nil
+  "Whether to enable kbd.
+
+Note that making this non-nil can lead to vector results. For
+example, (kbd \"<home>\"), (thanks to fledermaus).")
+
+(when (and 
+       (not erbot-paranoid-p)
+       erbot-kbd-p
+       (erbutils-defalias-i
+       '(kbd read-kbd-macro))))
 
 (defconst fs-t t
   "As such, when we sandbox a lisp expression, t remains t, so this is