From 499847ab952299f0d978291ed8e84a9b13786e80 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 3 Nov 2020 02:06:05 +0100 Subject: [PATCH] Use lexical-binding in pcmpl-cvs.el * lisp/pcmpl-cvs.el: Use lexical-binding. (executable): Remove unnecessary require. (pcmpl-cvs-binary): Remove redundant :group arg. (pcmpl-cvs-tags): Quote function symbol as such. --- lisp/pcmpl-cvs.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/pcmpl-cvs.el b/lisp/pcmpl-cvs.el index 1b49b297e42..13f3093c218 100644 --- a/lisp/pcmpl-cvs.el +++ b/lisp/pcmpl-cvs.el @@ -1,4 +1,4 @@ -;;; pcmpl-cvs.el --- functions for dealing with cvs completions +;;; pcmpl-cvs.el --- functions for dealing with cvs completions -*- lexical-binding: t -*- ;; Copyright (C) 1999-2020 Free Software Foundation, Inc. @@ -29,7 +29,6 @@ (provide 'pcmpl-cvs) (require 'pcomplete) -(require 'executable) (defgroup pcmpl-cvs nil "Functions for dealing with CVS completions." @@ -39,8 +38,7 @@ (defcustom pcmpl-cvs-binary (or (executable-find "cvs") "cvs") "The full path of the `cvs' binary." - :type 'file - :group 'pcmpl-cvs) + :type 'file) ;; Functions: @@ -139,7 +137,7 @@ (let ((entries (pcmpl-cvs-entries opers)) tags) (with-temp-buffer - (apply 'call-process pcmpl-cvs-binary nil t nil + (apply #'call-process pcmpl-cvs-binary nil t nil "status" "-v" entries) (goto-char (point-min)) (while (re-search-forward "Existing Tags:" nil t) -- 2.39.2