getting abbrev table objects given a string with the same name

getting abbrev table objects given a string with the same name

[Benjamin Rutt]

How can I do something like the following:

(define-abbrev (concat "c-mode" "-abbrev-table") "foo" "bar" nil)

What I want is to define an abbrev based on an abbrev table name that
is dyamically built.  The problem is, the 1st arg to define-abbrev
must be an abbrev table, not a string.  So, the problem becomes, how
can I get an abbrev table, given a string with the same name.
-- 
Benjamin Rutt

Re: getting abbrev table objects given a string with the same name

[Thien-Thi Nguyen]

Benjamin Rutt <rutt.4+news@osu.edu> writes:

> how can I get an abbrev table, given a string with the same name.

this expression doesn't answer your question directly,
but in understanding it you will find the answer anyway:

(let ((name (concat "describe" "-" "function")))
  (eval `(,(intern name) ',(intern name))))

thi

Re: getting abbrev table objects given a string with the same name

[Kevin Rodgers]

Benjamin Rutt wrote:
 > How can I do something like the following:
 >
 > (define-abbrev (concat "c-mode" "-abbrev-table") "foo" "bar" nil)
 >
 > What I want is to define an abbrev based on an abbrev table name that
 > is dyamically built.  The problem is, the 1st arg to define-abbrev
 > must be an abbrev table, not a string.  So, the problem becomes, how
 > can I get an abbrev table, given a string with the same name.

You need to get from a string, to a symbol with the same name (with
intern), to it's value (with symbol-value):

(symbol-value (intern (concat "c-mode" "-abbrev-table")))

-- 
Kevin Rodgers

Re: getting abbrev table objects given a string with the same name

[Benjamin Rutt]

Thien-Thi Nguyen <ttn@glug.org> writes:

> Benjamin Rutt <rutt.4+news@osu.edu> writes:
>
>> how can I get an abbrev table, given a string with the same name.
>
> this expression doesn't answer your question directly,
> but in understanding it you will find the answer anyway:
>
> (let ((name (concat "describe" "-" "function")))
>   (eval `(,(intern name) ',(intern name))))

Thanks, `intern' and `eval' did the trick.
-- 
Benjamin Rutt