/[emacs]/emacs/lisp/log-edit.el
ViewVC logotype

Diff of /emacs/lisp/log-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by kfstorm, Wed Feb 9 15:50:41 2005 UTC revision 1.29 by nickrob, Wed May 25 21:29:56 2005 UTC
# Line 607  where LOGBUFFER is the name of the Chang Line 607  where LOGBUFFER is the name of the Chang
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))))
# Line 646  Sort REGIONS front-to-back first." Line 650  Sort REGIONS front-to-back first."
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

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26