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

* lisp/play/bubbles.el (bubbles--initialize, bubbles--show-scores)

Browse source 
(bubbles--game-over): Don't add `intangible' properties since they
didn't work anyway.
This commit is contained in:
Stefan Monnier 2014-06-18 15:38:00 -04:00
parent 382ceb2cdb
commit cf10b34945
2 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-06-18 Stefan Monnier <monnier@iro.umontreal.ca>
* play/bubbles.el (bubbles--initialize, bubbles--show-scores)
(bubbles--game-over): Don't add `intangible' properties since they
didn't work anyway.
2014-06-18 Juri Linkov <juri@jurta.org>
* vc/ediff-init.el (ediff-current-diff-Ancestor)

36
lisp/play/bubbles.el
View file

@ -1005,20 +1005,17 @@ Set `bubbles--col-offset' and `bubbles--row-offset'."
(set-buffer-modified-p nil)
(erase-buffer)
(insert " ")
(add-text-properties
(point-min) (point) (list 'intangible t 'display
(cons 'space
(list :height bubbles--row-offset))))
(put-text-property (point-min) (point)
'display
(cons 'space (list :height bubbles--row-offset)))
(insert "\n")
(let ((max-char (length (bubbles--colors))))
(dotimes (i (bubbles--grid-height))
(let ((p (point)))
(insert " ")
(add-text-properties
p (point) (list 'intangible t
'display (cons 'space
(list :width
bubbles--col-offset)))))
(put-text-property p (point)
'display
(cons 'space (list :width bubbles--col-offset))))
(dotimes (j (bubbles--grid-width))
(let* ((index (random max-char))
(char (nth index bubbles-chars)))
@ -1026,10 +1023,9 @@ Set `bubbles--col-offset' and `bubbles--row-offset'."
(add-text-properties (1- (point)) (point) (list 'index index))))
(insert "\n"))
(insert "\n ")
(add-text-properties
(1- (point)) (point) (list 'intangible t 'display
(cons 'space
(list :width bubbles--col-offset)))))
(put-text-property (1- (point)) (point)
'display
(cons 'space (list :width bubbles--col-offset))))
(put-text-property (point-min) (point-max) 'pointer 'arrow))
(bubbles-mode)
(bubbles--reset-score)
@ -1179,10 +1175,9 @@ Use optional parameter POS instead of point if given."
(delete-region (point) (point-max))
(insert (format "Selected: %4d\n" bubbles--neighborhood-score))
(insert " ")
(add-text-properties (1- (point)) (point)
(list 'intangible t 'display
(cons 'space
(list :width bubbles--col-offset))))
(put-text-property (1- (point)) (point)
'display
(cons 'space (list :width bubbles--col-offset)))
(insert (format "Score: %4d" bubbles--score))
(put-text-property pos (point) 'status t))))
@ -1200,10 +1195,9 @@ Use optional parameter POS instead of point if given."
(goto-char (point-max))
(let* ((inhibit-read-only t))
(insert "\n ")
(add-text-properties (1- (point)) (point)
(list 'intangible t 'display
(cons 'space
(list :width bubbles--col-offset))))
(put-text-property (1- (point)) (point)
'display
(cons 'space (list :width bubbles--col-offset)))
(insert "Game Over!"))
;; save score
(gamegrid-add-score (format "bubbles-%s-%d-%d-%d-scores"