[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/engine-mode 7617af1c21 04/71: avoid multiple-evaluation is
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/engine-mode 7617af1c21 04/71: avoid multiple-evaluation issue for engine-name |
Date: |
Wed, 21 Dec 2022 09:58:57 -0500 (EST) |
branch: elpa/engine-mode
commit 7617af1c21de9dd625bbd4eda08442f4c70d944f
Author: Harry Schwartz <hello@harryrschwartz.com>
Commit: Harry Schwartz <hello@harryrschwartz.com>
avoid multiple-evaluation issue for engine-name
---
engine-mode.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/engine-mode.el b/engine-mode.el
index 444a9285b5..065af62421 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -86,12 +86,13 @@
(quote ,(engine/function-name engine-name)))))
(defmacro defengine (engine-name search-engine-url &optional keybinding)
- `(progn (defun ,(engine/function-name engine-name) ()
- ,(engine/docstring engine-name)
- (interactive)
- (engine/execute-search ,search-engine-url
- (engine/get-query ,(symbol-name
engine-name))))
- ,(engine/bind-key engine-name keybinding)))
+ (let ((evaled-engine-name engine-name))
+ `(progn (defun ,(engine/function-name evaled-engine-name) ()
+ ,(engine/docstring evaled-engine-name)
+ (interactive )
+ (engine/execute-search ,search-engine-url
+ (engine/get-query ,(symbol-name
evaled-engine-name))))
+ ,(engine/bind-key evaled-engine-name keybinding))))
(provide 'engine-mode)
;;; engine-mode.el ends here
- [nongnu] elpa/engine-mode c73489f15b 22/71: Add README documentation for custom docstrings, (continued)
- [nongnu] elpa/engine-mode c73489f15b 22/71: Add README documentation for custom docstrings, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 449c09afe5 26/71: Nest prefixed keymaps correctly, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode e44d23f6c9 28/71: Add melpa-stable badge to README, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode c37373e36c 06/71: requiring engine-mode, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 98020c5c8f 30/71: Update README text around Chrome script, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 96b3488a6d 54/71: Bump version to 2.1.1, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 30a361b27f 71/71: Remove the rfcs search engine from the docs, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode e99f205873 57/71: Document a definition of the Qwant search engine, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 4f2abf66d9 53/71: Ensure that local keymaps aren't propagated, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode d99f9b4ab2 63/71: Prevent browse-url-browser-function shadowing, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 7617af1c21 04/71: avoid multiple-evaluation issue for engine-name,
ELPA Syncer <=
- [nongnu] elpa/engine-mode b84d806f75 07/71: fix documentation typo, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode b804a5d6c8 13/71: use symbol under point as the default search term, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 3d4d39f29c 16/71: License under GPLv3, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 243d046914 35/71: make engine-mode keybinding prefix customizable, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 2c327f1785 24/71: Set engine-specific browsers, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 244610231f 34/71: Include a MELPA badge on the README, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 59f1d463fa 39/71: Fix rebind key conflict., ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 224919b648 29/71: Corrected Project Gutenberg URL., ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode eff5f26894 25/71: Add a custom variable to set the default browser, ELPA Syncer, 2022/12/21
- [nongnu] elpa/engine-mode 282f5d5910 62/71: Fix link to MELPA Stable status badge, ELPA Syncer, 2022/12/21