一時的な状態変更

save-excursionを使う。

(defun print-word-at-eol-old ()
  "カーソルを動かさずに、行末の単語を表示する。従来版"
  (interactive)
  (let ((orig-pt (point))) ;; 最初のポイントを明示する
    (end-of-line)
    (message "%s" (word-at-point))
    (goto-char orig-pt)))
(defun print-word-at-eol ()
  "カーソルを動かさずに、行末の単語を表示する。従来版"
  (interactive)
  (save-excursion; カーソルをもとに戻すスペシャルフォーム
    (end-of-line)
    (message "%s" (word-at-point))))

P108

Emacs Lispテクニックバイブル