>>258
(defun pkill ()
(interactive)
(if (y-or-n-p "pkill ")
(shell-command "/usr/bin/pkill -x -u 1001 dtterm")))