607 |
(search-forward pattern nil t)))) |
(search-forward pattern nil t)))) |
608 |
(setq pattern (file-name-nondirectory file))) |
(setq pattern (file-name-nondirectory file))) |
609 |
|
|
610 |
|
(setq pattern (concat "\\(^\\|[^[:alnum:]]\\)" |
611 |
|
pattern |
612 |
|
"\\($\\|[^[:alnum:]]\\)")) |
613 |
|
|
614 |
(let (texts) |
(let (texts) |
615 |
(while (search-forward pattern nil t) |
(while (re-search-forward pattern nil t) |
616 |
(let ((entry (log-edit-changelog-entry))) |
(let ((entry (log-edit-changelog-entry))) |
617 |
(push entry texts) |
(push entry texts) |
618 |
(goto-char (elt entry 1)))) |
(goto-char (elt entry 1)))) |
650 |
|
|
651 |
(provide 'log-edit) |
(provide 'log-edit) |
652 |
|
|
653 |
;;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc |
;; arch-tag: 8089b39c-983b-4e83-93cd-ed0a64c7fdcc |
654 |
;;; log-edit.el ends here |
;;; log-edit.el ends here |