Re: text-mode-abbrev-table default?

[Leo <sdl.web@gmail.com>]

On 2009-10-28 15:30 +0000, Carsten Dominik wrote:
>> On 2009-10-28 09:19 +0000, Carsten Dominik wrote:
>>> Because if I do tis by default, someone if going to want to have a
>>> separate table.... :-)
>>> You solution is good - a nice snippet for a FAQ, maybe?
>> It seems natural to `define-abbrev-table' org-mode-abbrev-table with
>> text-mode-abbrev-table being its parent ;)
>
> Hmm, after reconsidering, I think you are right.
>
> How exactly would that look like? Should that be a top-level form in
> org.el? And should I then define org-mode with :abbrev-table
> org-mode-abbrev- table ?
>
> Just make me a patch, and I will apply it.

I make the following patch using the org.el in Emacs (cvs 20090922).

diff -u -L /Applications/Emacs.app/Contents/Resources/lisp/org/org.el.gz -L /var/folders/b2/b2DGafs+EpaLFYrOC7ZWR++++TQ/-Tmp-/buffer-content-58096yEn /var/folders/b2/b2DGafs\+EpaLFYrOC7ZWR\+\+\+\+TQ/-Tmp-/jka-com58096_Ot /var/folders/b2/b2DGafs\+EpaLFYrOC7ZWR\+\+\+\+TQ/-Tmp-/buffer-content-58096yEn
--- /Applications/Emacs.app/Contents/Resources/lisp/org/org.el.gz
+++ /var/folders/b2/b2DGafs+EpaLFYrOC7ZWR++++TQ/-Tmp-/buffer-content-58096yEn
@@ -4054,6 +4054,8 @@
       (org-indent-mode 1))
     (org-set-startup-visibility)))
 
+(abbrev-table-put org-mode-abbrev-table
+                  :parents (list text-mode-abbrev-table))
 (put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify)
 
 (defun org-current-time ()

Diff finished.  Thu Oct 29 08:20:52 2009

> Thanks.
>
> - Carsten

Best wishes,

Leo

-- 
Emacs uptime: 36 days, 23 hours, 32 minutes, 4 seconds