Mercurial > emacs
changeset 99902:19d0410ccdd2
* play/bubbles.el (bubbles-mode): Define with `define-derived-mode'.
(bubbles-shift-mode, bubbles--update-score): Fix typos in docstrings.
(bubbles--empty-char): Use "\s".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Nov 2008 02:01:58 +0000 |
| parents | d68ed99cb07f |
| children | 8fb8b5898508 |
| files | lisp/ChangeLog lisp/play/bubbles.el |
| diffstat | 2 files changed, 11 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 25 01:30:22 2008 +0000 +++ b/lisp/ChangeLog Tue Nov 25 02:01:58 2008 +0000 @@ -1,3 +1,9 @@ +2008-11-25 Juanma Barranquero <lekktu@gmail.com> + + * play/bubbles.el (bubbles-mode): Define with `define-derived-mode'. + (bubbles-shift-mode, bubbles--update-score): Fix typos in docstrings. + (bubbles--empty-char): Use "\s". + 2008-11-25 Jay Belanger <jay.p.belanger@gmail.com> * calc/calc.el (calc-settings-file, calc-language-alist) @@ -14939,7 +14945,6 @@ standard-display-table. (latin1-display-identities): Adjust for the change of what is returned by (get-language-info charset 'charset). - * international/mule-util.el (char-displayable-p): Fix for Latin-1 characters and terminal case.
--- a/lisp/play/bubbles.el Tue Nov 25 01:30:22 2008 +0000 +++ b/lisp/play/bubbles.el Tue Nov 25 02:01:58 2008 +0000 @@ -209,7 +209,7 @@ (defcustom bubbles-shift-mode 'default "Shift mode. -Available modes are `shift-default' and`shift-always'." +Available modes are `shift-default' and `shift-always'." :type '(radio (const :tag "Default" default) (const :tag "Shifter" always) ;;(const :tag "Mega Shifter" 'mega) @@ -782,7 +782,7 @@ (defsubst bubbles--empty-char () "The character used for removed bubbles (empty grid cells)." - ? ) + ?\s) (defun bubbles-set-graphics-theme-ascii () "Set graphics theme to `ascii'." @@ -918,20 +918,14 @@ map) "Mode map for bubbles.") -(defun bubbles-mode () +(define-derived-mode bubbles-mode nil "Bubbles" "Major mode for playing bubbles. \\{bubbles-mode-map}" - (kill-all-local-variables) - (use-local-map bubbles-mode-map) - (setq major-mode 'bubbles-mode) - (setq mode-name "Bubbles") (setq buffer-read-only t) (buffer-disable-undo) - (setq buffer-undo-list t) (force-mode-line-update) (redisplay) - (add-hook 'post-command-hook 'bubbles--mark-neighbourhood t t) - (run-hooks 'bubbles-mode-hook)) + (add-hook 'post-command-hook 'bubbles--mark-neighbourhood t t)) ;;;###autoload (defun bubbles () @@ -1154,7 +1148,7 @@ (bubbles--update-score)) (defun bubbles--update-score () - "Calculate and display new bubble score." + "Calculate and display new bubbles score." (setq bubbles--score (+ bubbles--score bubbles--neighbourhood-score)) (bubbles--show-scores))