Re: ["Stefan Monnier" <monnier+lists/cvs/pcl@flint.cs.yale.edu>] Re: pcl-cvs problem
nbecker(a)fred.net writes:
I'm forwarding this message to xemacs-beta because I don't
know the
answer - hopefully one of you does.
[...]
> `pcl-cvs-version' is a variable declared in Lisp.
> -- loaded from
"/usr/local/lib/xemacs/xemacs-packages/lisp/pcl-cvs/pcl-cvs-defs.elc"
>
> Value: "v2_9_9"
> The "A" is useless in cvs mode because it wants to edit the top-level
> ChangeLog instead of the one in the same directory as the selected
> file.
That's unfortunate. I've made sure it works on Emacs and have no
clue as to what to do to get it to work on XEmacs.
What I have done is:
M-x cvs-update /src/xemacs RET
(/src/xemacs is where I put XEmacs cvs repository.)
A on configure.in
(It opens /src/xemacs/ChangeLog)
A on lisp/minibuf.el
(It again opens /src/xemacs/ChangeLog instead of
/src/xemacs/lisp/ChangeLog)
I checked add-log.el and I think the same thing will happen
on Emacs as well.
Here's the patch to fix it.
2000-10-03 Yoshiki Hayashi <yoshiki(a)xemacs.org>
* pcl-cvs.el (cvs-mode-add-change-log-entry-other-window):
Bind change-log-default-name to nil so that find-change-log
returns right value.
Index: pcl-cvs.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-packages/prog/pcl-cvs/pcl-cvs.el,v
retrieving revision 2.35
diff -u -r2.35 pcl-cvs.el
--- pcl-cvs.el 2000/05/12 07:19:25 2.35
+++ pcl-cvs.el 2000/10/03 07:28:55
＠＠ -1867,7 +1867,8 ＠＠
(interactive)
(let* ((fi (cvs-mode-marked nil nil :one t))
(default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
- (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
+ (buffer-file-name (expand-file-name (cvs-fileinfo->file fi)))
+ change-log-default-name)
;; This `save-excursion' is necessary because of interaction between
;; dynamic scoping and buffer-local variables:
;; the above binding of `buffer-file-name' has temporarily changed the
--
Yoshiki Hayashi