[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu a33cc1b: * frog-menu.el: Address some compile
From: |
Stefan Monnier |
Subject: |
[elpa] externals/frog-menu a33cc1b: * frog-menu.el: Address some compiler warnings |
Date: |
Sun, 24 Mar 2019 09:42:21 -0400 (EDT) |
branch: externals/frog-menu
commit a33cc1b0b120ef356c1ebc97b2ea7dca5ec7605b
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* frog-menu.el: Address some compiler warnings
---
frog-menu.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/frog-menu.el b/frog-menu.el
index ec1cf77..e472b47 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -365,7 +365,7 @@ horizontal direction which default to frame width.
Returns the buffer containing the formatted grid."
(with-temp-buffer
- (let* ((length (apply 'max
+ (let* ((length (apply #'max
(mapcar #'string-width strings)))
(wwidth (or width (frame-width)))
(columns (min cols (/ wwidth (+ frog-menu-min-col-padding length))))
@@ -492,13 +492,14 @@ buffer positions containing the candidates and default to
(defun frog-menu--posframe-ace-handler (char)
"Execute menu action for CHAR."
- (cond ((memq char '(27 ?\C-g))
+ (cond ((memq char '(?\e ?\C-g))
;; exit silently
(throw 'done 'exit))
((mouse-event-p char)
(signal 'user-error (list "Mouse event not handled" char)))
(t
(require 'edmacro)
+ ;; FIXME: Why not `key-description'?
(let* ((key (kbd (edmacro-format-keys (vector char))))
(cmd (lookup-key frog-menu--avy-action-map key)))
(if (commandp cmd)
@@ -550,6 +551,8 @@ ACTIONS is the argument of `frog-menu-read'."
buffer window)))
;; init map which passes actions info to avy handler
(frog-menu--init-avy-action-map actions)
+ ;; FIXME: These aren't found in my copy of avy!
+ (defvar avy-single-candidate-jump) (defvar avy-pre-action)
(if candidates
(let* ((avy-keys frog-menu-avy-keys)
(avy-single-candidate-jump (null actions))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/frog-menu a33cc1b: * frog-menu.el: Address some compiler warnings,
Stefan Monnier <=