[Orgmode] minor bug: org-remember without target file buffer causes error

[Samuel Wales]

In org-mode 6.06b, c-c c-c after org-remember without first finding
the target file causes wrong type argument stringp, nil error.  Trying
it again works OK.
This is not a problem for me.

Perhaps the relevant function, org-remember-handler, can be broken
into smaller functions for easier debugging.

Thanks.


  set-buffer(nil)
  (save-current-buffer (set-buffer (or visiting ...)) (unless
(org-mode-p) (error "Target files for remember notes must be in
Org-mode")) (save-excursion (save-restriction ... ... ... ... ... ...
... ... ... ...)))
  (with-current-buffer (or visiting (get-file-buffer file)) (unless
(org-mode-p) (error "Target files for remember notes must be in
Org-mode")) (save-excursion (save-restriction ... ... ... ... ... ...
... ... ... ...)))
  (let* ((visitp ...) (fastp ...) (file ...) (heading
org-remember-default-headline) (visiting ...) (org-startup-folded nil)
(org-startup-align-all-tables nil) (org-goto-start-pos 1) spos exitcmd
level reversed txt) (if (and ... org-remember-previous-location) (setq
file ... heading ... fastp t)) (setq current-prefix-arg nil)
(goto-char (point-min)) (if (re-search-forward "[
]+\\'" nil t) (replace-match "")) (goto-char (point-min)) (unless
(looking-at org-outline-regexp) (insert ...) (backward-char 1) (when
org-adapt-indentation ...)) (goto-char (point-min)) (if
(re-search-forward "
[       ]*
[       
]*\\'" nil t) (replace-match "

") (if ... ...)) (goto-char (point-min)) (setq txt (buffer-string))
(org-save-markers-in-region (point-min) (point-max)) (when (and ...
...) (org-refile nil ...) (and visitp ...) (throw ... t)) (if (not
visiting) (find-file-noselect file)) (with-current-buffer (or visiting
...) (unless ... ...) (save-excursion ...)))
  (catch (quote quit) (if org-note-abort (throw ... nil)) (let* (...
... ... ... ... ... ... ... spos exitcmd level reversed txt) (if ...
...) (setq current-prefix-arg nil) (goto-char ...) (if ... ...)
(goto-char ...) (unless ... ... ... ...) (goto-char ...) (if ... ...
...) (goto-char ...) (setq txt ...) (org-save-markers-in-region ...
...) (when ... ... ... ...) (if ... ...) (with-current-buffer ... ...
...)))
  org-remember-handler()
  run-hook-with-args-until-success(org-remember-handler)
  (if remember-all-handler-functions (run-hooks (quote
remember-handler-functions)) (run-hook-with-args-until-success (quote
remember-handler-functions)))
  (save-restriction (narrow-to-region b e) (if
remember-all-handler-functions (run-hooks ...)
(run-hook-with-args-until-success ...)) (remember-destroy))
  (let ((b ...) (e ...)) (save-restriction (narrow-to-region b e) (if
remember-all-handler-functions ... ...) (remember-destroy)))
  remember-region(1 409)
  remember-finalize()
  org-remember-finalize()
  funcall(org-remember-finalize)
  (cond ((or ... org-occur-highlights
org-latex-fragment-image-overlays) (and ... ...)
(org-remove-occur-highlights)
(org-remove-latex-fragment-image-overlays) (message "Temporary
highlights/overlays removed from current buffer")) ((and ... ...)
(funcall org-finish-function)) ((org-at-property-p)
(call-interactively ...)) ((org-on-target-p) (call-interactively ...))
((org-on-heading-p) (call-interactively ...)) ((org-at-table\.el-p)
(require ...) (beginning-of-line 1) (re-search-forward "|" ...)
(call-interactively ...)) ((org-at-table-p)
(org-table-maybe-eval-formula) (if arg ... ...) (call-interactively
...)) ((org-at-item-checkbox-p) (call-interactively ...))
((org-at-item-p) (call-interactively ...)) ((save-excursion ... ...)
(beginning-of-line 1) (org-update-dblock)) ((save-excursion ... ...)
(cond ... ...)) (t (error "C-c C-c can do nothing useful at this
location.")))
  (let ((org-enable-table-editor t)) (cond (... ... ... ... ...) (...
...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ... ...
...) (... ...) (... ...) (... ... ...) (... ...) (t ...)))
  org-ctrl-c-ctrl-c(nil)
  call-interactively(org-ctrl-c-ctrl-c)