log-edit.el

[Nick Roberts]

log-edit-insert-changelog (C-c C-a) picks up files with similar names e.g


2005-05-24  Nick Roberts  <address@hidden>

        * xmenu.c (Fx_popup_dialog): Add a third boolean argument to
        select frame title ("Question"/"Information").
        (xdialog_show): Use it.

        * macmenu.c (Fx_popup_dialog, mac_dialog_show): As for xmenu.c.

        * w32menu.c (Fx_popup_dialog, w32_dialog_show): As for xmenu.c.

        * fns.c (Fyes_or_no_p, Fy_or_n_p): Call Fx_popup_dialog with
        a third argument (Qnil).

        * lisp.h: x-popup-dialog can have three arguments.

        * editfns.c (Fmessage_box): Use "Information" for frame title.


vc-nect-action in fns.c (C-v v v) followed by C-c C-a picks up:

* fns.c (Fyes_or_no_p, Fy_or_n_p): Call Fx_popup_dialog with
a third argument (Qnil).

* editfns.c (Fmessage_box): Use "Information" for frame title.


How about the patch below to stop this?

Also, I use log-edit-insert-changelog all the time but never use pcl-cvs.
How about moving the node about log-edit from the pcl-cvs manual into
the Emacs manual?

Nick

*** /home/nick/emacs/lisp/log-edit.el.~1.28.~   2005-02-10 08:22:49.000000000 
+1300
--- /home/nick/emacs/lisp/log-edit.el   2005-05-25 22:52:52.000000000 +1200
***************
*** 632,638 ****
      ;; Add each buffer to buffer-entries, and associate it with the list
      ;; of entries we want from that file.
      (dolist (file files)
!       (let* ((entries (log-edit-changelog-entries file))
               (pair (assq (car entries) buffer-entries)))
          (if pair
              (setcdr pair (cvs-union (cdr pair) (cdr entries)))
--- 632,639 ----
      ;; Add each buffer to buffer-entries, and associate it with the list
      ;; of entries we want from that file.
      (dolist (file files)
!       ;; Prefix filename with a space to distinguish e.g fns.c xfns.c.
!       (let* ((entries (log-edit-changelog-entries (concat " " file)))
               (pair (assq (car entries) buffer-entries)))
          (if pair
              (setcdr pair (cvs-union (cdr pair) (cdr entries)))