[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
- cvs-prefix-define confuses apropos,
Matt McClure <=