Re: [Orgmode] Invalid search bound (wrong side of point) using Remember

[Daniel Clemente]

Hi,
  I provide more information, since I'm always getting this error.

** My configuration
GNU Emacs 23.0.50.1 (i686-pc-linux-gnu, multi-tty) of 2007-09-05

org 5.11


(add-to-list 'load-path "~/.emacs.d/remember/")
(require 'remember)
(setq org-directory "~/org")
(setq org-default-notes-file (concat org-directory "/malgrave.org"))
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)


** Producing the problem

M-x remember
Write something
C-c


** Backtrace

Debugger entered--Lisp error: (error "Invalid search bound (wrong side
of point)")
  re-search-forward("^[         ]+" #<marker at 17989 in malgrave.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 17758 17985)
  (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 Nov 16 16:27:05 2007 (provo)\n  provo\n
 \n  
[[http://mail.google.com/mail/h/4frk72uipcox/%3Fv%3Dc&s%3Dl&l%3Dorgmode&th%3D1164913862243a78][Google
Mail - Orgmode Invalid search bound (wrong side of point) using
Remember]]\n  " 0 28 nil 28 33 (fontified t) 33 37 nil 37 42
(fontified t) 42 48 nil 48 50 (face org-link mouse-face highlight
keymap (keymap ... ... ...) invisible org-link help-echo "LINK:
http://mail.google.com/mail/h/4frk72uipcox/%3Fv%3Dc&s%3Dl&l%3Dorgmode&th%3D1164913862243a78";
rear-nonsticky (mouse-face highlight keymap invisible intangible
help-echo org-linked-text) fontified t) 50 141 (invisible org-link
face org-link keymap (keymap ... ... ...) mouse-face highlight
help-echo "LINK:
http://mail.google.com/mail/h/4frk72uipcox/%3Fv%3Dc&s%3Dl&l%3Dorgmode&th%3D1164913862243a78";
rear-nonsticky (mouse-face highlight keymap invisible intangible
help-echo org-linked-text) fontified t) 141 143 (face org-link
mouse-face highlight keymap (keymap ... ... ...) invisible org-link
help-echo "LINK:
http://mail.google.com/mail/h/4frk72uipcox/%3Fv%3Dc&s%3Dl&l%3Dorgmode&th%3D1164913862243a78";
rear-nonsticky (mouse-face highlight keymap invisible intangible
help-echo org-linked-text) fontified t) 143 222 (face org-link
mouse-face highlight keymap (keymap ... ... ...) help-echo "LINK:
http://mail.google.com/mail/h/4frk72uipcox/%3Fv%3Dc&s%3Dl&l%3Dorgmode&th%3D1164913862243a78";
rear-nonsticky (mouse-face highlight keymap invisible intangible
help-echo org-linked-text) fontified t) 222 224 (face org-link
mouse-face highlight keymap (keymap ... ... ...) invisible org-link
help-echo "LINK:
http://mail.google.com/mail/h/4frk72uipcox/%3Fv%3Dc&s%3Dl&l%3Dorgmode&th%3D1164913862243a78";
rear-nonsticky (mouse-face highlight keymap invisible intangible
help-echo org-linked-text) fontified t) 224 227 nil))
  (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) (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)
  (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 185)
  remember-buffer()
  funcall(remember-buffer)
  (cond ((or org-clock-overlays org-occur-highlights
org-latex-fragment-image-overlays) (org-remove-clock-overlays)
(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)
  recursive-edit()
  byte-code("Æ @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ        !ˆ\fƒcÑed\"
VƒWebˆÒ
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command-char
debugger-args x debugger-buffer noninteractive
debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame
lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines
2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit
middlestart buffer-read-only standard-output] 4)





** end


Thanks,

Daniel



2007/11/16, Graham Smith <address@hidden>:
> I have just set up Remember with Org mode (without the template set up),
> when I use C-c C-c to save the entry, it gets saved to notes.org as it
> should, but I also get an error:
>
> Invalid search bound (wrong side of point)
>
> Can some one explain what this means.
>
> Many thanks,
>
> Graham
>