[elpa] master 0132ced 044/184: counsel.el: Run ispell-comments-and-strings

[Oleh Krehel]

branch: master
commit 0132ced9d4963dfefca142f36ba1d6f83890c478
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el: Run ispell-comments-and-strings
---
 counsel.el | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/counsel.el b/counsel.el
index 155153b..742de0c 100644
--- a/counsel.el
+++ b/counsel.el
@@ -30,11 +30,11 @@
 ;;
 ;; Currently available:
 ;; - Symbol completion for Elisp, Common Lisp, Python, Clojure, C, C++.
-;; - Describe fuctions for Elisp: function, variable, library, command,
+;; - Describe functions for Elisp: function, variable, library, command,
 ;;   bindings, theme.
 ;; - Navigation functions: imenu, ace-line, semantic, outline.
 ;; - Git utilities: git-files, git-grep, git-log, git-stash, git-checkout.
-;; - Grep utitilies: grep, ag, pt, recoll, ack, rg.
+;; - Grep utilities: grep, ag, pt, recoll, ack, rg.
 ;; - System utilities: process list, rhythmbox, linux-app.
 ;; - Many more.
 
@@ -115,7 +115,7 @@ complex regexes."
     str))
 
 (defun counsel-require-program (cmd)
-  "Check system for program used in CMD, printing error if unfound.
+  "Check system for program used in CMD, printing error if not found.
 CMD is either a string or a list of strings.
 To skip the `executable-find' check, start the string with a space."
   (unless (and (stringp cmd) (string-match-p "^ " cmd))
@@ -1924,7 +1924,7 @@ Skip some dotfiles unless `ivy-text' requires them."
 
 (defun counsel--preselect-file ()
   "Return candidate to preselect during filename completion.
-The preselect behaviour can be customized via user options
+The preselect behavior can be customized via user options
 `counsel-find-file-at-point' and
 `counsel-preselect-current-file', which see."
   (or
@@ -2237,7 +2237,7 @@ By default `counsel-bookmark' opens a dired buffer for 
directories."
             :caller 'counsel-bookmark))
 
 (defun counsel--apply-bookmark-fn (fn)
-  "Return a function applyinig FN to a bookmark's location."
+  "Return a function applying FN to a bookmark's location."
   (lambda (bookmark)
     (funcall fn (bookmark-location bookmark))))
 
@@ -2293,7 +2293,7 @@ can use `C-x r j i' to open that file."
   (interactive)
   (ivy-read "File Register: "
             ;; Use the `register-alist' variable to filter out file
-            ;; registers.  Each entry for a file registar will have the
+            ;; registers.  Each entry for a file register will have the
             ;; following layout:
             ;;
             ;;     (NUMBER 'file . "string/path/to/file")
@@ -2576,7 +2576,7 @@ FZF-PROMPT, if non-nil, is passed as `ivy-read' prompt 
argument."
 ;;;###autoload
 (defun counsel-file-jump (&optional initial-input initial-directory)
   "Jump to a file below the current directory.
-List all files within the current directory or any of its subdirectories.
+List all files within the current directory or any of its sub-directories.
 INITIAL-INPUT can be given as the initial minibuffer input.
 INITIAL-DIRECTORY, if non-nil, is used as the root directory for search."
   (interactive
@@ -2610,7 +2610,7 @@ INITIAL-DIRECTORY, if non-nil, is used as the root 
directory for search."
 ;;;###autoload
 (defun counsel-dired-jump (&optional initial-input initial-directory)
   "Jump to a directory (see `dired-jump') below the current directory.
-List all subdirectories within the current directory.
+List all sub-directories within the current directory.
 INITIAL-INPUT can be given as the initial minibuffer input.
 INITIAL-DIRECTORY, if non-nil, is used as the root directory for search."
   (interactive
@@ -3369,7 +3369,7 @@ recognized:
   eponymous `ivy-read' keyword, as used by `counsel-outline'.
   Defaults to the symbol `counsel-outline-history'.
 
-- `:caller' is a symbol to uniquely idendify the caller to
+- `:caller' is a symbol to uniquely identify the caller to
   `ivy-read'.  It corresponds directly to its eponymous
   `ivy-read' keyword, as used by `counsel-outline'.
   Defaults to the symbol `counsel-outline'.
@@ -3651,20 +3651,20 @@ This variable has no effect unless
   "Face for current `counsel-mark-ring' line."
   :group 'ivy-faces)
 
-(defvar counsel--mark-ring-overray nil
-  "Intarnal overray to highlight line by candidate of `counsel-mark-ring'.")
+(defvar counsel--mark-ring-overlay nil
+  "Internal overlay to highlight line by candidate of `counsel-mark-ring'.")
 
 (defun counsel--mark-ring-add-highlight ()
   "Add highlight to current line."
-  (setq counsel--mark-ring-overray
+  (setq counsel--mark-ring-overlay
         (make-overlay (line-beginning-position) (1+ (line-end-position))))
   (with-ivy-window
-    (overlay-put counsel--mark-ring-overray 'face
+    (overlay-put counsel--mark-ring-overlay 'face
                  'counsel--mark-ring-highlight)))
 
 (defun counsel--mark-ring-delete-highlight ()
   "If `counsel-mark-ring' have highlight, delete highlight."
-  (if counsel--mark-ring-overray (delete-overlay counsel--mark-ring-overray)))
+  (if counsel--mark-ring-overlay (delete-overlay counsel--mark-ring-overlay)))
 
 (defvar counsel--mark-ring-calling-point 0
   "Internal variable to remember calling position.")
@@ -3833,7 +3833,7 @@ Additional actions:\\<ivy-minibuffer-map>
 
 ;;;###autoload
 (defun counsel-tmm ()
-  "Text-mode emulation of looking and choosing from a menubar."
+  "Text-mode emulation of looking and choosing from a menu bar."
   (interactive)
   (require 'tmm)
   (run-hooks 'menu-bar-update-hook)
@@ -3922,7 +3922,7 @@ All blank strings are deleted from `kill-ring' by 
default."
 (defun counsel--yank-pop-kills ()
   "Return filtered `kill-ring' for `counsel-yank-pop' completion.
 Both `kill-ring' and `kill-ring-yank-pointer' may be
-destructively modifed to eliminate duplicates under
+destructively modified to eliminate duplicates under
 `equal-including-properties', satisfy `counsel-yank-pop-filter',
 and incorporate `interprogram-paste-function'."
   ;; Protect against `kill-ring' and result of
@@ -4500,7 +4500,7 @@ setting in `counsel-outline-settings', which see."
     (funcall outline-level)))
 
 (defvar counsel-outline--preselect 0
-  "Index of the presected candidate in `counsel-outline'.")
+  "Index of the preselected candidate in `counsel-outline'.")
 
 (defun counsel-outline-candidates (&optional settings prefix)
   "Return an alist of outline heading completion candidates.
@@ -4853,7 +4853,7 @@ selected color."
 (defvar shr-color-html-colors-alist)
 
 (defun counsel-colors--web-alist ()
-  "Return list of CSS colours for `counsel-colors-web'."
+  "Return list of CSS colors for `counsel-colors-web'."
   (require 'shr-color)
   (let* ((alist (copy-alist shr-color-html-colors-alist))
          (mp  (assoc "MediumPurple"  alist))
@@ -5459,7 +5459,7 @@ Use the presence of a `dir-locals-file' to determine the 
root."
   "Additional compile invocations to feed into `counsel-compile'.
 
 This can either be a list of compile invocation strings or
-functions that will provide such a list.  You should customise
+functions that will provide such a list.  You should customize
 this if you want to provide specific non-standard build types to
 `counsel-compile'.  The default helpers are set up to handle
 common build environments.")
@@ -5553,7 +5553,7 @@ The resulting strings are tagged with properties that
   "Have a look in the root directory for any build control files.
 
 The optional BLDDIR is useful for other helpers that have found
-subdirectories that builds may be invoked in."
+sub-directories that builds may be invoked in."
   (let ((srcdir (counsel--compile-root)))
     (when (directory-files (or blddir srcdir) nil
                            counsel-compile-make-pattern t)