diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2009-09-05 09:43:51 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2009-09-05 09:43:51 +0000 |
commit | ab530f103fa791506393b45eb9ed6b3587ac1836 (patch) | |
tree | 3730a8399b294f505d36ef51d7ac0530a7d239dc /lib/maths-menu.el | |
parent | 716f8469142f61b7e9b382dad82adcd63c5cfb79 (diff) |
Tidy whitespace
Diffstat (limited to 'lib/maths-menu.el')
-rw-r--r-- | lib/maths-menu.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 |