diff options
| author | Mathias Dahl | 2006-07-16 08:09:39 +0000 |
|---|---|---|
| committer | Mathias Dahl | 2006-07-16 08:09:39 +0000 |
| commit | 95ea88aa190edff8d574350afb92e045c2a9f88b (patch) | |
| tree | 537811213cd5be22d760f3aa718f81605e3d5061 | |
| parent | ba83982b7f01f0265a1e2a3825cf0f4efd89854a (diff) | |
| download | emacs-95ea88aa190edff8d574350afb92e045c2a9f88b.tar.gz emacs-95ea88aa190edff8d574350afb92e045c2a9f88b.zip | |
Fix bug in `tumme-get-comment'.
| -rw-r--r-- | lisp/tumme.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/tumme.el b/lisp/tumme.el index 26d48e77b2f..b45052bf09e 100644 --- a/lisp/tumme.el +++ b/lisp/tumme.el | |||
| @@ -2085,11 +2085,11 @@ as initial value." | |||
| 2085 | (defun tumme-get-comment (file) | 2085 | (defun tumme-get-comment (file) |
| 2086 | "Get comment for file FILE." | 2086 | "Get comment for file FILE." |
| 2087 | (save-excursion | 2087 | (save-excursion |
| 2088 | (let (end buf comment-beg comment (base-name (file-name-nondirectory file))) | 2088 | (let (end buf comment-beg comment) |
| 2089 | (setq buf (find-file tumme-db-file)) | 2089 | (setq buf (find-file tumme-db-file)) |
| 2090 | (goto-char (point-min)) | 2090 | (goto-char (point-min)) |
| 2091 | (when (search-forward-regexp | 2091 | (when (search-forward-regexp |
| 2092 | (format "^%s" base-name) nil t) | 2092 | (format "^%s" file) nil t) |
| 2093 | (end-of-line) | 2093 | (end-of-line) |
| 2094 | (setq end (point)) | 2094 | (setq end (point)) |
| 2095 | (beginning-of-line) | 2095 | (beginning-of-line) |