>>293
せっかくなので、作り直してみた。

(defun my-screen-lock ()
(interactive)
(let ((passwd "passwd")
(inhibit-quit t)
(frame (selected-frame))
(frame-conf (current-frame-configuration)))
(save-selected-window
(unwind-protect
(let ((splash-buffer "*GNU Emacs*"))
(mapc
(lambda (x)
(select-frame-set-input-focus x)
(if (get-buffer splash-buffer)
(switch-to-buffer splash-buffer)
(fancy-startup-screen))
(delete-other-windows))
(frame-list))
(select-frame-set-input-focus frame)
(catch 'event
(while t
(zone)
(when (input-pending-p)
(discard-input))
(when (string= (read-passwd "passwd:") passwd)
(throw 'event t))
(setq quit-flag nil))))
(set-frame-configuration frame-conf)))))