Lines Matching defs:reg
60 (defvar viper-last-macro-reg nil)
898 (defun viper-set-register-macro (reg)
899 (if (get-register reg)
904 (set-register reg last-kbd-macro))
909 (let ((reg (downcase (read-char))))
910 (cond ((or (and (<= ?a reg) (<= reg ?z)))
911 (setq viper-last-macro-reg reg)
915 (viper-set-register-macro reg))
916 (execute-kbd-macro (get-register reg) count)))
917 ((or (= ?@ reg) (= ?\^j reg) (= ?\^m reg))
918 (if viper-last-macro-reg
921 (execute-kbd-macro (get-register viper-last-macro-reg) count))
922 ((= ?\# reg)
924 ((= ?! reg)
925 (setq reg (downcase (read-char)))
926 (if (or (and (<= ?a reg) (<= reg ?z)))
928 (setq viper-last-macro-reg reg)
929 (viper-set-register-macro reg))))
931 (error "`%c': Unknown register" reg)))))