Re: Positioning point after insert in another buffer

[Stefan Monnier]

> The problem I have is that after I have executed my function the point
> in the resource file is at the beginning of the inserted message. I
> want it to be at the end, so when I run my function several times the
> messages appear in the resource file in the order I created them. How
> can I do this?

See (info "(elisp)Window Point") for an explanation.

> (defvar fjdjava-message-buffer-name "ApplicationResources.properties")
> (defun fjdjava-region-to-message (key)
>   "Converts the region into a message in the buffer named
> `fjdjava-message-buffer-name'"
>   (interactive "sMessage key: \n")
>   (kill-region (point) (mark))
>   (save-excursion
>     (set-buffer fjdjava-message-buffer-name)
>     (insert key " = ")
>     (yank)
>     (insert "\n"))
>   (insert "<bean:message key=\"" key "\" />"))

  (defvar fjdjava-message-buffer-name "ApplicationResources.properties")
  (defun fjdjava-region-to-message (key)
    "Converts the region into a message in the buffer named
  `fjdjava-message-buffer-name'"
    (interactive "sMessage key: \n")
    (let ((text (delete-and-extract-region (region-beginning) (region-end))))
      (with-current-buffer fjdjava-message-buffer-name
        (insert key " = " text "\n")
        ;; Move cursor in the window that displays this buffer.
        (let ((win (get-buffer-window (current-buffer) 0)))
          (if win (set-window-point (point))))))
    (insert "<bean:message key=\"" key "\" />"))


-- Stefan