mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Use lexical-binding in pcmpl-rpm.el

Browse Source 
* lisp/pcmpl-rpm.el: Use lexical-binding.  Remove redundant :group
args.
(pcmpl-rpm-packages): Quote function symbol as such.
This commit is contained in:
Stefan Kangas 2020-11-03 02:23:46 +01:00
parent 499847ab95
commit 0462ba3032
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/pcmpl-rpm.el
View File

@ -1,4 +1,4 @@
;;; pcmpl-rpm.el --- functions for dealing with rpm completions
;;; pcmpl-rpm.el --- functions for dealing with rpm completions -*- lexical-binding: t -*-
;; Copyright (C) 1999-2020 Free Software Foundation, Inc.
@ -47,14 +47,12 @@
:version "24.3"
:type '(choice (const :tag "No options" nil)
(string :tag "Single option")
(repeat :tag "List of options" string))
:group 'pcmpl-rpm)
(repeat :tag "List of options" string)))
(defcustom pcmpl-rpm-cache t
"Whether to cache the list of installed packages."
:version "24.3"
:type 'boolean
:group 'pcmpl-rpm)
:type 'boolean)
(defconst pcmpl-rpm-cache-stamp-file "/var/lib/rpm/Packages"
"File used to check that the list of installed packages is up-to-date.")
@ -78,7 +76,7 @@
(message "Getting list of installed rpms...")
(setq pcmpl-rpm-cache-time (current-time)
pcmpl-rpm-packages
(split-string (apply 'pcomplete-process-result "rpm"
(split-string (apply #'pcomplete-process-result "rpm"
(append '("-q" "-a")
(if (stringp pcmpl-rpm-query-options)
(list pcmpl-rpm-query-options)