diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 16:48:59 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 16:48:59 -0700 |
commit | 07fcbb558d797272b9f43547da60beda485873a3 (patch) | |
tree | 77d5da14e9f9d9d8b1d877c70c01296fd3893796 /lisp/pcmpl-gnu.el | |
parent | c9bdeff3e45a7ac84a74a81bb048046f82dddc91 (diff) | |
parent | fb81c8c3adf8633f2f617c82f6019aef630860c7 (diff) | |
download | emacs-07fcbb558d797272b9f43547da60beda485873a3.tar.gz |
Merge remote-tracking branch 'origin/master' into athena/unstable
Diffstat (limited to 'lisp/pcmpl-gnu.el')
-rw-r--r-- | lisp/pcmpl-gnu.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el index dd964e36384..6c68645eb22 100644 --- a/lisp/pcmpl-gnu.el +++ b/lisp/pcmpl-gnu.el @@ -106,7 +106,7 @@ (while (pcomplete-here (completion-table-in-turn (pcmpl-gnu-make-rule-names) (pcomplete-entries)) - nil 'identity)))) + nil #'identity)))) (defun pcmpl-gnu-makefile-names () "Return a list of possible makefile names." @@ -336,7 +336,7 @@ Return the new list." (pcomplete-match-string 1 0))))) (unless saw-option (pcomplete-here - (mapcar 'char-to-string + (mapcar #'char-to-string (string-to-list "01234567ABCFGIKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz"))) (if (pcomplete-match "[xt]" 'first 1) @@ -355,7 +355,7 @@ Return the new list." (pcmpl-gnu-with-file-buffer file (mapcar #'tar-header-name tar-parse-info))))) (pcomplete-entries)) - nil 'identity)))) + nil #'identity)))) ;;;###autoload @@ -391,7 +391,7 @@ Return the new list." (string= prec "-execdir")) (while (pcomplete-here* (funcall pcomplete-command-completion-function) (pcomplete-arg 'last) t)))) - (while (pcomplete-here (pcomplete-dirs) nil 'identity)))) + (while (pcomplete-here (pcomplete-dirs) nil #'identity)))) ;;;###autoload (defalias 'pcomplete/gdb 'pcomplete/xargs) |