(setq marked/buffer-name "marked") (setq marked/process nil) (setq marked/queue nil) (defun marked/buffer () (get-buffer-create (concat "*" marked/buffer-name "*"))) (defun marked/tempbuffer () (get-buffer-create (concat "**" marked/buffer-name "**"))) (defun marked/show () (if (one-window-p) (split-window)) (other-window 1) (switch-to-buffer (marked/buffer)) (other-window 1)) (defun marked/proces