Mercurial > emacs

changeset 71919:9bf2fbfa2516

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in `tumme-get-comment'.
author Mathias Dahl <mathias.dahl@gmail.com>
date Sun, 16 Jul 2006 08:09:39 +0000
parents 873f1ea95cc4
children f9d6b4067f37
files lisp/tumme.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tumme.el	Sun Jul 16 04:28:10 2006 +0000
+++ b/lisp/tumme.el	Sun Jul 16 08:09:39 2006 +0000
@@ -2085,11 +2085,11 @@
 (defun tumme-get-comment (file)
   "Get comment for file FILE."
   (save-excursion
-    (let (end buf comment-beg comment (base-name (file-name-nondirectory file)))
+    (let (end buf comment-beg comment)
       (setq buf (find-file tumme-db-file))
       (goto-char (point-min))
       (when (search-forward-regexp
-             (format "^%s" base-name) nil t)
+             (format "^%s" file) nil t)
         (end-of-line)
         (setq end (point))
         (beginning-of-line)