Function: elisp--read-symbol-shorthands

elisp--read-symbol-shorthands is a byte-compiled function defined in elisp-mode.el.gz.

Signature

(elisp--read-symbol-shorthands S)

Documentation

Return a fresh list of shorthand-ed alternative spellings of symbol S.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/elisp-mode.el.gz
(defun elisp--read-symbol-shorthands (s)
  "Return a fresh list of shorthand-ed alternative spellings of symbol S."
  (let ((retval ()))
    (cl-loop
     for (shorthand . longhand) in read-symbol-shorthands
     for full-name = (symbol-name s)
     when (string-prefix-p longhand full-name)
     do (let ((sym (make-symbol
                    (concat shorthand
                            (substring full-name
                                       (length longhand))))))
          (put sym 'elisp--longhand s)
          (push sym retval)
          retval))
    retval))