diff options
| author | Mathias Dahl <mathias.dahl@gmail.com> | 2006-02-11 23:31:23 +0000 |
|---|---|---|
| committer | Mathias Dahl <mathias.dahl@gmail.com> | 2006-02-11 23:31:23 +0000 |
| commit | f9f3e0babf8a3c3ee2660aba332048c30979ee10 (patch) | |
| tree | af200437aa805d861b98c3a7e3e909160d1263eb /lisp/tumme.el | |
| parent | a7ed0f6fa766c82ccc41353d33ca784fe2890a23 (diff) | |
| download | emacs-f9f3e0babf8a3c3ee2660aba332048c30979ee10.tar.gz | |
Some small fixes.
Diffstat (limited to 'lisp/tumme.el')
| -rw-r--r-- | lisp/tumme.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/tumme.el b/lisp/tumme.el index 8f75da24ca2..9f29f71d289 100644 --- a/lisp/tumme.el +++ b/lisp/tumme.el @@ -2308,12 +2308,11 @@ function. The result is a couple of new files in (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 @@ function. The result is a couple of new files in (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 @@ matching tags will be marked in the dired buffer." (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 |