changeset 103566:7af1196e07f8

(pcomplete/rpm): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Tue, 23 Jun 2009 07:43:17 +0000
parents aeb4b2f4f239
children 0659f98d664f
files lisp/ChangeLog lisp/pcmpl-rpm.el
diffstat 2 files changed, 6 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Jun 23 07:39:40 2009 +0000
+++ b/lisp/ChangeLog	Tue Jun 23 07:43:17 2009 +0000
@@ -1,5 +1,7 @@
 2009-06-23  Glenn Morris  <rgm@gnu.org>
 
+	* pcmpl-rpm.el (pcomplete/rpm): Doc fix.
+
 	* bindings.el (mode-line-modified): Fix case of "Buffer is modified".
 
 	* textmodes/ispell.el (ispell-local-dictionary): Doc fix.
--- a/lisp/pcmpl-rpm.el	Tue Jun 23 07:39:40 2009 +0000
+++ b/lisp/pcmpl-rpm.el	Tue Jun 23 07:43:17 2009 +0000
@@ -20,7 +20,7 @@
 
 ;;; Commentary:
 
-;; These functions provide completion rules for RedHat's `rpm' tool.
+;; These functions provide completion rules for the `rpm' command.
 
 ;;; Code:
 
@@ -53,11 +53,8 @@
 
 ;;;###autoload
 (defun pcomplete/rpm ()
-  "Completion for RedHat's `rpm' command.
-These rules were taken from the output of `rpm --help' on a RedHat 6.1
-system.  They follow my interpretation of what followed, but since I'm
-not a major rpm user/builder, please send me any corrections you find.
-You can use \\[report-emacs-bug] to do so."
+  "Completion for the `rpm' command."
+  ;; Originally taken from the output of `rpm --help' on a Red Hat 6.1 system.
   (let (mode)
     (while (<= pcomplete-index pcomplete-last)
       (unless mode
@@ -136,7 +133,7 @@
 	  (if (pcomplete-match "^-" 0)
 	      (pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR")
 	    (if (pcomplete-test "-[^-]*p" 'first 1)
-		(pcomplete-here (pcmpl-rpm-files))	
+		(pcomplete-here (pcmpl-rpm-files))
 	      (pcomplete-here (pcmpl-rpm-packages))))))
        ((pcomplete-test "--pipe")
 	(pcomplete-here* (funcall pcomplete-command-completion-function)))