Re: log-edit.el

[Stefan Monnier <monnier@iro.umontreal.ca>]

> 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?

This idea might be OK, but the place to add a " " is not where you put it
but inside log-edit-changelog-entries where we do a (search-forward
pattern).

Is the patch below working for you?

> 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?

No objection here,


        Stefan


--- orig/lisp/log-edit.el
+++ mod/lisp/log-edit.el
@@ -616,8 +616,12 @@
 			   (search-forward pattern nil t))))
 		(setq pattern (file-name-nondirectory file)))
 
+            (setq pattern (concat "\\(^\\|[^[:alnum:]]\\)"
+                                  pattern
+                                  "\\($\\|[^[:alnum:]]\\)"))
+
 	    (let (texts)
-	      (while (search-forward pattern nil t)
+	      (while (re-search-forward pattern nil t)
 		(let ((entry (log-edit-changelog-entry)))
 		  (push entry texts)
 		  (goto-char (elt entry 1))))
@@ -655,5 +659,5 @@
 
 (provide 'log-edit)
 
-;;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc
+;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc
 ;;; log-edit.el ends here