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 <>
* pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.
2012-06-22 Stefan Monnier <> 2012-06-22 Stefan Monnier <>
Further GV/CL cleanups. Further GV/CL cleanups.
...@@ -67,8 +67,6 @@ ...@@ -67,8 +67,6 @@
;; Functions: ;; Functions:
;; This can be slow, so:
;; Consider printing an explanatory message before running -qa.
(defun pcmpl-rpm-packages () (defun pcmpl-rpm-packages ()
"Return a list of all installed rpm packages." "Return a list of all installed rpm packages."
(if (and pcmpl-rpm-cache (if (and pcmpl-rpm-cache
...@@ -76,13 +74,16 @@ ...@@ -76,13 +74,16 @@
(let ((mtime (nth 5 (file-attributes pcmpl-rpm-cache-stamp-file)))) (let ((mtime (nth 5 (file-attributes pcmpl-rpm-cache-stamp-file))))
(and mtime (not (time-less-p pcmpl-rpm-cache-time mtime))))) (and mtime (not (time-less-p pcmpl-rpm-cache-time mtime)))))
pcmpl-rpm-packages pcmpl-rpm-packages
(message "Getting list of installed rpms...")
(setq pcmpl-rpm-cache-time (current-time) (setq pcmpl-rpm-cache-time (current-time)
pcmpl-rpm-packages pcmpl-rpm-packages
(split-string (apply 'pcomplete-process-result "rpm" (split-string (apply 'pcomplete-process-result "rpm"
(append '("-q" "-a") (append '("-q" "-a")
(if (stringp pcmpl-rpm-query-options) (if (stringp pcmpl-rpm-query-options)
(list pcmpl-rpm-query-options) (list pcmpl-rpm-query-options)
pcmpl-rpm-query-options))))))) pcmpl-rpm-query-options)))))
(message "Getting list of installed rpms...done")
;; Should this use pcmpl-rpm-query-options? ;; Should this use pcmpl-rpm-query-options?
;; I don't think it would speed it up at all (?). ;; 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