[patch] twelf-1.7.1-emacs-fix-old-style-backquotes-p4.patch

twelf-1.7.1-emacs-fix-old-style-backquotes-p4.patch (text/plain), 1.14 KB, created by Jouni Kosonen on 2022-03-28 02:36:38 UTC

diff --git a/emacs/auc-menu.el b/emacs/auc-menu.el
index 602c6fc..8f69be9 100644
--- a/emacs/auc-menu.el
+++ b/emacs/auc-menu.el
@@ -92,10 +92,10 @@
 (defmacro easy-menu-define (symbol maps doc menu)
   "Define SYMBOL to be a menu for keymaps MAPS.
 DOC is the documentation string, and MENU is a Lucid style menu."
-  `( (progn
+    `(progn
        (require 'auc-menu)		;For `easy-menu-do-define'.
        (defvar (, symbol) nil (, doc))
-       (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu)))))
+       (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu))))
 
 (cond 
 
@@ -212,8 +212,8 @@ DOC is the documentation string, and MENU is a Lucid style menu."
 
 (defun easy-menu-do-define (symbol maps doc menu)
   (set symbol (easy-menu-create-keymaps (car menu) (cdr menu)))
-  (fset symbol (` (lambda (event) (, doc) (interactive "@e")
-		    (easy-popup-menu event (, symbol)))))
+  (fset symbol `(lambda (event) (, doc) (interactive "@e")
+		    (easy-popup-menu event (, symbol))))
   (mapcar (function (lambda (map) 
 	    (define-key map (vector 'menu-bar (intern (car menu)))
 	      (cons (car menu) (symbol-value symbol)))))