Re: copy-region-as-kill => variable

[Tim Johnson]

* Harald Hanche-Olsen <hanche@math.ntnu.no> [060116 15:08]:
> + Tim Johnson <tim@johnsons-web.com>:
> 
> |   Is there a function that would operate as copy-region-as-kill,
> | but instead of copying to kill-ring would copy the data to a variable,
> | such as one created by 'defvar?
> 
> Such a beast is not terribly hard to write:
> 
> (defun copy-region-to-variable (start end variable)
>   (interactive "r\nvCopy region to variable: ")
>   (set variable (buffer-substring start end)))
> 
> Note that this copies text properties as well.
> You may find this confusing.  Or perhaps not.
Hi Harald:

(defun copy-rad-tag-text ()
  "Copy text inside of radio pseudo-tag to custom variable"
  (interactive)
  (let ((endpoint (point)))
    (message (number-to-string endpoint))
    (search-backward "rbtn")
    (forward-char 5)
    (setq tj-adhoc-1 (buffer-substring (point) endpoint))))
;; I get a wrong-type-of-argument error with 'set, thus setq.

Thanks for getting me started with this 'buffer-substring was the
key.

Cheers
-- 
Tim Johnson <tim@johnsons-web.com>
      http://www.alaska-internet-solutions.com