branch: elpa/vcomplete commit faca6e8c18660ea50a0208dae84572312cbcedec Author: Daniel Semyonov <dan...@dsemy.com> Commit: Daniel Semyonov <dan...@dsemy.com>
; Change all instances of "‘" and "’" to "`" and "'" respectively --- vcomplete.el | 54 +++++++++++++++++++++++++++--------------------------- 1 file changed, 27 insertions(+), 27 deletions(-) diff --git a/vcomplete.el b/vcomplete.el index 0608eeb3fb..c078d1045e 100644 --- a/vcomplete.el +++ b/vcomplete.el @@ -31,7 +31,7 @@ ;; ;; Usage: ;; -;; Enable ‘vcomplete-mode’: +;; Enable `vcomplete-mode': ;; ;; (vcomplete-mode) ;; @@ -43,7 +43,7 @@ ;; ;; When vcomplete-mode is active: ;; - The completion list buffer opens and updates automatically (see -;; ‘vcomplete-auto-update’). +;; `vcomplete-auto-update'). ;; - The completion list buffer can be controlled through the ;; minibuffer (during minibuffer completion) or the current buffer ;; (during in-buffer completion), if it's visible. @@ -56,11 +56,11 @@ ;; ;; M-RET (C-M-m) chooses the completion at point. ;; -;; More commands can be added through ‘vcomplete-command-map’: +;; More commands can be added through `vcomplete-command-map': ;; ;; (define-key vcomplete-command-map [?\C-a] #'my-command) ;; -;; You can customize ‘vcomplete-mode’ using the customize interface: +;; You can customize `vcomplete-mode' using the customize interface: ;; ;; M-x customize-group RET vcomplete RET ;; @@ -77,12 +77,12 @@ :prefix "vcomplete-") (defcustom vcomplete-auto-update t - "Whether the ‘*Completions*’ buffer should open and update automatically. + "Whether the `*Completions*' buffer should open and update automatically. Non-nil means automatically open and update. -Otherwise, operate according to ‘completion-auto-help’." +Otherwise, operate according to `completion-auto-help'." :type '(radio (const :tag "Automatically open and update" t) - (const :tag "Operate according to ‘completion-auto-help’" nil)) + (const :tag "Operate according to `completion-auto-help'" nil)) :package-version '(vcomplete . 0.1) :set (lambda (sym val) (set-default sym val) @@ -92,9 +92,9 @@ Otherwise, operate according to ‘completion-auto-help’." ;;;; Completion commands: (defmacro vcomplete-with-completions-buffer (&rest body) - "Evaluate BODY with the ‘*Completions*’ buffer temporarily current. + "Evaluate BODY with the `*Completions*' buffer temporarily current. While evaluating body, BUFFER and WINDOW are locally bound to the -‘*Completions*’ buffer and window respectively." +`*Completions*' buffer and window respectively." (declare (indent 0)) `(when-let ((buffer (get-buffer "*Completions*")) (window (get-buffer-window buffer))) @@ -102,7 +102,7 @@ While evaluating body, BUFFER and WINDOW are locally bound to the (set-buffer buffer) (unless (eq major-mode 'completion-list-mode) (user-error - "The ‘*Completions*’ buffer is set to an incorrect mode")) + "The `*Completions*' buffer is set to an incorrect mode")) ,@body))) (defun vcomplete-current-completion (pos) @@ -112,7 +112,7 @@ The completion candidate is returned as a list of the form: If no completion is found, return nil." (unless (derived-mode-p 'completion-list-mode) (error "Not in a valid completion list buffer")) - ;; Modified from code in ‘choose-completion’. + ;; Modified from code in `choose-completion'. (let (beg end noop) (cond ((and (not (eobp)) (get-text-property pos 'mouse-face)) @@ -128,10 +128,10 @@ If no completion is found, return nil." `(,(buffer-substring-no-properties beg end) . (,beg . ,end))))) (defvar vcomplete--last-completion-overlay nil - "Last overlay created in the ‘*Completions*’ buffer.") + "Last overlay created in the `*Completions*' buffer.") (defun vcomplete--highlight-completion-at-point () - "Highlight the completion at point in the ‘*Completions*’ buffer." + "Highlight the completion at point in the `*Completions*' buffer." (while-no-input (redisplay) (let ((cur (vcomplete-current-completion (point)))) @@ -144,26 +144,26 @@ If no completion is found, return nil." 'face 'highlight))))) (defun vcomplete--move-n-completions (n) - "Move N completions in the ‘*Completions*’ buffer." + "Move N completions in the `*Completions*' buffer." (vcomplete-with-completions-buffer (next-completion n) (set-window-point window (point)) (vcomplete--highlight-completion-at-point))) (defun vcomplete-next-completion (&optional n) - "Move to the next item in the ‘*Completions*’ buffer. + "Move to the next item in the `*Completions*' buffer. With prefix argument N, move N items (negative N means move backward)." (interactive "p") (vcomplete--move-n-completions (or n 1))) (defun vcomplete-prev-completion (&optional n) - "Move to the previous item in the ‘*Completions*’ buffer. + "Move to the previous item in the `*Completions*' buffer. With prefix argument N, move N items (negative N means move forward)." (interactive "p") (vcomplete--move-n-completions (- (or n 1)))) (defun vcomplete-choose-completion () - "Choose the completion at point in the ‘*Completions*’ buffer." + "Choose the completion at point in the `*Completions*' buffer." (interactive) (when-let ((buf (get-buffer "*Completions*"))) (switch-to-completions) @@ -175,7 +175,7 @@ With prefix argument N, move N items (negative N means move forward)." (define-key map [?\C-p] #'vcomplete-prev-completion) (define-key map [?\C-\M-m] #'vcomplete-choose-completion) map) - "Key map for ‘vcomplete-mode’ commands.") + "Key map for `vcomplete-mode' commands.") ;;;; Visual completion mode: @@ -183,20 +183,20 @@ With prefix argument N, move N items (negative N means move forward)." "Last pending completion string.") (defun vcomplete--set-last-string-in-minibuffer () - "Set ‘vcomplete--last-string’ in a minibuffer." + "Set `vcomplete--last-string' in a minibuffer." (while-no-input (redisplay) (setq vcomplete--last-string (minibuffer-contents)))) (defun vcomplete--string-in-region () "Return a substring according to the markers in -‘completion-in-region--data’." +`completion-in-region--data'." (when completion-in-region--data (buffer-substring (car completion-in-region--data) (cadr completion-in-region--data)))) (defun vcomplete--set-last-string-in-region () - "Set ‘vcomplete--last-string’ in-region." + "Set `vcomplete--last-string' in-region." (while-no-input (redisplay) (setq vcomplete--last-string @@ -230,12 +230,12 @@ With prefix argument N, move N items (negative N means move forward)." (remove-hook 'post-command-hook #'vcomplete--highlight-completion-at-point t)) (defun vcomplete--setup-completions () - "Setup ‘vcomplete-mode’ for the ‘*Completions*’ buffer." + "Setup `vcomplete-mode' for the `*Completions*' buffer." (add-hook 'post-command-hook #'vcomplete--highlight-completion-at-point nil t)) (defun vcomplete--setup-current () - "Setup ‘vcomplete-mode’ for the current buffer." + "Setup `vcomplete-mode' for the current buffer." (vcomplete--reset-vars) (if-let ((map (assq #'completion-in-region-mode minor-mode-overriding-map-alist))) @@ -284,26 +284,26 @@ completion: (declare-function embark-completions-buffer-candidates "ext:embark") (defun vcomplete-embark--eliminate-delay (fun &rest args) - "Call FUN with ‘minibuffer-message-timeout’ locally set to ‘0’." + "Call FUN with `minibuffer-message-timeout' locally set to `0'." (let ((minibuffer-message-timeout 0)) (apply fun args))) (defun vcomplete-embark--advise-commands () - "Advise Embark commands with ‘vcomplete-embark--eliminate-delay’." + "Advise Embark commands with `vcomplete-embark--eliminate-delay'." (dolist (cmd '(embark-act embark-default-action)) (if vcomplete-mode (advice-add cmd :around #'vcomplete-embark--eliminate-delay) (advice-remove cmd #'vcomplete-embark--eliminate-delay)))) (defun vcomplete-embark-current-completion (&optional relative) - "Call ‘embark-target-completion-at-point’ in the ‘*Completions*’ buffer." + "Call `embark-target-completion-at-point' in the `*Completions*' buffer." (when (and vcomplete-mode (or (minibufferp) completion-in-region-mode)) (vcomplete-with-completions-buffer (embark-target-completion-at-point relative)))) (defun vcomplete-embark-collect-candidates () - "Call ‘embark-completions-buffer-candidates’ in the ‘*Completions*’ buffer." + "Call `embark-completions-buffer-candidates' in the `*Completions*' buffer." (when (and vcomplete-mode (or (minibufferp) completion-in-region-mode)) (vcomplete-with-completions-buffer