help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Converting string to symbol


From: excalamus
Subject: Re: Converting string to symbol
Date: Wed, 6 Jan 2021 03:51:29 +0100 (CET)

I got it.  Simply grab the symbol's value once it's been interned.  Thanks 
again for your help :)
(defun my-add-case-fixed-abbrev (name expansion &optional table)
  "Add fixed case abbrev with NAME and EXPANSION into TABLE.

TABLE is optional; defaults to `global-abbrev-table'."
  (interactive
   (let ((table (symbol-value (intern-soft (completing-read
          "Abbrev table (global-abbrev-table): "
          abbrev-table-name-list nil t nil nil "global-abbrev-table"))))
         (name (read-string "Abbrev name: "))
         (expansion (read-string "Expansion: ")))
     (list name expansion table)))
  (let ((table (or table global-abbrev-table)))
    (define-abbrev table name expansion nil :case-fixed t)))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]