mirror of https://github.com/djcb/mu.git
* mu4e: don't use beginning-of-buffer non-interactively (fixes compilation warning)
This commit is contained in:
parent
893cde89b9
commit
9c7d2e3b16
|
@ -194,17 +194,19 @@ store your org-contacts."
|
|||
the given regexp."
|
||||
(with-temp-buffer
|
||||
(insert-file-contents path)
|
||||
(save-excursion (beginning-of-buffer)
|
||||
(if (re-search-forward regexp nil t)
|
||||
t
|
||||
nil))))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward regexp nil t)
|
||||
t
|
||||
nil))))
|
||||
|
||||
(defun mu4e~replace-first-line-matching (regexp to-string path)
|
||||
"Replace the first line in the file at path that matches regexp
|
||||
with the string replace."
|
||||
(with-temp-file path
|
||||
(insert-file-contents path)
|
||||
(save-excursion (beginning-of-buffer)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward regexp nil t)
|
||||
(replace-match to-string nil nil)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue