Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make bubbles-quit obsolete in favor of quit-window

Browse source 
* lisp/play/bubbles.el (bubbles-quit): Make obsolete in favor of
quit-window.  Update uses.
This commit is contained in:
Stefan Kangas 2022-07-21 08:21:16 +02:00
parent a4c0ea395b
commit 6940cebe03
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/play/bubbles.el
View file

@ -30,6 +30,8 @@
;; Bubbles is an implementation of the "Same Game", similar to "Same
;; GNOME" and many others, see <https://en.wikipedia.org/wiki/SameGame>.
;;; 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))