+;;; Command entering
+;;
+
+(defun lirc-enter-string (string)
+ (cond ((string-prefix-p "/" string)
+ (let ((cmd-str (substring string 1)))
+ (lirc-send-msg (lirc-msg nil nil cmd-str))))
+ (t
+ (error "Unknown command" string))))
+
+(defun lirc-enter ()
+ "Enter current contents of line after prompt."
+ (interactive)
+ (with-current-buffer "*lirc*"
+ (lirc-enter-string
+ (buffer-substring lirc-input-marker (point-max)))))
+
+