remember/org error

[Rick Moynihan <rick@calicojack.co.uk>]

[-- Attachment #1: Type: text/plain, Size: 497 bytes --]

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.

[-- Attachment #2: remember-org-backtrace --]
[-- Type: text/plain, Size: 5072 bytes --]

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)

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

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