10 lines
396 B
Plaintext
10 lines
396 B
Plaintext
;; This file implements the command '(safe-quit)' which gives a menu
|
|
;; asking if the user wants to quit or not. It should work with the
|
|
;; VTWM profile and the FVWM profile.
|
|
|
|
(setq safe-quit-menu (construct-menu "Do you really want to quit ?"
|
|
'("Yes" (end))
|
|
'("No" ())))
|
|
|
|
(defun safe-quit ()
|
|
(pop-menu safe-quit-menu)) |