diff options
| -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 | |||
| 607 | (search-forward pattern nil t)))) | 607 | (search-forward pattern nil t)))) |
| 608 | (setq pattern (file-name-nondirectory file))) | 608 | (setq pattern (file-name-nondirectory file))) |
| 609 | 609 | ||
| 610 | (setq pattern (concat "\\(^\\|[^[:alnum:]]\\)" | ||
| 611 | pattern | ||
| 612 | "\\($\\|[^[:alnum:]]\\)")) | ||
| 613 | |||
| 610 | (let (texts) | 614 | (let (texts) |
| 611 | (while (search-forward pattern nil t) | 615 | (while (re-search-forward pattern nil t) |
| 612 | (let ((entry (log-edit-changelog-entry))) | 616 | (let ((entry (log-edit-changelog-entry))) |
| 613 | (push entry texts) | 617 | (push entry texts) |
| 614 | (goto-char (elt entry 1)))) | 618 | (goto-char (elt entry 1)))) |
| @@ -646,5 +650,5 @@ Sort REGIONS front-to-back first." | |||
| 646 | 650 | ||
| 647 | (provide 'log-edit) | 651 | (provide 'log-edit) |
| 648 | 652 | ||
| 649 | ;;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc | 653 | ;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc |
| 650 | ;;; log-edit.el ends here | 654 | ;;; log-edit.el ends here |