emacs-orgmode
[Top][All Lists]
Advanced

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

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


From: Carsten Dominik
Subject: Re: [Orgmode] minor bug: org-remember without target file buffer causes error
Date: Sun, 21 Sep 2008 08:38:18 +0200

Hi Samuel,

I cannot reproduce this bug. Please try again with 6.07b, and if it persists, make me a test case with configuration. Thanks.

- Carsten

P.S.  Yes, org-remember-handler is a monster.......

On Sep 21, 2008, at 6:42 AM, Samuel Wales wrote:

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)


_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode





reply via email to

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