X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b57b344b51c06239b4f3584f9ab946dd48c60bb2..0c26f14b7e200b39134ec70c77fab8c467cf3290:/lisp/pcmpl-rpm.el?ds=inline

diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el
index 4afda82ff9..4e17fa378c 100644
--- a/lisp/pcmpl-rpm.el
+++ b/lisp/pcmpl-rpm.el
@@ -1,6 +1,6 @@
 ;;; pcmpl-rpm.el --- functions for dealing with rpm completions
 
-;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2016 Free Software Foundation, Inc.
 
 ;; Package: pcomplete
 
@@ -44,7 +44,7 @@
             (push "--nosignature" opts))))
     opts)
   "String, or list of strings, with extra options for an rpm query command."
-  :version "24.2"
+  :version "24.3"
   :type '(choice (const :tag "No options" nil)
                  (string :tag "Single option")
                  (repeat :tag "List of options" string))
@@ -52,7 +52,7 @@
 
 (defcustom pcmpl-rpm-cache t
   "Whether to cache the list of installed packages."
-  :version "24.2"
+  :version "24.3"
   :type 'boolean
   :group 'pcmpl-rpm)
 
@@ -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 (?).