[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 51f020f846 03/11: Replace single quotes by function q
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 51f020f846 03/11: Replace single quotes by function quotes in many places |
Date: |
Mon, 4 Jul 2022 02:58:44 -0400 (EDT) |
branch: elpa/helm
commit 51f020f8461d8c51847ba2e15a7b824217fefbf3
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Thierry Volpiatto <thievol@posteo.net>
Replace single quotes by function quotes in many places
---
helm-adaptive.el | 16 +++---
helm-bookmark.el | 32 +++++------
helm-buffers.el | 56 ++++++++++----------
helm-color.el | 8 +--
helm-comint.el | 12 ++---
helm-command.el | 18 +++----
helm-core.el | 144 +++++++++++++++++++++++++-------------------------
helm-dabbrev.el | 6 +--
helm-elisp-package.el | 22 ++++----
helm-elisp.el | 13 ++---
helm-eshell.el | 14 ++---
helm-eval.el | 22 ++++----
12 files changed, 182 insertions(+), 181 deletions(-)
diff --git a/helm-adaptive.el b/helm-adaptive.el
index 69b616f9c1..832ff72b37 100644
--- a/helm-adaptive.el
+++ b/helm-adaptive.el
@@ -84,19 +84,19 @@ Format: ((SOURCE-NAME
(progn
(unless helm-adaptive-history
(helm-adaptive-maybe-load-history))
- (add-hook 'kill-emacs-hook 'helm-adaptive-save-history)
+ (add-hook 'kill-emacs-hook #'helm-adaptive-save-history)
;; Should run at beginning of `helm-initial-setup'.
- (add-hook 'helm-before-initialize-hook 'helm-adaptive-done-reset)
+ (add-hook 'helm-before-initialize-hook #'helm-adaptive-done-reset)
;; Should run at beginning of `helm-exit-minibuffer'.
- (add-hook 'helm-before-action-hook 'helm-adaptive-store-selection)
+ (add-hook 'helm-before-action-hook #'helm-adaptive-store-selection)
;; Should run at beginning of `helm-select-action'.
- (add-hook 'helm-select-action-hook 'helm-adaptive-store-selection))
+ (add-hook 'helm-select-action-hook #'helm-adaptive-store-selection))
(helm-adaptive-save-history)
(setq helm-adaptive-history nil)
- (remove-hook 'kill-emacs-hook 'helm-adaptive-save-history)
- (remove-hook 'helm-before-initialize-hook 'helm-adaptive-done-reset)
- (remove-hook 'helm-before-action-hook 'helm-adaptive-store-selection)
- (remove-hook 'helm-select-action-hook 'helm-adaptive-store-selection)))
+ (remove-hook 'kill-emacs-hook #'helm-adaptive-save-history)
+ (remove-hook 'helm-before-initialize-hook #'helm-adaptive-done-reset)
+ (remove-hook 'helm-before-action-hook #'helm-adaptive-store-selection)
+ (remove-hook 'helm-select-action-hook #'helm-adaptive-store-selection)))
(defun helm-adapt-use-adaptive-p (&optional source-name)
"Return current source only if it use adaptive history, nil otherwise."
diff --git a/helm-bookmark.el b/helm-bookmark.el
index 842cdb9f72..3ee9a62984 100644
--- a/helm-bookmark.el
+++ b/helm-bookmark.el
@@ -117,11 +117,11 @@
(defvar helm-bookmark-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c o") 'helm-bookmark-run-jump-other-window)
- (define-key map (kbd "C-c C-o") 'helm-bookmark-run-jump-other-frame)
- (define-key map (kbd "C-d") 'helm-bookmark-run-delete)
- (define-key map (kbd "C-]") 'helm-bookmark-toggle-filename)
- (define-key map (kbd "M-e") 'helm-bookmark-run-edit)
+ (define-key map (kbd "C-c o") #'helm-bookmark-run-jump-other-window)
+ (define-key map (kbd "C-c C-o") #'helm-bookmark-run-jump-other-frame)
+ (define-key map (kbd "C-d") #'helm-bookmark-run-delete)
+ (define-key map (kbd "C-]") #'helm-bookmark-toggle-filename)
+ (define-key map (kbd "M-e") #'helm-bookmark-run-edit)
map)
"Generic Keymap for Emacs bookmark sources.")
@@ -338,18 +338,18 @@ If `browse-url-browser-function' is set to something else
than
;; (`bookmark-w3m-bookmark-jump') will use our handler which open
;; the bookmark in a new tab or in an external browser depending
;; on `browse-url-browser-function'.
-(defalias 'bookmark-w3m-bookmark-jump 'helm-bookmark-jump-w3m)
+(defalias 'bookmark-w3m-bookmark-jump #'helm-bookmark-jump-w3m)
;; Provide compatibility with old handlers provided in external
;; packages bookmark-extensions.el and bookmark+.
-(defalias 'bmkext-jump-woman 'woman-bookmark-jump)
-(defalias 'bmkext-jump-man 'Man-bookmark-jump)
-(defalias 'bmkext-jump-w3m 'helm-bookmark-jump-w3m)
-(defalias 'bmkext-jump-gnus 'gnus-summary-bookmark-jump)
-(defalias 'bookmarkp-jump-gnus 'gnus-summary-bookmark-jump)
-(defalias 'bookmarkp-jump-w3m 'helm-bookmark-jump-w3m)
-(defalias 'bookmarkp-jump-woman 'woman-bookmark-jump)
-(defalias 'bookmarkp-jump-man 'Man-bookmark-jump)
+(defalias 'bmkext-jump-woman #'woman-bookmark-jump)
+(defalias 'bmkext-jump-man #'Man-bookmark-jump)
+(defalias 'bmkext-jump-w3m #'helm-bookmark-jump-w3m)
+(defalias 'bmkext-jump-gnus #'gnus-summary-bookmark-jump)
+(defalias 'bookmarkp-jump-gnus #'gnus-summary-bookmark-jump)
+(defalias 'bookmarkp-jump-w3m #'helm-bookmark-jump-w3m)
+(defalias 'bookmarkp-jump-woman #'woman-bookmark-jump)
+(defalias 'bookmarkp-jump-man #'Man-bookmark-jump)
;;;; Filtered bookmark sources
@@ -496,7 +496,7 @@ If `browse-url-browser-function' is set to something else
than
(defvar helm-bookmark-find-files-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-bookmark-map)
- (define-key map (kbd "C-x C-d") 'helm-bookmark-run-browse-project)
+ (define-key map (kbd "C-x C-d") #'helm-bookmark-run-browse-project)
map))
(defclass helm-bookmark-override-inheritor (helm-source) ())
@@ -717,7 +717,7 @@ consecutive words from the buffer into the new bookmark
name."
(let ((newname (or new (read-from-minibuffer
"New name: " nil
(let ((now-map (copy-keymap
minibuffer-local-map)))
- (define-key now-map "\C-w" 'bookmark-yank-word)
+ (define-key now-map "\C-w" #'bookmark-yank-word)
now-map)
nil 'bookmark-history))))
(bookmark-set-name old newname)
diff --git a/helm-buffers.el b/helm-buffers.el
index ce91161fc5..88ebd7421e 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -250,30 +250,30 @@ Note that this variable is buffer-local.")
;; No need to have separate command for grep and zgrep
;; as we don't use recursivity for buffers.
;; So use zgrep for both as it is capable to handle non--compressed files.
- (define-key map (kbd "M-g s") 'helm-buffer-run-zgrep)
- (define-key map (kbd "C-s") 'helm-buffers-run-occur)
- (define-key map (kbd "C-x C-d") 'helm-buffers-run-browse-project)
- (define-key map (kbd "C-c o") 'helm-buffer-switch-other-window)
- (define-key map (kbd "C-c C-o") 'helm-buffer-switch-other-frame)
- (define-key map (kbd "M-g M-g") 'helm-buffer-run-goto-line)
- (define-key map (kbd "C-c =") 'helm-buffer-run-ediff)
- (define-key map (kbd "M-=") 'helm-buffer-run-ediff-merge)
- (define-key map (kbd "C-=") 'helm-buffer-diff-persistent)
- (define-key map (kbd "M-G") 'helm-buffer-revert-persistent)
- (define-key map (kbd "C-c d") 'helm-buffer-run-kill-persistent)
- (define-key map (kbd "M-D") 'helm-buffer-run-kill-buffers)
- (define-key map (kbd "C-x C-s") 'helm-buffer-save-persistent)
- (define-key map (kbd "C-x s") 'helm-buffer-run-save-some-buffers)
- (define-key map (kbd "C-M-%") 'helm-buffer-run-query-replace-regexp)
- (define-key map (kbd "M-%") 'helm-buffer-run-query-replace)
- (define-key map (kbd "M-R") 'helm-buffer-run-rename-buffer)
- (define-key map (kbd "M-m") 'helm-toggle-all-marks)
- (define-key map (kbd "M-a") 'helm-mark-all)
- (define-key map (kbd "C-]") 'helm-toggle-buffers-details)
- (define-key map (kbd "C-c a") 'helm-buffers-toggle-show-hidden-buffers)
- (define-key map (kbd "C-M-SPC") 'helm-buffers-mark-similar-buffers)
+ (define-key map (kbd "M-g s") #'helm-buffer-run-zgrep)
+ (define-key map (kbd "C-s") #'helm-buffers-run-occur)
+ (define-key map (kbd "C-x C-d") #'helm-buffers-run-browse-project)
+ (define-key map (kbd "C-c o") #'helm-buffer-switch-other-window)
+ (define-key map (kbd "C-c C-o") #'helm-buffer-switch-other-frame)
+ (define-key map (kbd "M-g M-g") #'helm-buffer-run-goto-line)
+ (define-key map (kbd "C-c =") #'helm-buffer-run-ediff)
+ (define-key map (kbd "M-=") #'helm-buffer-run-ediff-merge)
+ (define-key map (kbd "C-=") #'helm-buffer-diff-persistent)
+ (define-key map (kbd "M-G") #'helm-buffer-revert-persistent)
+ (define-key map (kbd "C-c d") #'helm-buffer-run-kill-persistent)
+ (define-key map (kbd "M-D") #'helm-buffer-run-kill-buffers)
+ (define-key map (kbd "C-x C-s") #'helm-buffer-save-persistent)
+ (define-key map (kbd "C-x s") #'helm-buffer-run-save-some-buffers)
+ (define-key map (kbd "C-M-%") #'helm-buffer-run-query-replace-regexp)
+ (define-key map (kbd "M-%") #'helm-buffer-run-query-replace)
+ (define-key map (kbd "M-R") #'helm-buffer-run-rename-buffer)
+ (define-key map (kbd "M-m") #'helm-toggle-all-marks)
+ (define-key map (kbd "M-a") #'helm-mark-all)
+ (define-key map (kbd "C-]") #'helm-toggle-buffers-details)
+ (define-key map (kbd "C-c a")
#'helm-buffers-toggle-show-hidden-buffers)
+ (define-key map (kbd "C-M-SPC") #'helm-buffers-mark-similar-buffers)
(when (fboundp 'tab-bar-mode)
- (define-key map (kbd "C-c C-t") 'helm-buffers-switch-to-buffer-new-tab))
+ (define-key map (kbd "C-c C-t") #'helm-buffers-switch-to-buffer-new-tab))
map)
"Keymap for buffer sources in helm.")
@@ -368,8 +368,8 @@ Note that this variable is buffer-local.")
(defvar helm-buffer-not-found-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c o") 'helm-buffers-not-found-run-switch-ow)
- (define-key map (kbd "C-c C-o") 'helm-buffers-not-found-run-switch-of)
+ (define-key map (kbd "C-c o") #'helm-buffers-not-found-run-switch-ow)
+ (define-key map (kbd "C-c C-o") #'helm-buffers-not-found-run-switch-of)
map)
"Keymap for `helm-source-buffer-not-found' source.")
@@ -611,7 +611,7 @@ buffers)."
(cl-loop for p in (helm-mm-split-pattern helm-pattern)
unless (member (substring p 0 1) '("*" "/" "@" "!"))
collect p into lst
- finally return (mapconcat 'identity lst (or separator " "))))
+ finally return (mapconcat #'identity lst (or separator " "))))
(defun helm-buffers-sort-transformer (candidates source)
(cl-assert helm-buffers-sort-fn nil "Wrong type argument functionp: nil")
@@ -732,7 +732,7 @@ I.e. same color."
for p in (helm-mm-split-pattern pat)
when (string-match "\\`@\\(.*\\)" p)
collect (match-string 1 p) into lst
- finally return (mapconcat 'identity lst " ")))
+ finally return (mapconcat #'identity lst " ")))
(patterns (helm-mm-3-get-patterns pattern)))
(if (and buf patterns)
(with-current-buffer buf
@@ -823,7 +823,7 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
(and (file-exists-p it) (revert-buffer t t)))))
(defun helm-revert-marked-buffers (_ignore)
- (mapc 'helm-revert-buffer (helm-marked-candidates)))
+ (mapc #'helm-revert-buffer (helm-marked-candidates)))
(defun helm-buffer-revert-and-update (_candidate)
(with-helm-buffer
diff --git a/helm-color.el b/helm-color.el
index 639c3ec75a..cc9a4c35b5 100644
--- a/helm-color.el
+++ b/helm-color.el
@@ -113,10 +113,10 @@
(defvar helm-color-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c n") 'helm-color-run-insert-name)
- (define-key map (kbd "C-c N") 'helm-color-run-kill-name)
- (define-key map (kbd "C-c r") 'helm-color-run-insert-rgb)
- (define-key map (kbd "C-c R") 'helm-color-run-kill-rgb)
+ (define-key map (kbd "C-c n") #'helm-color-run-insert-name)
+ (define-key map (kbd "C-c N") #'helm-color-run-kill-name)
+ (define-key map (kbd "C-c r") #'helm-color-run-insert-rgb)
+ (define-key map (kbd "C-c R") #'helm-color-run-kill-rgb)
map))
(defvar helm-source-colors
diff --git a/helm-comint.el b/helm-comint.el
index 6f85249bfa..e7dff8d358 100644
--- a/helm-comint.el
+++ b/helm-comint.el
@@ -80,8 +80,8 @@ you will not have anymore separators between candidates."
(defvar helm-comint-prompts-keymap
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c o") 'helm-comint-prompts-other-window)
- (define-key map (kbd "C-c C-o") 'helm-comint-prompts-other-frame)
+ (define-key map (kbd "C-c o") #'helm-comint-prompts-other-window)
+ (define-key map (kbd "C-c C-o") #'helm-comint-prompts-other-frame)
map)
"Keymap for `helm-comint-prompt-all'.")
@@ -165,11 +165,11 @@ See `helm-comint-prompts-list'."
(defun helm-comint-prompts ()
"Pre-configured `helm' to browse the prompts of the current comint buffer."
(interactive)
- (if (apply 'derived-mode-p helm-comint-mode-list)
+ (if (apply #'derived-mode-p helm-comint-mode-list)
(helm :sources
(helm-build-sync-source "Comint prompts"
:candidates (helm-comint-prompts-list major-mode)
- :candidate-transformer 'helm-comint-prompts-transformer
+ :candidate-transformer #'helm-comint-prompts-transformer
:action '(("Go to prompt" . helm-comint-prompts-goto)))
:buffer "*helm comint prompts*")
(message "Current buffer is not a comint buffer")))
@@ -178,11 +178,11 @@ See `helm-comint-prompts-list'."
(defun helm-comint-prompts-all ()
"Pre-configured `helm' to browse the prompts of all comint sessions."
(interactive)
- (if (apply 'derived-mode-p helm-comint-mode-list)
+ (if (apply #'derived-mode-p helm-comint-mode-list)
(helm :sources
(helm-build-sync-source "All comint prompts"
:candidates (helm-comint-prompts-list-all major-mode)
- :candidate-transformer 'helm-comint-prompts-all-transformer
+ :candidate-transformer #'helm-comint-prompts-all-transformer
:action (quote (("Go to prompt" . helm-comint-prompts-goto)
("Go to prompt in other window `C-c o`" .
helm-comint-prompts-goto-other-window)
diff --git a/helm-command.el b/helm-command.el
index 9b5c070241..b2b6866438 100644
--- a/helm-command.el
+++ b/helm-command.el
@@ -47,8 +47,8 @@
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-comp-read-map)
(define-key map (kbd "C-u") nil)
- (define-key map (kbd "C-u") 'helm-M-x-universal-argument)
- (define-key map (kbd "C-]") 'helm-M-x-toggle-short-doc)
+ (define-key map (kbd "C-u") #'helm-M-x-universal-argument)
+ (define-key map (kbd "C-]") #'helm-M-x-toggle-short-doc)
map))
(defcustom helm-M-x-show-short-doc nil
@@ -240,7 +240,7 @@ algorithm."
(defun helm-M-x--before-action-hook ()
(remove-hook 'helm-move-selection-after-hook
- 'helm-M-x--move-selection-after-hook))
+ #'helm-M-x--move-selection-after-hook))
(defclass helm-M-x-class (helm-source-in-buffer helm-type-command)
((requires-pattern :initform 0)
@@ -257,7 +257,7 @@ algorithm."
(when (and helm-M-x--timer (timerp helm-M-x--timer))
(cancel-timer helm-M-x--timer)
(setq helm-M-x--timer nil))
- (setq helm-M-x--timer (run-at-time 1 0.1 'helm-M-x--notify-prefix-arg))
+ (setq helm-M-x--timer (run-at-time 1 0.1 #'helm-M-x--notify-prefix-arg))
(setq helm--mode-line-display-prefarg t)
;; Prevent displaying a wrong prefix arg when helm-resume is called
;; from prefix arg.
@@ -311,13 +311,13 @@ default to `extended-command-history'."
((integerp helm-M-x-prefix-argument)
(format "%d " helm-M-x-prefix-argument)))
"M-x ")))
- (setq helm-M-x--timer (run-at-time 1 0.1 'helm-M-x--notify-prefix-arg))
+ (setq helm-M-x--timer (run-at-time 1 0.1 #'helm-M-x--notify-prefix-arg))
;; Fix Bug#2250, add `helm-move-selection-after-hook' which
;; reset prefix arg to nil only for this helm session.
(add-hook 'helm-move-selection-after-hook
- 'helm-M-x--move-selection-after-hook)
+ #'helm-M-x--move-selection-after-hook)
(add-hook 'helm-before-action-hook
- 'helm-M-x--before-action-hook)
+ #'helm-M-x--before-action-hook)
(when (and sources helm-M-x-reverse-history)
(setq sources (nreverse sources)))
(unwind-protect
@@ -346,9 +346,9 @@ default to `extended-command-history'."
helm-fuzzy-sort-fn (default-toplevel-value 'helm-fuzzy-sort-fn))
;; Be sure to remove it here as well in case of quit.
(remove-hook 'helm-move-selection-after-hook
- 'helm-M-x--move-selection-after-hook)
+ #'helm-M-x--move-selection-after-hook)
(remove-hook 'helm-before-action-hook
- 'helm-M-x--before-action-hook))
+ #'helm-M-x--before-action-hook))
;; Reset helm-M-x--unwind-forms-done to nil when DONE is
;; unspecified.
(setq helm-M-x--unwind-forms-done done))
diff --git a/helm-core.el b/helm-core.el
index d032370249..43bbc21ceb 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -191,7 +191,7 @@ and vectors, so don't use strings to define them."
(if (commandp com)
(call-interactively com)
(setq unread-command-events
- (nconc (mapcar 'identity kb)
+ (nconc (mapcar #'identity kb)
unread-command-events)))
nil)))))
(when timer (cancel-timer timer))
@@ -203,86 +203,86 @@ and vectors, so don't use strings to define them."
(defvar helm-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map minibuffer-local-map)
- (define-key map (kbd "<down>") 'helm-next-line)
- (define-key map (kbd "<up>") 'helm-previous-line)
- (define-key map (kbd "C-n") 'helm-next-line)
- (define-key map (kbd "C-p") 'helm-previous-line)
- (define-key map (kbd "<C-down>") 'helm-follow-action-forward)
- (define-key map (kbd "<C-up>") 'helm-follow-action-backward)
- (define-key map (kbd "<prior>") 'helm-previous-page)
- (define-key map (kbd "<next>") 'helm-next-page)
- (define-key map (kbd "M-v") 'helm-scroll-up)
- (define-key map (kbd "C-v") 'helm-scroll-down)
- (define-key map (kbd "M-<") 'helm-beginning-of-buffer)
- (define-key map (kbd "M->") 'helm-end-of-buffer)
- (define-key map (kbd "C-g") 'helm-keyboard-quit)
- (define-key map (kbd "<RET>") 'helm-maybe-exit-minibuffer)
- (define-key map (kbd "C-i") 'helm-select-action)
- (define-key map (kbd "C-j") 'helm-execute-persistent-action)
- (define-key map (kbd "C-o") 'helm-next-source)
- (define-key map (kbd "M-o") 'helm-previous-source)
- (define-key map (kbd "<right>") 'helm-next-source)
- (define-key map (kbd "<left>") 'helm-previous-source)
- (define-key map (kbd "C-l") 'helm-recenter-top-bottom-other-window)
- (define-key map (kbd "M-C-l") 'helm-reposition-window-other-window)
- (define-key map (kbd "C-M-v") 'helm-scroll-other-window)
- (define-key map (kbd "M-<next>") 'helm-scroll-other-window)
- (define-key map (kbd "C-M-y") 'helm-scroll-other-window-down)
- (define-key map (kbd "C-M-S-v") 'helm-scroll-other-window-down)
- (define-key map (kbd "M-<prior>") 'helm-scroll-other-window-down)
- (define-key map (kbd "<C-M-down>") 'helm-scroll-other-window)
- (define-key map (kbd "<C-M-up>") 'helm-scroll-other-window-down)
- (define-key map (kbd "C-@") 'helm-toggle-visible-mark)
- (define-key map (kbd "C-SPC") 'helm-toggle-visible-mark-forward)
- (define-key map (kbd "M-SPC") 'helm-toggle-visible-mark-backward)
+ (define-key map (kbd "<down>") #'helm-next-line)
+ (define-key map (kbd "<up>") #'helm-previous-line)
+ (define-key map (kbd "C-n") #'helm-next-line)
+ (define-key map (kbd "C-p") #'helm-previous-line)
+ (define-key map (kbd "<C-down>") #'helm-follow-action-forward)
+ (define-key map (kbd "<C-up>") #'helm-follow-action-backward)
+ (define-key map (kbd "<prior>") #'helm-previous-page)
+ (define-key map (kbd "<next>") #'helm-next-page)
+ (define-key map (kbd "M-v") #'helm-scroll-up)
+ (define-key map (kbd "C-v") #'helm-scroll-down)
+ (define-key map (kbd "M-<") #'helm-beginning-of-buffer)
+ (define-key map (kbd "M->") #'helm-end-of-buffer)
+ (define-key map (kbd "C-g") #'helm-keyboard-quit)
+ (define-key map (kbd "<RET>") #'helm-maybe-exit-minibuffer)
+ (define-key map (kbd "C-i") #'helm-select-action)
+ (define-key map (kbd "C-j") #'helm-execute-persistent-action)
+ (define-key map (kbd "C-o") #'helm-next-source)
+ (define-key map (kbd "M-o") #'helm-previous-source)
+ (define-key map (kbd "<right>") #'helm-next-source)
+ (define-key map (kbd "<left>") #'helm-previous-source)
+ (define-key map (kbd "C-l") #'helm-recenter-top-bottom-other-window)
+ (define-key map (kbd "M-C-l") #'helm-reposition-window-other-window)
+ (define-key map (kbd "C-M-v") #'helm-scroll-other-window)
+ (define-key map (kbd "M-<next>") #'helm-scroll-other-window)
+ (define-key map (kbd "C-M-y") #'helm-scroll-other-window-down)
+ (define-key map (kbd "C-M-S-v") #'helm-scroll-other-window-down)
+ (define-key map (kbd "M-<prior>") #'helm-scroll-other-window-down)
+ (define-key map (kbd "<C-M-down>") #'helm-scroll-other-window)
+ (define-key map (kbd "<C-M-up>") #'helm-scroll-other-window-down)
+ (define-key map (kbd "C-@") #'helm-toggle-visible-mark)
+ (define-key map (kbd "C-SPC") #'helm-toggle-visible-mark-forward)
+ (define-key map (kbd "M-SPC") #'helm-toggle-visible-mark-backward)
(define-key map (kbd "M-[") nil)
- (define-key map (kbd "M-(") 'helm-prev-visible-mark)
- (define-key map (kbd "M-)") 'helm-next-visible-mark)
- (define-key map (kbd "C-k") 'helm-delete-minibuffer-contents)
- (define-key map (kbd "C-x C-f") 'helm-quit-and-find-file)
- (define-key map (kbd "M-m") 'helm-toggle-all-marks)
- (define-key map (kbd "M-a") 'helm-mark-all)
- (define-key map (kbd "M-U") 'helm-unmark-all)
- (define-key map (kbd "C-M-a") 'helm-show-all-candidates-in-source)
- (define-key map (kbd "C-M-e") 'helm-display-all-sources)
- (define-key map (kbd "C-s") 'undefined)
- (define-key map (kbd "M-s") 'undefined)
- (define-key map (kbd "C-}") 'helm-narrow-window)
- (define-key map (kbd "C-{") 'helm-enlarge-window)
- (define-key map (kbd "C-c -") 'helm-swap-windows)
- (define-key map (kbd "C-c _") 'helm-toggle-full-frame)
- (define-key map (kbd "C-c %")
'helm-exchange-minibuffer-and-header-line)
- (define-key map (kbd "C-c C-y") 'helm-yank-selection)
- (define-key map (kbd "C-c C-k") 'helm-kill-selection-and-quit)
- (define-key map (kbd "C-c C-i") 'helm-insert-or-copy)
- (define-key map (kbd "C-c C-f") 'helm-follow-mode)
- (define-key map (kbd "C-c C-u") 'helm-refresh)
- (define-key map (kbd "C-c >") 'helm-toggle-truncate-line)
- (define-key map (kbd "C-c l") 'helm-display-line-numbers-mode)
- (define-key map (kbd "M-p") 'previous-history-element)
- (define-key map (kbd "M-n") 'next-history-element)
- (define-key map (kbd "C-!") 'helm-toggle-suspend-update)
- (define-key map (kbd "C-x b")
'helm-resume-previous-session-after-quit)
- (define-key map (kbd "C-x C-b") 'helm-resume-list-buffers-after-quit)
- (helm-define-key-with-subkeys map (kbd "C-c n") ?n 'helm-run-cycle-resume)
+ (define-key map (kbd "M-(") #'helm-prev-visible-mark)
+ (define-key map (kbd "M-)") #'helm-next-visible-mark)
+ (define-key map (kbd "C-k") #'helm-delete-minibuffer-contents)
+ (define-key map (kbd "C-x C-f") #'helm-quit-and-find-file)
+ (define-key map (kbd "M-m") #'helm-toggle-all-marks)
+ (define-key map (kbd "M-a") #'helm-mark-all)
+ (define-key map (kbd "M-U") #'helm-unmark-all)
+ (define-key map (kbd "C-M-a") #'helm-show-all-candidates-in-source)
+ (define-key map (kbd "C-M-e") #'helm-display-all-sources)
+ (define-key map (kbd "C-s") #'undefined)
+ (define-key map (kbd "M-s") #'undefined)
+ (define-key map (kbd "C-}") #'helm-narrow-window)
+ (define-key map (kbd "C-{") #'helm-enlarge-window)
+ (define-key map (kbd "C-c -") #'helm-swap-windows)
+ (define-key map (kbd "C-c _") #'helm-toggle-full-frame)
+ (define-key map (kbd "C-c %")
#'helm-exchange-minibuffer-and-header-line)
+ (define-key map (kbd "C-c C-y") #'helm-yank-selection)
+ (define-key map (kbd "C-c C-k") #'helm-kill-selection-and-quit)
+ (define-key map (kbd "C-c C-i") #'helm-insert-or-copy)
+ (define-key map (kbd "C-c C-f") #'helm-follow-mode)
+ (define-key map (kbd "C-c C-u") #'helm-refresh)
+ (define-key map (kbd "C-c >") #'helm-toggle-truncate-line)
+ (define-key map (kbd "C-c l") #'helm-display-line-numbers-mode)
+ (define-key map (kbd "M-p") #'previous-history-element)
+ (define-key map (kbd "M-n") #'next-history-element)
+ (define-key map (kbd "C-!") #'helm-toggle-suspend-update)
+ (define-key map (kbd "C-x b")
#'helm-resume-previous-session-after-quit)
+ (define-key map (kbd "C-x C-b") #'helm-resume-list-buffers-after-quit)
+ (helm-define-key-with-subkeys map (kbd "C-c n") ?n #'helm-run-cycle-resume)
;; Disable `file-cache-minibuffer-complete'.
- (define-key map (kbd "<C-tab>") 'undefined)
+ (define-key map (kbd "<C-tab>") #'undefined)
;; Multi keys
- (define-key map (kbd "C-t") 'helm-toggle-resplit-and-swap-windows)
+ (define-key map (kbd "C-t") #'helm-toggle-resplit-and-swap-windows)
;; Debugging command
- (define-key map (kbd "C-h C-d") 'helm-enable-or-switch-to-debug)
- (define-key map (kbd "C-h c") 'helm-customize-group)
+ (define-key map (kbd "C-h C-d") #'helm-enable-or-switch-to-debug)
+ (define-key map (kbd "C-h c") #'helm-customize-group)
;; Allow to eval keymap without errors.
(define-key map [f1] nil)
- (define-key map (kbd "C-h C-h") 'undefined)
- (define-key map (kbd "C-h h") 'undefined)
+ (define-key map (kbd "C-h C-h") #'undefined)
+ (define-key map (kbd "C-h h") #'undefined)
(helm-define-key-with-subkeys map
- (kbd "C-w") ?\C-w 'helm-yank-text-at-point
+ (kbd "C-w") ?\C-w #'helm-yank-text-at-point
'((?\C-_ . helm-undo-yank-text-at-point)))
;; Use `describe-mode' key in `global-map'.
- (cl-dolist (k (where-is-internal 'describe-mode global-map))
- (define-key map k 'helm-help))
- (define-key map (kbd "C-c ?") 'helm-help)
+ (cl-dolist (k (where-is-internal #'describe-mode global-map))
+ (define-key map k #'helm-help))
+ (define-key map (kbd "C-c ?") #'helm-help)
;; Bind all actions from 1 to 12 to their corresponding nth index+1.
(cl-loop for n from 0 to 12 do
(define-key map (kbd (format "<f%s>" (1+ n)))
diff --git a/helm-dabbrev.el b/helm-dabbrev.el
index f214c50fd3..ef6b31dce0 100644
--- a/helm-dabbrev.el
+++ b/helm-dabbrev.el
@@ -120,8 +120,8 @@ initial search for all candidates in buffer(s)."
(defvar helm-dabbrev-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "M-/") 'helm-next-line)
- (define-key map (kbd "M-:") 'helm-previous-line)
+ (define-key map (kbd "M-/") #'helm-next-line)
+ (define-key map (kbd "M-:") #'helm-previous-line)
map))
;; Internal
@@ -277,7 +277,7 @@ finally removed."
(end (point)))
(run-with-timer
0.01 nil
- 'helm-insert-completion-at-point
+ #'helm-insert-completion-at-point
beg end candidate))))
;;;###autoload
diff --git a/helm-elisp-package.el b/helm-elisp-package.el
index 258253a759..cc4a1d0304 100644
--- a/helm-elisp-package.el
+++ b/helm-elisp-package.el
@@ -365,17 +365,17 @@ See `package-autoremove'."
(defvar helm-el-package-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "M-I") 'helm-el-package-show-installed)
- (define-key map (kbd "M-O") 'helm-el-package-show-uninstalled)
- (define-key map (kbd "M-U") 'helm-el-package-show-upgrade)
- (define-key map (kbd "M-B") 'helm-el-package-show-built-in)
- (define-key map (kbd "M-A") 'helm-el-package-show-all)
- (define-key map (kbd "C-c i") 'helm-el-run-package-install)
- (define-key map (kbd "C-c r") 'helm-el-run-package-reinstall)
- (define-key map (kbd "C-c d") 'helm-el-run-package-uninstall)
- (define-key map (kbd "C-c u") 'helm-el-run-package-upgrade)
- (define-key map (kbd "C-c U") 'helm-el-run-package-upgrade-all)
- (define-key map (kbd "C-c @") 'helm-el-run-visit-homepage)
+ (define-key map (kbd "M-I") #'helm-el-package-show-installed)
+ (define-key map (kbd "M-O") #'helm-el-package-show-uninstalled)
+ (define-key map (kbd "M-U") #'helm-el-package-show-upgrade)
+ (define-key map (kbd "M-B") #'helm-el-package-show-built-in)
+ (define-key map (kbd "M-A") #'helm-el-package-show-all)
+ (define-key map (kbd "C-c i") #'helm-el-run-package-install)
+ (define-key map (kbd "C-c r") #'helm-el-run-package-reinstall)
+ (define-key map (kbd "C-c d") #'helm-el-run-package-uninstall)
+ (define-key map (kbd "C-c u") #'helm-el-run-package-upgrade)
+ (define-key map (kbd "C-c U") #'helm-el-run-package-upgrade-all)
+ (define-key map (kbd "C-c @") #'helm-el-run-visit-homepage)
map))
(defvar helm-source-list-el-package nil)
diff --git a/helm-elisp.el b/helm-elisp.el
index ce8087991e..ff90128d2c 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -331,12 +331,12 @@ Return a cons (beg . end)."
:fuzzy-match helm-lisp-fuzzy-completion
:persistent-help (helm-lisp-completion-persistent-help)
:filtered-candidate-transformer
- 'helm-lisp-completion-transformer
+ #'helm-lisp-completion-transformer
:action (lambda (candidate)
(with-helm-current-buffer
(run-with-timer
0.01 nil
- 'helm-insert-completion-at-point
+ #'helm-insert-completion-at-point
beg end candidate))))
:input (if helm-lisp-fuzzy-completion
target (concat target " "))
@@ -510,7 +510,7 @@ from `helm-commands-using-frame'."
(defvar helm-apropos-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-]") 'helm-apropos-toggle-details)
+ (define-key map (kbd "C-]") #'helm-apropos-toggle-details)
map))
(defun helm-apropos-init (test default &optional fn)
@@ -970,10 +970,11 @@ a string, i.e. the `symbol-name' of any existing symbol."
(time-convert time t)))
(format-time-string "%m/%d %T" time)))
(or (timer--repeat-delay timer) "nil")
- (mapconcat 'identity (split-string
+ (mapconcat #'identity (split-string
(prin1-to-string (timer--function timer))
- "\n") " ")
- (mapconcat 'prin1-to-string (timer--args timer) " ")))
+ "\n")
+ " ")
+ (mapconcat #'prin1-to-string (timer--args timer) " ")))
;;;###autoload
(defun helm-timers ()
diff --git a/helm-eshell.el b/helm-eshell.el
index 1b66679665..00b55248e6 100644
--- a/helm-eshell.el
+++ b/helm-eshell.el
@@ -57,14 +57,14 @@
(defvar helm-eshell-history-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "M-p") 'helm-next-line)
+ (define-key map (kbd "M-p") #'helm-next-line)
map)
"Keymap for `helm-eshell-history'.")
(defvar helm-esh-completion-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "TAB") 'helm-next-line)
+ (define-key map (kbd "TAB") #'helm-next-line)
map)
"Keymap for `helm-esh-pcomplete'.")
@@ -116,7 +116,7 @@ at point."
(t
(file-relative-name i)))
into lst
- finally return (sort lst 'helm-generic-sort-fn)))
+ finally return (sort lst #'helm-generic-sort-fn)))
(defclass helm-esh-source (helm-source-sync)
((init :initform (lambda ()
@@ -305,7 +305,7 @@ at point."
;; Set helm-eshell--quit-flag to non-nil only on
;; quit, this tells to not add final suffix when quitting
;; helm.
- (add-hook 'helm-quit-hook 'helm-eshell--quit-hook-fn)
+ (add-hook 'helm-quit-hook #'helm-eshell--quit-hook-fn)
(with-helm-show-completion beg end
(unwind-protect
(or (helm-esh-pcomplete--make-helm
@@ -332,7 +332,7 @@ at point."
(when (and helm-eshell--quit-flag
(string-match-p "[.]\\{2\\}\\'" last))
(insert "/"))))
- (remove-hook 'helm-quit-hook 'helm-eshell--quit-hook-fn)
+ (remove-hook 'helm-quit-hook #'helm-eshell--quit-hook-fn)
(setq helm-eshell--quit-flag nil)))))))
(defun helm-eshell--quit-hook-fn ()
@@ -385,8 +385,8 @@ at point."
(defvar helm-eshell-prompts-keymap
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c o") 'helm-eshell-prompts-other-window)
- (define-key map (kbd "C-c C-o") 'helm-eshell-prompts-other-frame)
+ (define-key map (kbd "C-c o") #'helm-eshell-prompts-other-window)
+ (define-key map (kbd "C-c C-o") #'helm-eshell-prompts-other-frame)
map)
"Keymap for `helm-eshell-prompt-all'.")
diff --git a/helm-eval.el b/helm-eval.el
index 9d261438a0..8ae4ecc291 100644
--- a/helm-eval.el
+++ b/helm-eval.el
@@ -70,15 +70,15 @@ Should take one arg: the string to display."
(defvar helm-eval-expression-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "<C-return>") 'helm-eval-new-line-and-indent)
- (define-key map (kbd "<M-tab>") 'lisp-indent-line)
- (define-key map (kbd "<C-tab>") 'helm-lisp-completion-at-point)
- (define-key map (kbd "C-p") 'previous-line)
- (define-key map (kbd "C-n") 'next-line)
- (define-key map (kbd "<up>") 'previous-line)
- (define-key map (kbd "<down>") 'next-line)
- (define-key map (kbd "<right>") 'forward-char)
- (define-key map (kbd "<left>") 'backward-char)
+ (define-key map (kbd "<C-return>") #'helm-eval-new-line-and-indent)
+ (define-key map (kbd "<M-tab>") #'lisp-indent-line)
+ (define-key map (kbd "<C-tab>") #'helm-lisp-completion-at-point)
+ (define-key map (kbd "C-p") #'previous-line)
+ (define-key map (kbd "C-n") #'next-line)
+ (define-key map (kbd "<up>") #'previous-line)
+ (define-key map (kbd "<down>") #'next-line)
+ (define-key map (kbd "<right>") #'forward-char)
+ (define-key map (kbd "<left>") #'backward-char)
map))
(defun helm-build-evaluation-result-source ()
@@ -181,10 +181,10 @@ Should take one arg: the string to display."
(interactive)
(let ((timer (run-with-idle-timer
eldoc-idle-delay 'repeat
- 'helm-eldoc-show-in-eval)))
+ #'helm-eldoc-show-in-eval)))
(unwind-protect
(minibuffer-with-setup-hook
- 'helm-eldoc-store-minibuffer
+ #'helm-eldoc-store-minibuffer
(call-interactively 'helm-eval-expression))
(and timer (cancel-timer timer))
(setq helm-eldoc-active-minibuffers-list
- [nongnu] elpa/helm updated (0fc13ddb13 -> caa92464f9), ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 445abe9b4b 01/11: Add author email address in helm-core and helm, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 0a4a778448 04/11: Remove unneeded :group slot in many places, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm cc61ea3246 02/11: Avoid using eval+defvar, use set instead, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 51f020f846 03/11: Replace single quotes by function quotes in many places,
ELPA Syncer <=
- [nongnu] elpa/helm 085e2cbbe0 07/11: Use lexical binding in helm-epa, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm caa92464f9 11/11: Remove old obsolete binding C-c ?, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 993757a4b2 05/11: Long line changes only, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 51182282fb 06/11: Use lexical option for eval, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 8a22cfa4b7 08/11: Prefix unused arguments with _, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm 38011361e4 10/11: Avoid possibly binding an action to f13, ELPA Syncer, 2022/07/04
- [nongnu] elpa/helm e841a3ca04 09/11: Fix error in some previous defface changes, ELPA Syncer, 2022/07/04