| 1 |
commit: 6c2708dd89c8d5b69db1bb9d97d499705762076a |
| 2 |
Author: Mark Wright <gienah <AT> gentoo <DOT> org> |
| 3 |
AuthorDate: Mon Mar 28 13:40:59 2022 +0000 |
| 4 |
Commit: Mark Wright <gienah <AT> gentoo <DOT> org> |
| 5 |
CommitDate: Mon Mar 28 13:42:14 2022 +0000 |
| 6 |
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=6c2708dd |
| 7 |
|
| 8 |
sci-mathematics/twelf: Thanks to Jouni Kosonen for backquotes fix. |
| 9 |
|
| 10 |
Thanks to Agostino Sarubbo and Sam James for reporting and helping. |
| 11 |
Apply patch by Jouni Kosonen to fix old-style emacs backquotes. |
| 12 |
|
| 13 |
Closes: https://bugs.gentoo.org/836270 |
| 14 |
Package-Manager: Portage-3.0.30, Repoman-3.0.3 |
| 15 |
Signed-off-by: Mark Wright <gienah <AT> gentoo.org> |
| 16 |
|
| 17 |
...f-1.7.1-emacs-fix-old-style-backquotes-p3.patch | 23 ++++++++++++++++++---- |
| 18 |
1 file changed, 19 insertions(+), 4 deletions(-) |
| 19 |
|
| 20 |
diff --git a/sci-mathematics/twelf/files/twelf-1.7.1-emacs-fix-old-style-backquotes-p3.patch b/sci-mathematics/twelf/files/twelf-1.7.1-emacs-fix-old-style-backquotes-p3.patch |
| 21 |
index b5f13b114456..e15d838942e7 100644 |
| 22 |
--- a/sci-mathematics/twelf/files/twelf-1.7.1-emacs-fix-old-style-backquotes-p3.patch |
| 23 |
+++ b/sci-mathematics/twelf/files/twelf-1.7.1-emacs-fix-old-style-backquotes-p3.patch |
| 24 |
@@ -1,13 +1,28 @@ |
| 25 |
diff --git a/emacs/auc-menu.el b/emacs/auc-menu.el |
| 26 |
-index f6483b0..602c6fc 100644 |
| 27 |
+index f6483b0..80fe660 100644 |
| 28 |
--- a/emacs/auc-menu.el |
| 29 |
+++ b/emacs/auc-menu.el |
| 30 |
-@@ -92,7 +92,7 @@ |
| 31 |
+@@ -92,10 +92,10 @@ |
| 32 |
(defmacro easy-menu-define (symbol maps doc menu) |
| 33 |
"Define SYMBOL to be a menu for keymaps MAPS. |
| 34 |
DOC is the documentation string, and MENU is a Lucid style menu." |
| 35 |
- (` (progn |
| 36 |
-+ `( (progn |
| 37 |
++ `(progn |
| 38 |
(require 'auc-menu) ;For `easy-menu-do-define'. |
| 39 |
(defvar (, symbol) nil (, doc)) |
| 40 |
- (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu))))) |
| 41 |
+- (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu))))) |
| 42 |
++ (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu)))) |
| 43 |
+ |
| 44 |
+ (cond |
| 45 |
+ |
| 46 |
+@@ -212,8 +212,8 @@ DOC is the documentation string, and MENU is a Lucid style menu." |
| 47 |
+ |
| 48 |
+ (defun easy-menu-do-define (symbol maps doc menu) |
| 49 |
+ (set symbol (easy-menu-create-keymaps (car menu) (cdr menu))) |
| 50 |
+- (fset symbol (` (lambda (event) (, doc) (interactive "@e") |
| 51 |
+- (easy-popup-menu event (, symbol))))) |
| 52 |
++ (fset symbol `(lambda (event) (, doc) (interactive "@e") |
| 53 |
++ (easy-popup-menu event (, symbol)))) |
| 54 |
+ (mapcar (function (lambda (map) |
| 55 |
+ (define-key map (vector 'menu-bar (intern (car menu))) |
| 56 |
+ (cons (car menu) (symbol-value symbol))))) |
Archives