Emacs factor modes: gensym is not needed.

diff --git a/misc/factor.el b/misc/factor.el
index 6c9faf50c92c82e36910998f298cf398d5706911..790ff0c56ad6c5388cd295bab0e74107e4eafdb5 100644 (file)
--- a/misc/factor.el
+++ b/misc/factor.el
@@ -652,13 +652,12 @@ vocabularies which have been modified on disk."
 \f
 ;;; Key bindings:
 
-(defmacro factor--define-key (key cmd &optional both)
-  (let ((m (gensym))
-        (ms '(factor-mode-map)))
-    (when both (push 'factor-help-mode-map ms))
-    `(dolist (,m (list ,@ms))
-       (define-key ,m [(control ?c) ,key] ,cmd)
-       (define-key ,m [(control ?c) (control ,key)] ,cmd))))
+(defun factor--define-key (key cmd &optional both)
+  (let ((ms (list factor-mode-map)))
+    (when both (push factor-help-mode-map ms))
+    (dolist (m ms)
+      (define-key m (vector '(control ?c) key) cmd)
+      (define-key m (vector '(control ?c) `(control ,key)) cmd))))
 
 (factor--define-key ?f 'factor-run-file)
 (factor--define-key ?r 'factor-send-region)