Commit 7117e105 authored by Glenn Morris's avatar Glenn Morris

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

parent c8fff863
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.
......
......@@ -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 (?).
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment