diff options
author | Glenn Morris <rgm@gnu.org> | 2012-06-22 21:02:17 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-06-22 21:02:17 -0400 |
commit | 7117e105bb5cb268e5d6b233b284e8401134ad09 (patch) | |
tree | 32caeb5c1a35ef23306c52c9bb6daf3f53618eda /lisp/pcmpl-rpm.el | |
parent | c8fff8630133fea7c4e279458d10d825e5028c62 (diff) | |
download | emacs-7117e105bb5cb268e5d6b233b284e8401134ad09.tar.gz |
* lisp/pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.
Diffstat (limited to 'lisp/pcmpl-rpm.el')
-rw-r--r-- | lisp/pcmpl-rpm.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el index 4afda82ff91..e637c3407f0 100644 --- a/lisp/pcmpl-rpm.el +++ b/lisp/pcmpl-rpm.el @@ -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 (?). |