Commit bb31cb31 authored by Carsten Dominik's avatar Carsten Dominik

2008-12-23 Carsten Dominik <dominik@science.uva.nl>

	* org-remember.el (org-remember-handler): Safer way to get a new
	buffer accessing the target file.

	* org.el (org-refile-get-location): Handle case of current buffer
	not having a file associated with it.
parent 3fbb3dc4
2008-12-23 Carsten Dominik <dominik@science.uva.nl>
* org-remember.el (org-remember-handler): Safer way to get a new
buffer accessing the target file.
* org.el (org-refile-get-location): Handle case of current buffer
not having a file associated with it.
2008-12-22 Carsten Dominik <dominik@science.uva.nl>
* org-table.el (org-table-get-formula): Only ask to overwrite
......
......@@ -809,8 +809,7 @@ See also the variable `org-reverse-note-order'."
(move-marker org-remember-last-stored-marker (point)))
(throw 'quit t))
;; Find the file
(if (not visiting) (find-file-noselect file))
(with-current-buffer (or visiting (get-file-buffer file))
(with-current-buffer (or visiting (find-file-noselect file))
(unless (org-mode-p)
(error "Target files for remember notes must be in Org-mode"))
(save-excursion
......
......@@ -7668,13 +7668,13 @@ operation has put the subtree."
(unless org-refile-target-table
(error "No refile targets"))
(let* ((cbuf (current-buffer))
(cfn (buffer-file-name (buffer-base-buffer cbuf)))
(cfunc (if (and org-refile-use-outline-path
org-outline-path-complete-in-steps)
'org-olpath-completing-read
'org-ido-completing-read))
(extra (if org-refile-use-outline-path "/" ""))
(filename (expand-file-name
(buffer-file-name (buffer-base-buffer cbuf))))
(filename (and cfn (expand-file-name cfn)))
(tbl (mapcar
(lambda (x)
(if (not (equal filename (nth 1 x)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment