From 33e2c2e5b3228c21232499296f7b7c39ade3b673 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 23 Jun 2009 07:43:17 +0000 Subject: [PATCH] (pcomplete/rpm): Doc fix. --- lisp/ChangeLog | 2 ++ lisp/pcmpl-rpm.el | 11 ++++------- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 104a1bd9c08..aa58deb0347 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-06-23 Glenn Morris + * 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. diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el index 9335248dcfe..0f596304c9a 100644 --- a/lisp/pcmpl-rpm.el +++ b/lisp/pcmpl-rpm.el @@ -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 @@ You can use \\[report-emacs-bug] to do so." (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))) -- 2.39.2