Re: Filename of buffer into kill-ring functionality

[Reiner Steib]

On Thu, Aug 31 2006, Kevin Rodgers wrote:

> (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)))))

Is there a reason why you use (boundp symbol) inside
(with-current-buffer ...)?  In other words: Is there any difference
between these variants?

(with-current-buffer current-buffer
  (and (boundp symbol)
       (stringp (symbol-value symbol))))

(and (boundp symbol)
     (with-current-buffer current-buffer
       (stringp (symbol-value symbol))))

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/