Positioning point after insert in another buffer

Positioning point after insert in another buffer

[francis]

I am internationalising an application, and am trying to write a simple
emacs lisp function to kill the current region, insert a message into a
resource file in another buffer and then insert code to retrieve and
display the message.

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?

Here's the function:

(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 "\" />"))

Thanks,

Francis.

Re: Positioning point after insert in another buffer

[Thien-Thi Nguyen]

<francis@devrx.org> writes:

>   (kill-region (point) (mark))

change to: set a variable to `(buffer-substring (point) (mark))'.

>     (yank)

change to: insert the value of the variable.

thi

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