From ab530f103fa791506393b45eb9ed6b3587ac1836 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Sat, 5 Sep 2009 09:43:51 +0000 Subject: Tidy whitespace --- lib/maths-menu.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/maths-menu.el') diff --git a/lib/maths-menu.el b/lib/maths-menu.el index 1a114c86..d02ff02e 100644 --- a/lib/maths-menu.el +++ b/lib/maths-menu.el @@ -58,7 +58,7 @@ (defvar maths-menu-tokenise-insert '(lambda (char) (insert char)) "Function used to insert possibly formatted or escaped character.") - + (defun maths-menu-build-menu (spec) (let ((map (make-sparse-keymap "Characters"))) (dolist (pane spec) @@ -67,10 +67,10 @@ (define-key-after map (vector (intern name)) (cons name pane-map)) (dolist (elt pane) (let ((fname (intern - (concat "maths-menu-insert-" + (concat "maths-menu-insert-" (replace-regexp-in-string " " "-" (cadr elt)))))) - (fset fname - `(lambda () + (fset fname + `(lambda () (interactive) (funcall maths-menu-tokenise-insert ,(car elt)))) (define-key-after pane-map -- cgit v1.2.3