Hi Brett,

Brett Viren <b...@bnl.gov> writes:

> (defun bv-daily-log-file ()
>   (find-file (concat "~/org/web/notes/" 
>                   (format-time-string "%Y-%m-%d") ".org"))
>   (goto-char (point-max))
>   (newline 2)
> )

You may try this (not tested myself):

(defun bv-daily-log-file ()
  (save-window-excursion
    (find-file (concat "~/org/web/notes/" 
                       (format-time-string "%Y-%m-%d") ".org"))
    (goto-char (point-max))
    (newline 2)))

The trick is to use `save-window-excursion'.

-- 
 Bastien

Reply via email to