Re: Filename of buffer into kill-ring functionality

[Kevin Rodgers <ihs_4664@yahoo.com>]

Reiner Steib wrote:
> On Thu, Aug 31 2006, Marco Wahl wrote:
> 
>> is there already a function in emacs that puts the
>> absolute filename belonging to a buffer into the
>> kill-ring?  
> 
> I'm not aware of any predefined function for this.  You might use this
> one:
> 
> (defun rs-kill-ring-save-buffer-file-name ()
>   "Add `buffer-file-name' in the kill ring."
>   (interactive)
>   (if (not (stringp buffer-file-name))
>       (error "Not visiting a file.")
>     (kill-new buffer-file-name)
>     ;; Give some visual feedback:
>     (message "String \"%s\" saved to kill ring." buffer-file-name)
>     buffer-file-name))

That can be easily generalized:

(defun kill-new-string-variable (variable)
   "Make the string value of VARIABLE the latest kill in the kill ring."
   (interactive (let ((current-buffer (current-buffer)))
		 (intern (completing-read "Variable: " obarray
					  (lambda (symbol)
					    (with-current-buffer current-buffer
					      (and (boundp symbol)
						   (stringp
						    (symbol-value symbol)))))
					  t))))
   ;; Let symbol-value and kill-new signal errors for unbound variables
   ;; and non-string values, respectively:
   (kill-new (symbol-value variable)))

(defun kill-new-buffer-file-name ()
   (kill-new-string-variable 'buffer-file-name))

-- 
Kevin