Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.

Browse source
This commit is contained in:
Glenn Morris 2012-06-22 21:02:17 -04:00
parent c8fff86301
commit 7117e105bb
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-06-23 Glenn Morris <rgm@gnu.org>
* pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.
2012-06-22 Stefan Monnier <monnier@iro.umontreal.ca>
Further GV/CL cleanups.

7
lisp/pcmpl-rpm.el
View file

@ -67,8 +67,6 @@
;; Functions:
;; This can be slow, so:
;; Consider printing an explanatory message before running -qa.
(defun pcmpl-rpm-packages ()
"Return a list of all installed rpm packages."
(if (and pcmpl-rpm-cache
@ -76,13 +74,16 @@
(let ((mtime (nth 5 (file-attributes pcmpl-rpm-cache-stamp-file))))
(and mtime (not (time-less-p pcmpl-rpm-cache-time mtime)))))
pcmpl-rpm-packages
(message "Getting list of installed rpms...")
(setq pcmpl-rpm-cache-time (current-time)
pcmpl-rpm-packages
(split-string (apply 'pcomplete-process-result "rpm"
(append '("-q" "-a")
(if (stringp pcmpl-rpm-query-options)
(list pcmpl-rpm-query-options)
pcmpl-rpm-query-options)))))))
pcmpl-rpm-query-options)))))
(message "Getting list of installed rpms...done")
pcmpl-rpm-packages))
;; Should this use pcmpl-rpm-query-options?
;; I don't think it would speed it up at all (?).