diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2005-05-25 21:29:56 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2005-05-25 21:29:56 +0000 |
| commit | b543ff57ce9d41d360b882696f839e2e069748a5 (patch) | |
| tree | 28785d89c8b4537ed23d070878814cffd3fb3907 /lisp/log-edit.el | |
| parent | 04c71a269073f4773214995b3f33cb193afe1f60 (diff) | |
| download | emacs-b543ff57ce9d41d360b882696f839e2e069748a5.tar.gz emacs-b543ff57ce9d41d360b882696f839e2e069748a5.tar.bz2 emacs-b543ff57ce9d41d360b882696f839e2e069748a5.zip | |
(log-edit-changelog-entries): Distinguish between
filenames like xfns.c and fns.c.
Coded by Stefan Monnier <monnier@iro.umontreal.ca>.
Diffstat (limited to 'lisp/log-edit.el')
| -rw-r--r-- | lisp/log-edit.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/log-edit.el b/lisp/log-edit.el index 1fa48b65aee..09116e0584f 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -607,8 +607,12 @@ where LOGBUFFER is the name of the ChangeLog buffer, and each (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)))) @@ -646,5 +650,5 @@ Sort REGIONS front-to-back first." (provide 'log-edit) -;;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc +;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc ;;; log-edit.el ends here |