From 1f61f6dad0bcf1d0ac52a5c7d19d9cf22ec58b2e Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Tue, 25 Nov 2008 11:48:11 +0100 Subject: [PATCH] Emacs factor modes: gensym is not needed. --- misc/factor.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/misc/factor.el b/misc/factor.el index 6c9faf50c9..790ff0c56a 100644 --- a/misc/factor.el +++ b/misc/factor.el @@ -652,13 +652,12 @@ vocabularies which have been modified on disk." ;;; 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)