Re: How to test if symbol from string exists?

[Jean Louis <bugs@gnu.support>]

* Philip Kaludercic <philipk@posteo.net> [2021-04-16 12:23]:
> Jean Louis <bugs@gnu.support> writes:
> 
> > I would like to test if symbol exists and is true.
> >
> > First I have string, like "people", then I can do this:
> >
> > (symbol-value (intern "rcd-db-people-mode-map")) and it gives me
> > result.
> 
> I think you want to use intern-soft, to return a symbol if it exists,
> and nil if it doesn't. If you want to check if it is "used", boundp
> should suffice, regardless of whether you use intern or intern-soft.

Thanks, I made it this way here:

(defun rcd-db-table-mode-map (table)
  (let ((symbol (format "rcd-db-%s-mode-map" table)))
  (if (intern-soft symbol)
      (symbol-value (intern symbol))
    rcd-db-mode-map)))

as that replaces now the function below and I can just add new
function with new string to invoke either the default or specialy
defined mode map.

;; (defun rcd-db-table-mode-map (table)
;;   (cond ((string= "accounts" table) rcd-db-accounts-mode-map)
;; 	((string= "acks" table) rcd-db-acks-mode-map)
;; 	((string= "addressbookentries" table) rcd-db-addressbookentries-mode-map)
;; 	((string= "areas" table) rcd-db-areas-mode-map)
;; 	((string= "categories" table) rcd-db-categories-mode-map)
;; 	((string= "countries" table) rcd-db-countries-mode-map)
;; 	((string= "devt" table) rcd-db-devt-mode-map)
;; 	((string= "edit" table) rcd-db-edit-mode-map)
;; 	((string= "emails" table) rcd-db-emails-mode-map)
;; 	((string= "groups" table) rcd-db-groups-mode-map)
;; 	((string= "locationsets" table) rcd-db-locationsets-mode-map)
;; 	((string= "mailinglistoptions" table) rcd-db-mailinglistoptions-mode-map)
;; 	((string= "notes" table) rcd-db-notes-mode-map)
;; 	((string= "pages" table) rcd-db-pages-mode-map)
;; 	((string= "people" table) rcd-db-people-mode-map)
;; 	((string= "skills" table) rcd-db-skills-mode-map)
;; 	((string= "sms" table) rcd-db-sms-mode-map)
;; 	((string= "statsdefinitions" table) rcd-db-statsdefinitions-mode-map)
;; 	(t rcd-db-mode-map)))

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

Sign an open letter in support of Richard M. Stallman
https://stallmansupport.org/
https://rms-support-letter.github.io/