bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

cvs-prefix-define confuses apropos


From: Matt McClure
Subject: cvs-prefix-define confuses apropos
Date: 03 Oct 2001 14:33:48 -0400
User-agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7

pcl-cvs-version's value is 
"v2_9_9"

GNU Emacs 20.7.1 (i386-*-nt5.0.2195) of Tue Jun 13 2000 on buffy


I did "M-x apropos RET cvs.*mark", and I got the following error:

    Cannot open doc string file "c:/Program Files/emacs-20.7/etc/Prefix
    to decide whether to ignore marks or not."

With "M-x apropos RET cvs.*branch", I get:

    Cannot open doc string file "c:/Program Files/emacs-20.7/etc/Current
    selected branch."

In both cases, there are symbols matching the given regexp that are
defined using cvs-prefix-define.  It seems that cvs-prefix-define
confuses apropos.  Is this an apropos bug, or a problem with
cvs-prefix-define?

Here's a backtrace:

  documentation-property(cvs-ignore-marks-modif variable-documentation t)
  (setq doc (documentation-property symbol (quote variable-documentation) t))
  (if (setq doc (documentation-property symbol ... t)) (substring doc 0 
(string-match "\n" doc)) "(not documented)")
  (progn (if (setq doc ...) (substring doc 0 ...) "(not documented)"))
  (if (boundp symbol) (progn (if ... ... "(not documented)")))
  (when (boundp symbol) (if (setq doc ...) (substring doc 0 ...) "(not 
documented)"))
  (list (setq symbol (car p)) (when (fboundp symbol) (if ... ... "(not 
documented)")) (when (boundp symbol) (if ... ... "(not documented)")) (when 
(setq properties ...) (setq doc ...) (while ... ...) (mapconcat ... ... " ")) 
(when (get symbol ...) (if ... ... "(not documented)")) (when (facep symbol) 
(if ... ... "(not documented)")) (when (get symbol ...) (if ... ... "(not 
documented)")))
  (setcar p (list (setq symbol ...) (when ... ...) (when ... ...) (when ... ... 
... ...) (when ... ...) (when ... ...) (when ... ...)))
  (while p (setcar p (list ... ... ... ... ... ... ...)) (setq p (cdr p)))
  (let ((p apropos-accumulator) symbol doc properties) (while p (setcar p ...) 
(setq p ...)))
  apropos("cvs.*mark" nil)
  call-interactively(apropos)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

-- 
Matt
http://www.faradic.net/~mmcclure/

    "I don't believe in rivalries.  I don't believe in curses.  Wake
     up the damn Bambino, maybe I'll drill him in the (behind)."
        -Pedro Martinez




reply via email to

[Prev in Thread] Current Thread [Next in Thread]