From: Glenn Morris <rgm@gnu.org>
Date: Sat, 23 Jun 2012 01:02:17 +0000 (-0400)
Subject: * lisp/pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.
X-Git-Tag: emacs-24.2.90~1199^2~397
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/7117e105bb5cb268e5d6b233b284e8401134ad09

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a92a42734..2763234e05 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el
index 4afda82ff9..e637c3407f 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 (?).