Re: bugs in org-remember-backup-directory

[Samuel Wales <samologist@gmail.com>]

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)))