emacs-orgmode
[Top][All Lists]
Advanced

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

[Orgmode] [PATCH] Fix org-goto when no file exists for a buffer


From: Paul Griepentrog
Subject: [Orgmode] [PATCH] Fix org-goto when no file exists for a buffer
Date: Wed, 9 Dec 2009 15:13:45 -0800

Thanks for Org-mode!

Every once in a while I use org-mode in a buffer that is not
associated with a file... and then org-goto gets confused.  To repeat:

BUFFER-NO-FILE
---------------
* One
  - a
* Two
  - b
---------------

M-x org-mode
C-c C-j
org-get-refile-targets: Wrong type argument: stringp, nil

;; Environment & Settings
Org-mode version 6.33trans
"GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600)
 of 2009-07-29 on SOFT-MJASON"

;; Org keybinding preferences
(setq
 org-M-RET-may-split-line              nil
 org-completion-use-ido                t
 org-fast-tag-selection-single-key     'expert
 org-goto-interface                    'outline-path-completion
 org-outline-path-complete-in-steps    nil           ; use iDo when jumping
 org-refile-targets                    '((nil :maxlevel . 2))
                                           ; Search current buffer, upto depth=2
 org-special-ctrl-a/e                  t
 org-special-ctrl-k                    t)

This patch fixes it:

--- c:/cygwin/home/pgriepentrog/rc.git/emacs/download/org-mode.git/lisp/org.el  
2009-12-09
13:45:42.031250000 -0800
+++ c:/cygwin/home/pgriepentrog/Local/share/emacs/site-lisp/org.el      
2009-12-09
14:17:57.203125000 -0800
@@ -8986,9 +8986,9 @@
          (with-current-buffer
              (if (bufferp f) f (org-get-agenda-file-buffer f))
            (if (bufferp f) (setq f (buffer-file-name (buffer-base-buffer f))))
-           (setq f (expand-file-name f))
            (if (eq org-refile-use-outline-path 'file)
-               (push (list (file-name-nondirectory f) f nil nil) targets))
+                (progn (setq f (expand-file-name f))
+                       (push (list (file-name-nondirectory f) f nil
nil) targets)))
            (save-excursion
              (save-restriction
                (widen)




reply via email to

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