branch: elpa/helm commit db31281aae5a91c550df8c7516300d279a994ef2 Author: Thierry Volpiatto <thie...@posteo.net> Commit: Thierry Volpiatto <thie...@posteo.net>
Delete trailing white spaces --- helm-buffers.el | 2 +- helm-core.el | 20 ++++++++++---------- helm-epa.el | 2 +- helm-external.el | 2 +- helm-files.el | 26 +++++++++++++------------- helm-grep.el | 4 ++-- helm-help.el | 10 +++++----- helm-lib.el | 4 ++-- helm-locate.el | 2 +- helm-mode.el | 12 ++++++------ helm-multi-match.el | 2 +- helm-occur.el | 2 +- helm-packages.el | 4 ++-- helm-ring.el | 2 +- helm-source.el | 14 +++++++------- helm-types.el | 2 +- 16 files changed, 55 insertions(+), 55 deletions(-) diff --git a/helm-buffers.el b/helm-buffers.el index b4181d8099..ea3dcfd912 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -101,7 +101,7 @@ of this source is accessible and properly loaded." (defcustom helm-buffers-end-truncated-string ;; `truncate-string-ellipsis', the function is not available in 27.1 - ;; See issue#2673. + ;; See issue#2673. (if (char-displayable-p ?…) "…" "...") "The string to display at end of truncated buffer names." :type 'string) diff --git a/helm-core.el b/helm-core.el index b6fbaf693e..a964447222 100644 --- a/helm-core.el +++ b/helm-core.el @@ -285,14 +285,14 @@ Arg OTHER-SUBKEYS should be an alist composed of (command . short-key) where command is another command than COMMAND bound to short-key. A PROMPT can be used to describe bindings of COMMAND and OTHER-SUBKEYS. - + Return an anonymous interactive command to use with `helm-define-key-with-subkeys'." (lambda () (interactive) (let (timer) (call-interactively command) - (unless (or defining-kbd-macro executing-kbd-macro) + (unless (or defining-kbd-macro executing-kbd-macro) (unwind-protect (progn (when delay @@ -1702,7 +1702,7 @@ and creating a new one at each session, see `helm-display-buffer-reuse-frame'. Normally you don't have to use this, it have been made to workaround slow frame popup in Emacs-26, to workaround this slowness in Emacs-26 use instead -#+begin_src elisp +#+begin_src elisp (when (= emacs-major-version 26) (setq x-wait-for-event-timeout nil)) #+end_src @@ -3031,7 +3031,7 @@ HISTORY args see `helm'." ;; When non-nil (the default) the current active ;; minibuffer is used in new frame, which is not what we ;; want in helm when starting from an active minibuffer, - ;; either a helm minibuffer or something line M-:. + ;; either a helm minibuffer or something line M-:. (and ori--minibuffer-follows-selected-frame (setq minibuffer-follows-selected-frame (unless (or helm--nested @@ -4739,7 +4739,7 @@ useful when the order of the candidates is meaningful, e.g. with (count 0) beg-str end-str) ;; Happens when matching empty lines (^$), in this case there is nothing to - ;; highlight. + ;; highlight. (if (string= mpart "") candidate (when host (setq pattern (cadr (split-string pattern ":")))) @@ -4803,7 +4803,7 @@ to the matching method in use. When DIACRITICS is specified, ignore diacritics, see `char-fold-to-regexp' for more infos." (if (string= pattern "") ;; Empty pattern, do nothing. This is needed when this function - ;; is used outside of helm-fuzzy-highlight-matches like in *buffers-list. + ;; is used outside of helm-fuzzy-highlight-matches like in *buffers-list. candidate ;; Else start highlighting. (helm-fuzzy-default-highlight-match-1 candidate pattern diacritics file-comp))) @@ -4840,7 +4840,7 @@ REGEXP should be generated from a pattern which is a list like Such pattern may be build with `helm-completion--flex-transform-pattern' function, and the regexp with `completion-pcm--pattern->regex'. For commodity, -`helm--fuzzy-flex-pattern-to-regexp' is used to build such regexp. +`helm--fuzzy-flex-pattern-to-regexp' is used to build such regexp. Function extracted from `completion-pcm--hilit-commonality' in emacs-27 to provide such scoring in emacs<27." @@ -5697,11 +5697,11 @@ If action buffer is selected, back to the Helm buffer." ;; If `helm-show-action-window-other-window' is non nil ;; we should have now two windows displaying ;; helm-buffer, delete the one that was handling - ;; previously action buffer. + ;; previously action buffer. (when (helm--show-action-window-other-window-p) (delete-window it)) ;; Resize window on horizontal split, though for some - ;; reasons only 'above' needs to be resized. + ;; reasons only 'above' needs to be resized. (when (memq helm-show-action-window-other-window '(below above)) (window-resize (get-buffer-window helm-buffer) delta)) (kill-buffer helm-action-buffer) @@ -7153,7 +7153,7 @@ unless FORCE-LONGEST is non nil." buf))) (defun helm--get-longest-len-in-buffer () - "Return length of the longest line in buffer." + "Return length of the longest line in buffer." (save-excursion (goto-char (point-min)) (let ((max 0) diff --git a/helm-epa.el b/helm-epa.el index 1c07e6e856..4e938b8de6 100644 --- a/helm-epa.el +++ b/helm-epa.el @@ -183,7 +183,7 @@ (epa-display-error context) (signal (car error) (cdr error)))) (message "Deleting gpg keys done"))) - + (defun helm-epa-encrypt-file (_candidate) "Select a file to encrypt with key CANDIDATE." (let* ((file (helm-read-file-name "Encrypt file: ")) diff --git a/helm-external.el b/helm-external.el index 64306010aa..81c3de27cf 100644 --- a/helm-external.el +++ b/helm-external.el @@ -253,7 +253,7 @@ commands with `helm-external-commands-list'." :data (helm-external-commands-list-1 'sort))) :buffer "*helm externals commands*" :prompt "RunProgram: ") - ;; Remove from history no more valid executables. + ;; Remove from history no more valid executables. (setq helm-external-command-history (cl-loop for i in helm-external-command-history when (executable-find i) collect i))) diff --git a/helm-files.el b/helm-files.el index 70f4b24acf..87e166abb3 100644 --- a/helm-files.el +++ b/helm-files.el @@ -238,7 +238,7 @@ Should not be used among other sources.") (define-key map (kbd "C-c C-a") 'helm-ff-run-mail-attach-files) (define-key map (kbd "C-c p") 'helm-ff-run-print-file) (define-key map (kbd "C-c /") 'helm-ff-run-find-sh-command) - (define-key map (kbd "C-/") 'helm-ff-run-fd) + (define-key map (kbd "C-/") 'helm-ff-run-fd) ;; Next 2 have no effect if candidate is not an image file. (define-key map (kbd "M-l") 'helm-ff-rotate-left-persistent) (define-key map (kbd "M-r") 'helm-ff-rotate-right-persistent) @@ -1915,7 +1915,7 @@ this working." (setq cmd-line (format command mapfiles)) ; See [1] (setq cmd-line (format "%s %s" command mapfiles))) (eshell-command cmd-line)) - + ;; Run eshell-command sequencially on EACH marked files. ;; To work with tramp handler we have to call ;; COMMAND on basename of each file, using @@ -2194,7 +2194,7 @@ prefix arg shell buffer doesn't exists, create it and switch to it." when (file-directory-p r) ;; We can use this as long as this filtering function ;; is called after `helm-ff-fct' otherwise candidates - ;; may not be cons cell at first call [1]. + ;; may not be cons cell at first call [1]. collect (cons d r)) candidates)) @@ -3623,7 +3623,7 @@ debugging purpose." ;; Check here if directory is accessible (not working on Windows). ((and (file-directory-p path) (not (file-readable-p path))) ;; Prefix error message with @@@@ for safety - ;; (some files may match file-error See bug#2400) + ;; (some files may match file-error See bug#2400) (list (cons (format "@@@@file-error: Opening directory permission denied `%s'" path) path))) ;; A fast expansion of PATH is made only if `helm-ff-auto-update-flag' @@ -3778,7 +3778,7 @@ later in the transformer." ;; bug#2542. ;; Store here associations of (truename . symlink) when opening a ;; symlinked directory, then add the watch to the truename; When the -;; watcher ring on the truename remove the symlinked directory from cache. +;; watcher ring on the truename remove the symlinked directory from cache. (defvar helm-ff--list-directory-links nil) (defun helm-ff-directory-files (directory &optional force-update) @@ -3812,7 +3812,7 @@ in cache." (file-error (prog1 ;; Prefix error message with @@@@ for safety - ;; (some files may match file-error See bug#2400) + ;; (some files may match file-error See bug#2400) (list (format "@@@@%s:%s" (car err) (mapconcat 'identity (cdr err) " "))) @@ -3888,7 +3888,7 @@ Remove as well all related file-notify watchers. This is meant to run in `tramp-cleanup-connection-hook'." (cl-loop for key being the hash-keys in helm-ff--list-directory-cache - when (equal (file-remote-p key 'method) (cadr vec)) + when (equal (file-remote-p key 'method) (cadr vec)) do (remhash key helm-ff--list-directory-cache)) (cl-loop for key being the hash-keys in helm-ff--file-notify-watchers when (equal (file-remote-p key 'method) (cadr vec)) @@ -4344,7 +4344,7 @@ If SKIP-BORING-CHECK is non nil don't filter boring files." (file-error ;; Possible error not happening during listing ;; but when calling file-attributes see error - ;; with sshfs bug#2405 + ;; with sshfs bug#2405 (message "%s:%s" (car err) (cdr err)) nil))) (type (car attr)) x-bit) @@ -4673,7 +4673,7 @@ with `helm-ff-trash-list'." (cl-defun helm-ff-trash-list (&optional (trash-dir nil strash-dir)) "Return an alist of trashed files basename and dest name. Assume the trash system in use is freedesktop compatible, see -<http://freedesktop.org/wiki/Specifications/trash-spec> +<http://freedesktop.org/wiki/Specifications/trash-spec> This function is intended to be used from a trash directory i.e. it use `helm-ff-default-directory', but it may be used elsewhere by specifying the trash directory with TRASH-DIR arg." @@ -4882,7 +4882,7 @@ This affects directly file CANDIDATE." (ext (file-name-extension candidate))) (and file (or image (not (member ext helm-ff-follow-blacklist-file-exts)))))) - + (cl-defun helm-find-files-persistent-action-if (candidate) "Open subtree CANDIDATE without quitting helm. If CANDIDATE is not a directory expand CANDIDATE filename. @@ -5251,7 +5251,7 @@ Special commands: (cons disp img)) else collect (cons disp img)) ;; Ensure this is done AFTER previous clause otherwise thumb files will - ;; never be created if they don't already exist. + ;; never be created if they don't already exist. (cl-pushnew helm-ff-default-directory helm-ff--thumbnailed-directories :test 'equal)) candidates)) @@ -6129,7 +6129,7 @@ When `helm-trash-default-directory' is set use it as trash directory." ;; Just return nil if the Trash directory is not yet created. It will be ;; created later by `delete-directory'. (and (file-exists-p trash-files-dir) trash-files-dir))) - + (cl-defun helm-ff-file-already-trashed (file &optional (trash-alist nil strash-alist)) "Return FILE when it is already in trash. @@ -6626,7 +6626,7 @@ be existing directories." (dired-async--modeline-mode -1)) (run-with-idle-timer 0.1 nil - (lambda () + (lambda () (dired-async-mode-line-message "Mcp done, %s %s of %s done, %s files skipped" 'dired-async-message diff --git a/helm-grep.el b/helm-grep.el index 18d7882ce8..40277c787a 100644 --- a/helm-grep.el +++ b/helm-grep.el @@ -298,7 +298,7 @@ value used in `helm-grep-ag-command'. Note also that by default the \"--\" option is always used, you don't need to add it here. - + You probably don't need to use this unless you know what you are doing." :type '(repeat string)) @@ -1643,7 +1643,7 @@ returns if available with current AG version." (cmd-line (helm-grep-ag-prepare-cmd-line ;; NOTE Encode directory name and pattern, ;; or it may not work with Chinese and maybe other non-utf8 - ;; characters on MSWindows systems issue#2677 and issue#2678. + ;; characters on MSWindows systems issue#2677 and issue#2678. (encode-coding-string helm-pattern locale-coding-system) (or (file-remote-p directory 'localname) (encode-coding-string directory locale-coding-system)) diff --git a/helm-help.el b/helm-help.el index f36d8bf321..a347f1c9e1 100644 --- a/helm-help.el +++ b/helm-help.el @@ -199,7 +199,7 @@ You can save these buffers with \\<helm-buffer-map>\\[helm-buffer-save-persisten If you want to save all these buffers, you can mark them with \\[helm-buffers-mark-similar-buffers] and save them with \\[helm-buffer-save-persistent]. You can also do this in one step with \\[helm-buffer-run-save-some-buffers]. Note that you will not be asked for confirmation. - + *** Meaning of colors and prefixes for buffers Remote buffers are prefixed with '@'. @@ -345,7 +345,7 @@ again with fuzzy sorting and no more with sorting methods previously selected. You can use these sort functions only on files or directory, see [[Filter out files or directories][Filter out files or directories]]. - + *** Find file at point Helm uses `ffap' partially or completely to find file at point depending on the @@ -1069,7 +1069,7 @@ of candidates soon after. If you enter \":\" directly after \"/\" or \"|\" you will have completion on tramp methods, hitting `\\[helm-execute-persistent-action]' or `right' on a method will insert it in minibuffer. - + When connection fails, be sure to delete your TRAMP connection with M-x `helm-delete-tramp-connection' before retrying. @@ -2041,7 +2041,7 @@ leaving Helm. When `helm-bookmark-use-icon' is non nil and `all-the-icons' package is installed icons before candidates will be displayed. - + ** Commands \\<helm-bookmark-map> |Keys|Description @@ -2075,7 +2075,7 @@ But you can also pass an argument or more after \"candidate_file\" like this: **** Use placeholders in extra arguments -placeholder for file without extension: \\@ +placeholder for file without extension: \\@ placeholder for incremental number: \\# \"candidate_file\" will be added at \"%s\" and \\@ but without extension. diff --git a/helm-lib.el b/helm-lib.el index 6e028392c8..d7e298cf5f 100644 --- a/helm-lib.el +++ b/helm-lib.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2015 ~ 2020 Thierry Volpiatto -;; Author: Thierry Volpiatto +;; Author: Thierry Volpiatto ;; URL: http://github.com/emacs-helm/helm ;; This program is free software; you can redistribute it and/or modify @@ -323,7 +323,7 @@ the leading `-' char." (unless package--initialized (package-initialize 'no-activate)) (or (cadr (assq pkg-name package-alist)) (cadr (assq pkg-name package-archive-contents)))) - + (defun package-upgrade (name) "Upgrade package NAME if a newer version exists." (let* ((package (if (symbolp name) diff --git a/helm-locate.el b/helm-locate.el index e4dbcd9e85..7e5aea0772 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -72,7 +72,7 @@ The last option must be the one preceding pattern i.e \"-r\" or The option \"-N\" may not be available on old locate versions, it is needed on latest systems as locate send quoted filenames, it is BTW enabled by default, if this option is not recognized on your system, remove it. - + You will be able to pass other options such as \"-b\" or \"l\" during Helm invocation after entering pattern only when multi matching, not when fuzzy matching. diff --git a/helm-mode.el b/helm-mode.el index 9992743340..284d5c7baf 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -99,7 +99,7 @@ Special symbol \\='default' means use the default helm handler for either e.g. (write-region . (default helm-read-file-name-handler-1)) means helm will use `helm-completing-read-default-handler' when `write-region' calls `completing-read' and -`helm-read-file-name-handler-1' when it calls `read-file-name'. +`helm-read-file-name-handler-1' when it calls `read-file-name'. Each key is an Emacs command that use originaly `completing-read' or/and `read-file-name'. @@ -603,7 +603,7 @@ If COLLECTION is an `obarray', a TEST should be needed. See `obarray'." cands)) ;; Some functions like debug-on-entry use (symbol-name sym) ;; without checking if sym is non nil, so the return value become - ;; "nil". + ;; "nil". ((and (not (member default '("" "nil"))) (string= helm-pattern "")) (cons default (delete (helm-stringify default) @@ -761,7 +761,7 @@ Keys description: - GET-LINE: Specify the :get-line slot of `helm-source-in-buffer', has no effect when CANDIDATES-IN-BUFFER is nil. - + - MATCH-PART: Allow matching only one part of candidate. See match-part documentation in `helm-source'. @@ -776,7 +776,7 @@ Keys description: - COERCE: See coerce in `helm-source'. - RAW-CANDIDATE: Do not unquote the unknown candidate coming from helm-pattern - when non nil. + when non nil. - GROUP: See group in `helm-source'. @@ -789,7 +789,7 @@ that use `helm-comp-read'. See `helm-M-x' for example." ;; ;; Should show helm with one source at first run and save result on ;; exit, should show the history source along candidates source on - ;; next run as soon as `test-hist' value is feeded. + ;; next run as soon as `test-hist' value is feeded. ;; (setq test-hist nil) ;; (helm-comp-read "test: " '(a b c d e) ;; :history 'test-hist) @@ -1805,7 +1805,7 @@ Don't use it directly." ;; to `read-buffer' through `minibuffer-setup-hook' which is too ;; late to be known by `read-buffer-function', in our case ;; `helm--generic-read-buffer'. It should let bind it to allow us - ;; using it. + ;; using it. (let ((minibuffer-completion-table (internal-complete-buffer-except))) (read-buffer prompt (other-buffer (current-buffer)) (confirm-nonexistent-file-or-buffer)))) diff --git a/helm-multi-match.el b/helm-multi-match.el index 84b1480e35..e8966ab057 100644 --- a/helm-multi-match.el +++ b/helm-multi-match.el @@ -5,7 +5,7 @@ ;; Copyright (C) 2008 ~ 2011 rubikitch ;; Copyright (C) 2011 ~ 2020 Thierry Volpiatto -;; Author: Thierry Volpiatto +;; Author: Thierry Volpiatto ;; URL: http://github.com/emacs-helm/helm ;; This program is free software; you can redistribute it and/or modify diff --git a/helm-occur.el b/helm-occur.el index 727a646031..931ecf5b4a 100644 --- a/helm-occur.el +++ b/helm-occur.el @@ -116,7 +116,7 @@ Any other non--nil value update after confirmation." Use this to display lines with their text properties in helm-occur buffer. Can be one of `buffer-substring' or `buffer-substring-no-properties'. -See `helm-occur-buffer-substring-default-mode' to setup this globally. +See `helm-occur-buffer-substring-default-mode' to setup this globally. Note that when using `buffer-substring' initialization will be slower." :type '(alist :key-type (symbol :tag "Mode") diff --git a/helm-packages.el b/helm-packages.el index da515b03d4..6d6a9f1d79 100644 --- a/helm-packages.el +++ b/helm-packages.el @@ -1,4 +1,4 @@ -;;; helm-packages.el --- helm interface to manage packages -*- lexical-binding: t; -*- +;;; helm-packages.el --- helm interface to manage packages -*- lexical-binding: t; -*- ;; Copyright (C) 2012 ~ 2025 Thierry Volpiatto @@ -322,7 +322,7 @@ Arg PACKAGES is a list of strings." when (not (assq sym package-alist)) nconc (list (list sym (package--from-builtin (cons sym vec)))))) - package-alist))) + package-alist))) (cl-loop for (sym desc) in pkgs for pkg = (assq sym package-archive-contents) for cversion = (and pkg (package-desc-version desc)) diff --git a/helm-ring.el b/helm-ring.el index f64f1f6bc4..4431d3710c 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -546,7 +546,7 @@ See (info \"(emacs) Keyboard Macros\") for detailed infos." (cons (kmacro-ring-head) kmacro-ring) :test 'equal))) - + :multiline t :candidate-transformer (lambda (candidates) diff --git a/helm-source.el b/helm-source.el index 2c76872f7e..4d769bc57f 100644 --- a/helm-source.el +++ b/helm-source.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2015 ~ 2020 Thierry Volpiatto -;; Author: Thierry Volpiatto +;; Author: Thierry Volpiatto ;; URL: http://github.com/emacs-helm/helm ;; This program is free software; you can redistribute it and/or modify @@ -500,7 +500,7 @@ sources built with child class `helm-source-in-buffer' the SEARCH slot. This also add a `filtered-candidate-transformer' function to sort candidates (see `helm-fuzzy-sort-fn') according to the score of each candidate which is - computed with `helm-fuzzy-default-score-fn'. + computed with `helm-fuzzy-default-score-fn'. This is an easy way of enabling fuzzy matching, but you can use the MATCH or SEARCH slots yourself if you want something more elaborated, mixing different type of match (See `helm-source-buffers' class for example), you @@ -615,7 +615,7 @@ :documentation " Enable `helm-follow-mode' for this source only. With a value of 1 enable, a value of -1 or nil disable the mode, value set to - \\='never prevent using `helm-follow-mode' in this source. + \\='never prevent using `helm-follow-mode' in this source. See `helm-follow-mode' for more infos.") (follow-delay @@ -674,7 +674,7 @@ :documentation " A local hook that run at end of initilization of this source. i.e After the creation of `helm-buffer'. - + Should be a variable (a symbol) bound to a list of functions or a single function (see `run-hooks' documentation). Even better is to use `add-hook' to feed this variable. @@ -777,7 +777,7 @@ The :candidates function in this case is in charge of fetching candidates dynamically according to `helm-pattern'. If you want to make your :candidates function working with `completion-styles' - use the function `helm-dynamic-completion'. + use the function `helm-dynamic-completion'. Note that :volatile is automatically enabled when using this, so no need to specify it.")) @@ -796,7 +796,7 @@ Matching is done basically with `string-match' against each candidate.") The function called with no arguments must return a process i.e. `processp', it use typically `start-process' or `make-process', see (info \"(elisp) Asynchronous Processes\"). - + NOTE: When building the source at runtime you can give directly a process @@ -852,7 +852,7 @@ inherit from `helm-source'.") (match :initform '(identity)) - + (get-line :initarg :get-line :initform 'buffer-substring-no-properties diff --git a/helm-types.el b/helm-types.el index f6cd3ef3e8..728a0cf05b 100644 --- a/helm-types.el +++ b/helm-types.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2015 ~ 2020 Thierry Volpiatto -;; Author: Thierry Volpiatto +;; Author: Thierry Volpiatto ;; URL: http://github.com/emacs-helm/helm ;; This program is free software; you can redistribute it and/or modify