[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108690: * lisp/pcmpl-rpm.el (pcmp
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108690: * lisp/pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages. |
Date: |
Fri, 02 Nov 2012 02:22:23 -0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 108690
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2012-06-22 21:02:17 -0400
message:
* lisp/pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.
modified:
lisp/ChangeLog
lisp/pcmpl-rpm.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-06-22 21:24:54 +0000
+++ b/lisp/ChangeLog 2012-06-23 01:02:17 +0000
@@ -1,3 +1,7 @@
+2012-06-23 Glenn Morris <address@hidden>
+
+ * pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.
+
2012-06-22 Stefan Monnier <address@hidden>
Further GV/CL cleanups.
=== modified file 'lisp/pcmpl-rpm.el'
--- a/lisp/pcmpl-rpm.el 2012-06-22 16:00:34 +0000
+++ b/lisp/pcmpl-rpm.el 2012-06-23 01:02:17 +0000
@@ -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 (?).
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r108690: * lisp/pcmpl-rpm.el (pcmpl-rpm-packages): Give status messages.,
Glenn Morris <=