emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e: don't use beginning-of-buffer non-interactively (fixes compilation warning)

This commit is contained in:
djcb 2013-03-17 19:45:16 +02:00
parent 893cde89b9
commit 9c7d2e3b16
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-actions.el
View File

@ -194,17 +194,19 @@ store your org-contacts."
the given regexp." the given regexp."
(with-temp-buffer (with-temp-buffer
(insert-file-contents path) (insert-file-contents path)
(save-excursion (beginning-of-buffer) (save-excursion
(if (re-search-forward regexp nil t) (goto-char (point-min))
t (if (re-search-forward regexp nil t)
nil)))) t
nil))))
(defun mu4e~replace-first-line-matching (regexp to-string path) (defun mu4e~replace-first-line-matching (regexp to-string path)
"Replace the first line in the file at path that matches regexp "Replace the first line in the file at path that matches regexp
with the string replace." with the string replace."
(with-temp-file path (with-temp-file path
(insert-file-contents path) (insert-file-contents path)
(save-excursion (beginning-of-buffer) (save-excursion
(goto-char (point-min))
(if (re-search-forward regexp nil t) (if (re-search-forward regexp nil t)
(replace-match to-string nil nil))))) (replace-match to-string nil nil)))))