Carsten Dominik wrote:
> On Dec 3, 2009, at 10:34 PM, Martin Pohlack wrote:
> 
>> Carsten Dominik wrote:
>>> Hi Martin, this looks to me like a bug in whitespace.el, why does it
>>> override the display table org-mode is using?
>> Hmm, my understanding is that each buffer can have its own display
>> table, buffer-display-table.  whitespace-mode has to modify this table
>> (or install an own one) if it wants to do buffer-local modifications.
>> So I think it modifies org-mode's table but doesn't override it.
>>
>> My irritation is that by doing so, it does modifies some global state
>> that effects other buffers.
>>
>> A short look into org.el shows that org-display-table is never made
>> buffer local, so this data structure is shared across all org-mode  
>> buffers?
> 
> Yes, this is the idea, and it seems only logical to me.  So why
> do you want different settings in different Org buffers for
> whitespace?  So far I am unconvinced that creating a new
> table in each buffer with the right thing to do.

Ok, I have three argument to support this.

1. Let me start by describing a helper and how I use it.  This is a
   snippet from my init.el:

----8<---------------------------------------------------------->8----
;;;
;;; whitespace stuff
;;;
(when (require 'whitespace nil t)
  (require 'column-marker)

  (defvar cycle-whitespace-modes-state 0
    "whitespace mode states:
     0 -> no whitespace stuff,
     1 -> highlighting of stray whitespace, 72 & 80 column lines
     2 -> 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) 3)))
    (case cycle-whitespace-modes-state
      (0
       (whitespace-mode 0)
       (column-marker-1 -2)
       (column-marker-2 -2)
       (column-marker-3 -2))
      (1
       (whitespace-mode 0)
       (whitespace-mode 1)
       (column-marker-1 72)
       (column-marker-2 80))
      (otherwise
       (whitespace-mode 0)
       (whitespace-mode 1)
       (whitespace-toggle-options (list 'tab-mark 'space-mark))
       (column-marker-1 72)
       (column-marker-2 80))))

  (global-set-key [f10] 'my-cycle-whitespace-modes)

  (defun my-whitespace-modes-none () (my-cycle-whitespace-modes 0))
  (defun my-whitespace-modes-some () (my-cycle-whitespace-modes 1))
  (defun my-whitespace-modes-full () (my-cycle-whitespace-modes 2))

  (add-hook 'c-mode-common-hook         'my-whitespace-modes-some)
  ;…
  )
----8<---------------------------------------------------------->8----

I usually have whitespace mode active in a medium warning level
(my-whitespace-modes-some), which show whitespace at end of line etc.

Sometimes, I want to see all spaces and tabs in a single buffer
explicitly, e.g. for aligning stuff manually or debugging things
(my-whitespace-modes-full).

At other times, I want to deactivate all whitespace highlighting
(my-whitespace-modes-none), e.g., when dealing with long lines or when
crafting some ASCII drawings.

I make, all of these decision per buffer.


2. Whitespace-mode is usually buffer local.  Having it modify other
   buffers is irritating.  If global effects are desired there is the
   variable whitespace-global-modes


3. (whitespace-toggle-options …) is documented to modify the local
   buffer only.


Org's global display table de-localizes all of whitespace-mode's local
functionality.

Cheers,
Martin


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to