Function: gnus-read-char

gnus-read-char is a byte-compiled function defined in gnus-score.el.gz.

Signature

(gnus-read-char PROMPT OPTIONS)

Documentation

Read a character from the keyboard.

On Android, if use-dialog-box-p returns non-nil, display a dialog box containing PROMPT, with buttons representing each of item in the list of characters OPTIONS instead.

Value is the character read, as with read-char, or nil upon failure.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-score.el.gz
;; Touch screen ``character reading'' routines for
;; `gnus-summary-increase-score' and friends.

(defun gnus-read-char (prompt options)
  "Read a character from the keyboard.

On Android, if `use-dialog-box-p' returns non-nil, display a
dialog box containing PROMPT, with buttons representing each of
item in the list of characters OPTIONS instead.

Value is the character read, as with `read-char', or nil upon
failure."
  (if (and (display-graphic-p) (featurep 'android)
           (use-dialog-box-p))
      ;; Set up the dialog box.
      (let ((dialog (cons prompt ; Message displayed in dialog box.
                          (mapcar (lambda (arg)
                                    (cons (char-to-string arg)
                                          arg))
                                  options))))
        ;; Display the dialog box.
        (x-popup-dialog t dialog))
    ;; Fall back to read-char.
    (read-char)))