Evaluating a variable under point?

Evaluating a variable under point?

[Elena]

Hello,

I'm trying to write an interactive function which evaluates variable
at point, unless region is active. Currently it looks like this:

(defun smart-eval ()
	(interactive)
	(if mark-active
		(eval-region)
		(case (char-syntax  (char-after))
		  ((?w ?_)
		   (eval-expression (string (thing-at-point 'symbol))))
		  (t
		   (message "Nothing to evaluate.")))))

However, I'm not getting results. What's wrong?

Thanks.

Re: Evaluating a variable under point?

[Elena]

On 30 Giu, 14:40, Andreas Politz <poli...@fh-trier.de> wrote:
> Maybe you want to write
>
> (eval (intern (thing-at-point ...

Thanks Andreas.

I get the behavior I expect when I evaluate the following into
*scratch*:

 		   (message (eval (intern "mark-active")))

However:

		   (message (eval (intern (thing-at-point 'symbol))))

does not work when point is over an occurrence of "mark-active" into a
buffer.

Re: Evaluating a variable under point?

[Andreas Politz]

Elena <egarrulo@gmail.com> writes:

> On 30 Giu, 14:40, Andreas Politz <poli...@fh-trier.de> wrote:
>> Maybe you want to write
>>
>> (eval (intern (thing-at-point ...
>
> Thanks Andreas.
>
> I get the behavior I expect when I evaluate the following into
> *scratch*:
>
>  		   (message (eval (intern "mark-active")))
>
> However:
>
> 		   (message (eval (intern (thing-at-point 'symbol))))
>
> does not work when point is over an occurrence of "mark-active" into a
> buffer.

I think the observed difference comes from different methods of
evaluation.  Anyway, you should use a format-string
(message "%s" expr)
.  Read the documentation of `message'.

-ap