Function: ogonek-read-encoding

ogonek-read-encoding is a byte-compiled function defined in ogonek.el.gz.

Signature

(ogonek-read-encoding PROMPT DEFAULT-NAME-VAR)

Documentation

Read encoding name with completion based on ogonek-name-encoding-alist.

Store the name in the parameter-variable DEFAULT-NAME-VAR. PROMPT is a string to be shown when the user is asked for a name.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ogonek.el.gz
;; ---- Auxiliary functions for reading parameters in interactive mode ----

(defun ogonek-read-encoding (prompt default-name-var)
  "Read encoding name with completion based on `ogonek-name-encoding-alist'.
Store the name in the parameter-variable DEFAULT-NAME-VAR.
PROMPT is a string to be shown when the user is asked for a name."
 (let ((encoding
        (completing-read (format-prompt prompt (symbol-value default-name-var))
                         ogonek-name-encoding-alist nil t)))
  ;; change the default name to the one just read, and
  ;; return the new default as the name you read
  (set default-name-var
    (if (string= encoding "") (symbol-value default-name-var) encoding))))