Emacs Lisp を勉強中。関数定義と kill-ring-yank-pointer を覚えたので、カレントバッファに開いているファイル名をミニバッファに表示し kill-ring に保存する関数を書いてみた。

(defun print-buffer-file-name ()

  "Display the file name visited in current buffer in the echo area

 and put it into `kill-ring'"

  (interactive)

  (let ((file-name buffer-file-name))

    (if file-name

	(progn (setq kill-ring (cons file-name kill-ring))

	       (setq kill-ring-yank-pointer kill-ring)

	       (message "%s" file-name))

      (message "not visiting a file"))))