emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] bugs in org-remember-backup-directory


From: Samuel Wales
Subject: Re: [Orgmode] bugs in org-remember-backup-directory
Date: Fri, 26 Jun 2009 15:27:24 -0700

If org-remember-finalize

  (when buffer-file-name
    (save-buffer))

is only for org-remember-directory purposes, then perhaps running
do-auto-save instead of save-buffer will fix the bug.

Thanks.

On Thu, Jun 4, 2009 at 20:59, Samuel Wales<address@hidden> wrote:
> The bug still exists.
>
> To reproduce, run emacs -Q --load <the minimal setup below>, remember
> a task, make enough changes to trigger do-auto-save, then c-x c-s.  It
> should tell you it has changed and ask if you want to save.
>
> You will have to set 3 env vars for dirs of your choice.
> I didn't want to risk making dirs for you.
>
> (require 'cl)
>
> (defun alpha-add-path (p) (setq load-path (cons p load-path)))
>
> (alpha-add-path (concat (getenv "delorgsrc") "/lisp"))
> (alpha-add-path (concat (getenv "delpkgbef") "/remember"))
>
> (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
>
> (defvar alpha-mac-font
>  "-apple-courier-medium-r-normal--24-240-72-72-m-240-iso10646-1")
> '(progn
>  (progn
>    (defconst alpha-mac-font-2
>      "-apple-courier-medium-r-normal--*-*-*-*-*-240-*")
>    (set-frame-font alpha-mac-font-2))
>  )
> (set-frame-font alpha-mac-font)
>
> (require 'org-install)
>
> (defvar alpha-org-map (make-sparse-keymap "alpha org map"))
> (define-key global-map [f8] alpha-org-map)
> (define-key alpha-org-map [f8] 'org-remember)             ;c-c r
> (define-key alpha-org-map "o" 'org-open-at-point-global) ;c-c o
>
> (require 'remember-autoloads)
> (org-remember-insinuate)
>
> (setq org-remember-templates
>      `(("conversation" ?c    "* CONVERSATION %U %?\n%i")))
>
> (add-hook 'remember-mode-hook 'delete-other-windows)
> (setf org-remember-backup-directory
>      (getenv "demacsremember"))
> ;;;(setf org-remember-backup-directory nil)
> (add-hook 'org-remember-mode-hook
>          (lambda () (when org-remember-backup-directory
>                       (cd org-remember-backup-directory))))
> (add-hook 'org-remember-mode-hook
>          (lambda ()
>            (define-key org-remember-mode-map
>                "\C-x\C-s" 'org-remember-finalize)
>            ;;i think org-mode-map will override?
>            (define-key org-remember-mode-map
>                "\C-c\C-c" nil)))
>



-- 
Myalgic encephalomyelitis is causing death and severe suffering
worse than MS.  Conflicts of interest are destroying research.
People get the disease at any time permanently.  Do science and
justice matter to you?  http://www.meactionuk.org.uk/What_Is_ME_What_Is_CFS.htm




reply via email to

[Prev in Thread] Current Thread [Next in Thread]