[Orgmode] Org-mode version 6.32trans and 6.21b; Strange interaction between whitespace-mode and cust. org-ellipsis

[Martin Pohlack]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

I observe a strange interaction between whitespace-mode and org-mode
if org-ellipsis is set.

Whenever I use whitespace-toggle-options for customizing
whitespace-mode in a buffer, all org-mode buffers are effected.
Probably their display table is overwritten which only has effect if
org-ellipsis is set?

Steps to reproduce:

* Start emacs as follows (no local init file, start attached minimal
  init file, open two small org-files, also attached):

  $ emacs -q -l init.test.el test1.org test2.org

* Hit F10 in one org-mode buffer once.

* Look at other org-mode buffer to see that spaces are visualized via a
  centered dot.

What *is* happening:

* Other buffers are effected by a supposedly local action (display
  table?).

What *should* be happening:

* No change to other buffers should occur.

I'm not entirely convinced that org-mode is to blame here ...

Emacs  : GNU Emacs 23.1.1 (i686-pc-linux-gnu, GTK+ Version 2.14.7)
 of 2009-09-17 on monat400
Package: Org-mode version 6.21b
Package: Org-mode version 6.32trans

Org-settings see attachment.

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(org-ellipsis "…"))

(require 'whitespace)

(defvar cycle-whitespace-modes-state 0
  "whitespace mode states:
   0 -> highlighting of stray whitespace, 72 & 80 column lines
   1 -> ws highlighting and identification for tabs and spaces (», ·)")
(make-variable-buffer-local 'cycle-whitespace-modes-state)

(defun my-cycle-whitespace-modes (&optional state)
  (interactive)
  (if state
      (setq cycle-whitespace-modes-state state)
    (setq cycle-whitespace-modes-state
          (mod (1+ cycle-whitespace-modes-state) 2)))
  (case cycle-whitespace-modes-state
    (0
     (whitespace-mode 0)
     )
    (otherwise
     (whitespace-mode 0)
     (whitespace-mode 1)
     (whitespace-toggle-options (list 'tab-mark 'space-mark))
     )))
(global-set-key [f10] 'my-cycle-whitespace-modes)

abc def

abc def