[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/tumme.el
From: |
Mathias Dahl |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/tumme.el |
Date: |
Sat, 11 Feb 2006 23:31:23 +0000 |
Index: emacs/lisp/tumme.el
diff -u emacs/lisp/tumme.el:1.12 emacs/lisp/tumme.el:1.13
--- emacs/lisp/tumme.el:1.12 Sat Feb 11 21:30:22 2006
+++ emacs/lisp/tumme.el Sat Feb 11 23:31:23 2006
@@ -2308,12 +2308,11 @@
(defun tumme-write-comment (file comment)
"For FILE, write comment COMMENT in database."
(save-excursion
- (let (end buf comment-beg
- (base-name (file-name-nondirectory file)))
+ (let (end buf comment-beg)
(setq buf (find-file tumme-db-file))
(goto-char (point-min))
(if (search-forward-regexp
- (format "^%s" base-name) nil t)
+ (format "^%s" file) nil t)
(progn
(end-of-line)
(setq end (point))
@@ -2336,7 +2335,7 @@
(insert (format "comment:%s;" comment)))
;; File does not exist in databse - add it.
(goto-char (point-max))
- (insert (format "\n%s;comment:%s" base-name comment)))
+ (insert (format "\n%s;comment:%s" file comment)))
(save-buffer)
(kill-buffer buf))))
@@ -2417,7 +2416,7 @@
(goto-char (point-min))
;; Collect matches
(while (search-forward-regexp
- (concat "\\(^[^;]+\\);.*" tag ".*$") nil t)
+ (concat "\\(^[^;\n]+\\);.*" tag ".*$") nil t)
(setq files (append (list (match-string 1)) files)))
(kill-buffer buf)
;; Mark files
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Thien-Thi Nguyen, 2006/02/06
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/06
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Juanma Barranquero, 2006/02/07
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/07
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/07
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/09
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/09
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/10
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/11
- [Emacs-diffs] Changes to emacs/lisp/tumme.el,
Mathias Dahl <=
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Juri Linkov, 2006/02/12
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/12
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Mathias Dahl, 2006/02/12
- [Emacs-diffs] Changes to emacs/lisp/tumme.el, Juri Linkov, 2006/02/13