[emacs-wiki-discuss] Re: planner-accomplishments-insinuate

[Sacha Chua]

Christopher San Diego <address@hidden> writes:

> write-file-functions planner-accomplishments-update nil t] 5]

Mrph. I always hate dealing with write-file-functions and friends,
as this leads to slight platform cruft. Does anyone have a better
way of handling this?

Could you please try the following? Thanks!

(defun planner-accomplishments-insinuate ()
  "Automatically call `planner-accomplishments-update'."
  (add-hook 'planner-mode-hook
            (lambda ()
              (add-hook
               (cond
                ((boundp 'write-file-functions) 'write-file-functions)
                ((boundp 'local-write-file-hooks) 'local-write-file-hooks)
                ((boundp 'write-file-hooks) 'write-file-hooks))
               'planner-accomplishments-update nil t))))

-- 
Sacha Chua <address@hidden> - open source geekette
interests: emacs, gnu/linux, making computer science education fun
wearable computing, personal information management
http://sacha.free.net.ph/ - PGP Key ID: 0xE7FDF77C