debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Avoid unnecessary markers.

Browse source 
This is just cleanup.  These markers are all immediately resolved to
points by Emacs, so using markers here is just unncessary overhead.
This commit is contained in:
Austin Clements 2011-11-20 20:07:02 -05:00 committed by David Bremner
parent 3a3f6f0ab5
commit 9cfafc070a
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch.el
View file

@ -805,12 +805,12 @@ non-authors is found, assume that all of the authors match."
(goto-char (point-max)) (goto-char (point-max))
(if (/= (match-beginning 1) line) (if (/= (match-beginning 1) line)
(insert (concat "Error: Unexpected output from notmuch search:\n" (substring string line (match-beginning 1)) "\n"))) (insert (concat "Error: Unexpected output from notmuch search:\n" (substring string line (match-beginning 1)) "\n")))
(let ((beg (point-marker))) (let ((beg (point)))
(notmuch-search-show-result date count authors subject tags) (notmuch-search-show-result date count authors subject tags)
(notmuch-search-color-line beg (point-marker) tag-list) (notmuch-search-color-line beg (point) tag-list)
(put-text-property beg (point-marker) 'notmuch-search-thread-id thread-id) (put-text-property beg (point) 'notmuch-search-thread-id thread-id)
(put-text-property beg (point-marker) 'notmuch-search-authors authors) (put-text-property beg (point) 'notmuch-search-authors authors)
(put-text-property beg (point-marker) 'notmuch-search-subject subject) (put-text-property beg (point) 'notmuch-search-subject subject)
(if (string= thread-id notmuch-search-target-thread) (if (string= thread-id notmuch-search-target-thread)
(progn (progn
(set 'found-target beg) (set 'found-target beg)