From: Stefan Kangas Date: Thu, 21 Jul 2022 06:21:16 +0000 (+0200) Subject: Make bubbles-quit obsolete in favor of quit-window X-Git-Tag: emacs-29.0.90~1447^2~830 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6940cebe032858e307fa24fb32ba9f5c8cb56835;p=emacs.git Make bubbles-quit obsolete in favor of quit-window * lisp/play/bubbles.el (bubbles-quit): Make obsolete in favor of quit-window. Update uses. --- diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el index 93fbc3b51b7..808fc82d19a 100644 --- a/lisp/play/bubbles.el +++ b/lisp/play/bubbles.el @@ -30,6 +30,8 @@ ;; Bubbles is an implementation of the "Same Game", similar to "Same ;; GNOME" and many others, see . +;;; Code: + ;; ====================================================================== ;;; History: @@ -70,8 +72,6 @@ ;; ====================================================================== -;;; Code: - (require 'gamegrid) ;; User options @@ -812,7 +812,7 @@ static char * dot3d_xpm[] = { (defvar-keymap bubbles-mode-map :doc "Mode map for `bubbles'." :name 'bubbles-mode-map - "q" #'bubbles-quit + "q" #'quit-window "C-j" #'bubbles-plop "SPC" #'bubbles-plop "C-m" #'bubbles-plop @@ -871,7 +871,7 @@ static char * dot3d_xpm[] = { ["Save all settings" bubbles-save-settings] "---" ["New game" bubbles] - ["Quit" bubbles-quit])) + ["Quit" quit-window])) ;; bind menu to mouse (define-key bubbles-mode-map [down-mouse-3] bubbles-menu) @@ -910,6 +910,7 @@ columns on its right towards the left. (defun bubbles-quit () "Quit Bubbles." + (declare (obsolete quit-window "29.1")) (interactive nil bubbles-mode) (message "bubbles-quit") (bury-buffer))