[Emacs-diffs] trunk r117363: * lisp/play/bubbles.el (bubbles--initialize, bubbles--show-scores)

[Stefan Monnier]

------------------------------------------------------------
revno: 117363
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2014-06-18 15:38:00 -0400
message:
  * lisp/play/bubbles.el (bubbles--initialize, bubbles--show-scores)
  (bubbles--game-over): Don't add `intangible' properties since they
  didn't work anyway.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/play/bubbles.el           bubbles.el-20091113204419-o5vbwnq5f7feedwu-5217

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-18 08:54:11 +0000
+++ b/lisp/ChangeLog    2014-06-18 19:38:00 +0000
@@ -1,3 +1,9 @@
+2014-06-18  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc/ediff-init.el (ediff-current-diff-Ancestor)

=== modified file 'lisp/play/bubbles.el'
--- a/lisp/play/bubbles.el      2014-01-12 05:29:11 +0000
+++ b/lisp/play/bubbles.el      2014-06-18 19:38:00 +0000
@@ -1005,20 +1005,17 @@
     (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 @@
             (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 @@
       (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 @@
   (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"