>>291
screen のパスワードロックの仕様は知らないが、
スクリーンロックできる関数を適当に作ってみたよ。
ちなみに、\C-g でも解除されないよ。

(defun my-screen-lock ()
(interactive)
(let ((passwd "passwd")
(inhibit-quit t))
(catch 'event
(while t
(zone)
(when (input-pending-p)
(discard-input))
(when (string= (read-passwd "passwd:") passwd)
(throw 'event t))
(setq quit-flag nil)))))