Function: viper-ket-function

viper-ket-function is an interactive and byte-compiled function defined in viper-cmd.el.gz.

Signature

(viper-ket-function ARG)

Documentation

Function called by ], the ket. View registers and call ]].

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-cmd.el.gz
;; Viewing registers

(defun viper-ket-function (arg)
  "Function called by ], the ket.  View registers and call ]]."
  (interactive "P")
  (let ((reg (read-char)))
    (cond ((viper-valid-register reg '(letter Letter))
	   (view-register (downcase reg)))
	  ((viper-valid-register reg '(digit))
	   (let ((text (current-kill (- reg ?1) 'do-not-rotate)))
	     (with-output-to-temp-buffer " *viper-info*"
	       (princ (format "Register %c contains the string:\n" reg))
	       (princ text))
	     ))
	  ((viper= ?\] reg)
	   (viper-next-heading arg))
	  (t (error
	      viper-InvalidRegister reg)))))