display property strangeness

[Nick Roberts]

I've just realised what the problem is: 1 2 and 3 are *adjacent positions
(if you try 1 3 and 5 it works as you expect) so

(defun foo ()
  (interactive)
  (let ((pos '(1 2 3)))
    (while pos
      (put-text-property (car pos) (1+ (car pos)) 'display "A")
      (setq pos (cdr pos)))))

works like:

(defun foo-1 ()
  (interactive)
      (put-text-property 1 3 'display "A"))


Nick