emacs-orgmode
[Top][All Lists]
Advanced

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

[Orgmode] remember/org error


From: Rick Moynihan
Subject: [Orgmode] remember/org error
Date: Fri, 12 Oct 2007 17:28:29 +0100
User-agent: Thunderbird 2.0.0.6 (X11/20070728)

Hi all,

I keep getting the following error after performing a M-x remember, entering some text in the new buffer and pressing C-c C-c. The following error occurs on the final C-c C-c.

(error "Invalid search bound (wrong side of point)")

As far as I know I have the configuration setup as specified in the org manual.

I've attached a backtrace. I'm using what I downloaded as org 5.12b though org-version claims it is 5.12a.

Thanks again to everyone on the list; especially Carsten.

R.
Debugger entered--Lisp error: (error "Invalid search bound (wrong side of 
point)")
  re-search-forward("^[         ]+" #<marker at 4321 in notes.org> t)
  (while (re-search-forward "^[         ]+" end t) (goto-char (match-end 0)) 
(setq col (current-column)) (if (< diff 0) (replace-match "")) (indent-to (+ 
diff col)))
  (if (save-excursion (end-of-line 1) (re-search-forward prohibit end t)) nil 
(while (re-search-forward "^[     ]+" end t) (goto-char ...) (setq col ...) (if 
... ...) (indent-to ...)))
  (unless (save-excursion (end-of-line 1) (re-search-forward prohibit end t)) 
(while (re-search-forward "^[     ]+" end t) (goto-char ...) (setq col ...) (if 
... ...) (indent-to ...)))
  (let ((end ...) (prohibit ...) col) (unless (save-excursion ... ...) (while 
... ... ... ... ...)) (move-marker end nil))
  (save-excursion (let (... ... col) (unless ... ...) (move-marker end nil)))
  org-fixup-indentation(1)
  (if org-adapt-indentation (org-fixup-indentation diff))
  (let* ((level ...) (down-head ...) (diff ...)) (replace-match down-head nil 
t) (and org-auto-align-tags (org-set-tags nil t)) (if org-adapt-indentation 
(org-fixup-indentation diff)))
  org-demote()
  funcall(org-demote)
  (if (and (re-search-forward ... nil t) (< ... end)) (funcall fun))
  (save-excursion (setq end (copy-marker end)) (goto-char beg) (if (and ... 
...) (funcall fun)) (while (and ... ...) (funcall fun)))
  (let ((org-ignore-region t)) (save-excursion (setq end ...) (goto-char beg) 
(if ... ...) (while ... ...)))
  org-map-region(org-demote 4278 4319)
  (while (not (= shift 0)) (org-map-region func (point-min) (point-max)) (setq 
shift (+ delta shift)))
  (save-restriction (narrow-to-region beg end) (while (not ...) (org-map-region 
func ... ...) (setq shift ...)) (goto-char (point-min)))
  (if (= shift 0) nil (save-restriction (narrow-to-region beg end) (while ... 
... ...) (goto-char ...)))
  (unless (= shift 0) (save-restriction (narrow-to-region beg end) (while ... 
... ...) (goto-char ...)))
  (let* ((txt ...) (^re ...) (re ...) (^re_ ...) (old-level ...) (force-level 
...) (previous-level ...) (next-level ...) (new-level ...) (shift ...) (shift1 
shift) (delta ...) (func ...) (org-odd-levels-only nil) beg end) (if 
force-level (delete-region ... ...)) (beginning-of-line 1) (setq beg (point)) 
(insert txt) (unless (string-match "\n[         ]*\\'" txt) (insert "\n")) 
(setq end (point)) (goto-char beg) (unless (= shift 0) (save-restriction ... 
... ...)) (when (interactive-p) (message "Clipboard pasted as level %d subtree" 
new-level)) (if (and kill-ring ... org-subtree-clip-folded) (hide-subtree)))
  org-paste-subtree(2 "* Fri Oct 12 17:20:30 2007 (foo)\n  foo\n  ")
  (save-restriction (widen) (goto-char (point-max)) (if (not ...) (newline)) 
(org-paste-subtree (org-get-legal-level 1 1) txt))
  (cond ((org-on-heading-p t) (org-back-to-heading t) (setq level ...) (cond 
... ... ... ...)) ((and ... ...) (save-restriction ... ... ... ...)) ((and ... 
reversed) (save-restriction ... ... ... ... ...)) (t (org-paste-subtree ... 
txt)))
  (save-restriction (widen) (and (goto-char ...) (not ...) (insert "\n* " ... 
"\n")) (setq reversed (org-notes-order-reversed-p)) (when (and heading ... ...) 
(goto-char ...) (if ... ... ...)) (if fastp (setq spos org-goto-start-pos 
exitcmd ...) (setq spos ... exitcmd ... spos ...)) (if (not spos) (throw ... 
nil)) (goto-char spos) (cond (... ... ... ...) (... ...) (... ...) (t ...)) 
(when remember-save-after-remembering (save-buffer) (if ... ...)))
  (save-excursion (save-restriction (widen) (and ... ... ...) (setq reversed 
...) (when ... ... ...) (if fastp ... ...) (if ... ...) (goto-char spos) (cond 
... ... ... ...) (when remember-save-after-remembering ... ...)))
  (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* ((txt ...) (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 
indent reversed) (if (and ... org-remember-previous-location) (setq file ... 
heading ...)) (setq current-prefix-arg nil) (let* (... first) (setq first ... 
lines ...) (if ... ... ...) (if ... ...) (setq txt ...)) (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 indent reversed) (if ... ...) (setq 
current-prefix-arg nil) (let* ... ... ... ... ...) (if ... ...) 
(with-current-buffer ... ... ...)))
  org-remember-handler()
  run-hook-with-args-until-success(org-remember-handler)
  remember-region(1 5)
  remember-buffer()
  call-interactively(remember-buffer)

reply via email to

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