Debugger entered--Lisp error: (error "Invalid search bound (wrong side of point)") re-search-forward("^[ ]+" # 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)