Function: gnus-symbolic-argument

gnus-symbolic-argument is an interactive and byte-compiled function defined in gnus.el.gz.

Signature

(gnus-symbolic-argument)

Documentation

Read a symbolic argument and a command, and then execute command.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
(defun gnus-symbolic-argument ()
  "Read a symbolic argument and a command, and then execute command."
  (interactive)
  (let* ((in-command (this-command-keys))
	 (command in-command)
	 gnus-current-prefix-symbols
	 gnus-current-prefix-symbol
	 syms)
    (while (equal in-command command)
      (message "%s-" (key-description (this-command-keys)))
      (push (intern (char-to-string (read-char))) syms)
      (setq command (read-key-sequence nil t)))
    (setq gnus-current-prefix-symbols (nreverse syms)
	  gnus-current-prefix-symbol (car gnus-current-prefix-symbols))
    (call-interactively (key-binding command t))))