From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: Debugger entered--Lisp error: (wrong-type-argument stringp nil) Date: Sat, 18 Jan 2014 10:06:05 +0100 Message-ID: <86txd1slqa.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, Since a couple of days, I have the following trouble when capturing in one (or more?) files. I've not yet understood the problem. Anybody having tips? --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (wrong-type-argument stringp nil) format(nil "Notes") (re-search-forward (format org-complex-heading-regexp-format (regexp-quot= e hd)) nil t) (if (re-search-forward (format org-complex-heading-regexp-format (regexp-= quote hd)) nil t) (goto-char (point-at-bol)) (goto-char (point-max)) (or (b= olp) (insert "\n")) (insert "* " hd "\n") (beginning-of-line 0)) (let ((hd (nth 2 target))) (goto-char (point-min)) (if (derived-mode-p (q= uote org-mode)) nil (error "Target buffer \"%s\" for file+headline should b= e in Org mode" (current-buffer))) (if (re-search-forward (format org-comple= x-heading-regexp-format (regexp-quote hd)) nil t) (goto-char (point-at-bol)= ) (goto-char (point-max)) (or (bolp) (insert "\n")) (insert "* " hd "\n") (= beginning-of-line 0))) (cond ((eq (car target) (quote file)) (set-buffer (org-capture-target-buf= fer (nth 1 target))) (org-capture-put-target-region-and-position) (widen) (= setq target-entry-p nil)) ((eq (car target) (quote id)) (let ((loc (org-id-= find (nth 1 target)))) (if (not loc) (error "Cannot find target ID \"%s\"" = (nth 1 target)) (set-buffer (org-capture-target-buffer (car loc))) (widen) = (org-capture-put-target-region-and-position) (goto-char (cdr loc))))) ((eq = (car target) (quote file+headline)) (set-buffer (org-capture-target-buffer = (nth 1 target))) (org-capture-put-target-region-and-position) (widen) (let = ((hd (nth 2 target))) (goto-char (point-min)) (if (derived-mode-p (quote or= g-mode)) nil (error "Target buffer \"%s\" for file+headline should be in Or= g mode" (current-buffer))) (if (re-search-forward (format org-complex-headi= ng-regexp-format (regexp-quote hd)) nil t) (goto-char (point-at-bol)) (goto= -char (point-max)) (or (bolp) (insert "\n")) (insert "* " hd "\n") (beginni= ng-of-line 0)))) ((eq (car target) (quote file+olp)) (let ((m (org-find-olp= (cons (org-capture-expand-file ...) (cddr target))))) (set-buffer (marker-= buffer m)) (org-capture-put-target-region-and-position) (widen) (goto-char = m))) ((eq (car target) (quote file+regexp)) (set-buffer (org-capture-target= -buffer (nth 1 target))) (org-capture-put-target-region-and-position) (wide= n) (goto-char (point-min)) (if (re-search-forward (nth 2 target) nil t) (pr= ogn (goto-char (if (org-capture-get :prepend) (match-beginning 0) (match-en= d 0))) (org-capture-put :exact-position (point)) (setq target-entry-p (and = (derived-mode-p (quote org-mode)) (org-at-heading-p)))) (error "No match fo= r target regexp in file %s" (nth 1 target)))) ((memq (car target) (quote (f= ile+datetree file+datetree+prompt))) (require (quote org-datetree)) (set-bu= ffer (org-capture-target-buffer (nth 1 target))) (org-capture-put-target-re= gion-and-position) (widen) (org-datetree-find-date-create (calendar-gregori= an-from-absolute (cond (org-overriding-default-time (time-to-days org-overr= iding-default-time)) ((eq (car target) (quote file+datetree+prompt)) (let (= ...) (org-capture-put :default-time ...) (time-to-days prompt-time))) (t (o= rg-today)))))) ((eq (car target) (quote file+function)) (set-buffer (org-ca= pture-target-buffer (nth 1 target))) (org-capture-put-target-region-and-pos= ition) (widen) (funcall (nth 2 target)) (org-capture-put :exact-position (p= oint)) (setq target-entry-p (and (derived-mode-p (quote org-mode)) (org-at-= heading-p)))) ((eq (car target) (quote function)) (funcall (nth 1 target)) = (org-capture-put :exact-position (point)) (setq target-entry-p (and (derive= d-mode-p (quote org-mode)) (org-at-heading-p)))) ((eq (car target) (quote c= lock)) (if (and (markerp org-clock-hd-marker) (marker-buffer org-clock-hd-m= arker)) (progn (set-buffer (marker-buffer org-clock-hd-marker)) (org-captur= e-put-target-region-and-position) (widen) (goto-char org-clock-hd-marker)) = (error "No running clock that could be used as capture target"))) (t (error= "Invalid capture target specification"))) (save-excursion (cond ((eq (car target) (quote file)) (set-buffer (org-ca= pture-target-buffer (nth 1 target))) (org-capture-put-target-region-and-pos= ition) (widen) (setq target-entry-p nil)) ((eq (car target) (quote id)) (le= t ((loc (org-id-find (nth 1 target)))) (if (not loc) (error "Cannot find ta= rget ID \"%s\"" (nth 1 target)) (set-buffer (org-capture-target-buffer (car= loc))) (widen) (org-capture-put-target-region-and-position) (goto-char (cd= r loc))))) ((eq (car target) (quote file+headline)) (set-buffer (org-captur= e-target-buffer (nth 1 target))) (org-capture-put-target-region-and-positio= n) (widen) (let ((hd (nth 2 target))) (goto-char (point-min)) (if (derived-= mode-p (quote org-mode)) nil (error "Target buffer \"%s\" for file+headline= should be in Org mode" (current-buffer))) (if (re-search-forward (format o= rg-complex-heading-regexp-format (regexp-quote hd)) nil t) (goto-char (poin= t-at-bol)) (goto-char (point-max)) (or (bolp) (insert "\n")) (insert "* " h= d "\n") (beginning-of-line 0)))) ((eq (car target) (quote file+olp)) (let (= (m (org-find-olp (cons ... ...)))) (set-buffer (marker-buffer m)) (org-capt= ure-put-target-region-and-position) (widen) (goto-char m))) ((eq (car targe= t) (quote file+regexp)) (set-buffer (org-capture-target-buffer (nth 1 targe= t))) (org-capture-put-target-region-and-position) (widen) (goto-char (point= -min)) (if (re-search-forward (nth 2 target) nil t) (progn (goto-char (if (= org-capture-get :prepend) (match-beginning 0) (match-end 0))) (org-capture-= put :exact-position (point)) (setq target-entry-p (and (derived-mode-p ...)= (org-at-heading-p)))) (error "No match for target regexp in file %s" (nth = 1 target)))) ((memq (car target) (quote (file+datetree file+datetree+prompt= ))) (require (quote org-datetree)) (set-buffer (org-capture-target-buffer (= nth 1 target))) (org-capture-put-target-region-and-position) (widen) (org-d= atetree-find-date-create (calendar-gregorian-from-absolute (cond (org-overr= iding-default-time (time-to-days org-overriding-default-time)) ((eq ... ...= ) (let ... ... ...)) (t (org-today)))))) ((eq (car target) (quote file+func= tion)) (set-buffer (org-capture-target-buffer (nth 1 target))) (org-capture= -put-target-region-and-position) (widen) (funcall (nth 2 target)) (org-capt= ure-put :exact-position (point)) (setq target-entry-p (and (derived-mode-p = (quote org-mode)) (org-at-heading-p)))) ((eq (car target) (quote function))= (funcall (nth 1 target)) (org-capture-put :exact-position (point)) (setq t= arget-entry-p (and (derived-mode-p (quote org-mode)) (org-at-heading-p)))) = ((eq (car target) (quote clock)) (if (and (markerp org-clock-hd-marker) (ma= rker-buffer org-clock-hd-marker)) (progn (set-buffer (marker-buffer org-clo= ck-hd-marker)) (org-capture-put-target-region-and-position) (widen) (goto-c= har org-clock-hd-marker)) (error "No running clock that could be used as ca= pture target"))) (t (error "Invalid capture target specification"))) (if (a= nd (featurep (quote org-crypt)) (org-at-encrypted-entry-p)) (progn (org-dec= rypt-entry) (setq decrypted-hl-pos (save-excursion (and (org-back-to-headin= g t) (point)))))) (org-capture-put :buffer (current-buffer) :pos (point) :t= arget-entry-p target-entry-p :decrypted decrypted-hl-pos)) (let ((target-entry-p t) decrypted-hl-pos) (setq target (or target (org-c= apture-get :target))) (save-excursion (cond ((eq (car target) (quote file))= (set-buffer (org-capture-target-buffer (nth 1 target))) (org-capture-put-t= arget-region-and-position) (widen) (setq target-entry-p nil)) ((eq (car tar= get) (quote id)) (let ((loc (org-id-find ...))) (if (not loc) (error "Canno= t find target ID \"%s\"" (nth 1 target)) (set-buffer (org-capture-target-bu= ffer ...)) (widen) (org-capture-put-target-region-and-position) (goto-char = (cdr loc))))) ((eq (car target) (quote file+headline)) (set-buffer (org-cap= ture-target-buffer (nth 1 target))) (org-capture-put-target-region-and-posi= tion) (widen) (let ((hd (nth 2 target))) (goto-char (point-min)) (if (deriv= ed-mode-p (quote org-mode)) nil (error "Target buffer \"%s\" for file+headl= ine should be in Org mode" (current-buffer))) (if (re-search-forward (forma= t org-complex-heading-regexp-format ...) nil t) (goto-char (point-at-bol)) = (goto-char (point-max)) (or (bolp) (insert "\n")) (insert "* " hd "\n") (be= ginning-of-line 0)))) ((eq (car target) (quote file+olp)) (let ((m (org-fin= d-olp ...))) (set-buffer (marker-buffer m)) (org-capture-put-target-region-= and-position) (widen) (goto-char m))) ((eq (car target) (quote file+regexp)= ) (set-buffer (org-capture-target-buffer (nth 1 target))) (org-capture-put-= target-region-and-position) (widen) (goto-char (point-min)) (if (re-search-= forward (nth 2 target) nil t) (progn (goto-char (if ... ... ...)) (org-capt= ure-put :exact-position (point)) (setq target-entry-p (and ... ...))) (erro= r "No match for target regexp in file %s" (nth 1 target)))) ((memq (car tar= get) (quote (file+datetree file+datetree+prompt))) (require (quote org-date= tree)) (set-buffer (org-capture-target-buffer (nth 1 target))) (org-capture= -put-target-region-and-position) (widen) (org-datetree-find-date-create (ca= lendar-gregorian-from-absolute (cond (org-overriding-default-time ...) (...= ...) (t ...))))) ((eq (car target) (quote file+function)) (set-buffer (org= -capture-target-buffer (nth 1 target))) (org-capture-put-target-region-and-= position) (widen) (funcall (nth 2 target)) (org-capture-put :exact-position= (point)) (setq target-entry-p (and (derived-mode-p (quote org-mode)) (org-= at-heading-p)))) ((eq (car target) (quote function)) (funcall (nth 1 target= )) (org-capture-put :exact-position (point)) (setq target-entry-p (and (der= ived-mode-p (quote org-mode)) (org-at-heading-p)))) ((eq (car target) (quot= e clock)) (if (and (markerp org-clock-hd-marker) (marker-buffer org-clock-h= d-marker)) (progn (set-buffer (marker-buffer org-clock-hd-marker)) (org-cap= ture-put-target-region-and-position) (widen) (goto-char org-clock-hd-marker= )) (error "No running clock that could be used as capture target"))) (t (er= ror "Invalid capture target specification"))) (if (and (featurep (quote org= -crypt)) (org-at-encrypted-entry-p)) (progn (org-decrypt-entry) (setq decry= pted-hl-pos (save-excursion (and (org-back-to-heading t) (point)))))) (org-= capture-put :buffer (current-buffer) :pos (point) :target-entry-p target-en= try-p :decrypted decrypted-hl-pos))) org-capture-set-target-location() (cond ((equal entry "C") (customize-variable (quote org-capture-templates= ))) ((equal entry "q") (error "Abort")) (t (org-capture-set-plist entry) (o= rg-capture-get-template) (org-capture-put :original-buffer orig-buf :origin= al-file (or (buffer-file-name orig-buf) (and (featurep (quote dired)) (car = (rassq orig-buf dired-buffers)))) :original-file-nondirectory (and (buffer-= file-name orig-buf) (file-name-nondirectory (buffer-file-name orig-buf))) := annotation annotation :initial initial :return-to-wconf (current-window-con= figuration) :default-time (or org-overriding-default-time (org-current-time= ))) (org-capture-set-target-location) (condition-case error (org-capture-pu= t :template (org-capture-fill-template)) ((error quit) (if (get-buffer "*Ca= pture*") (kill-buffer "*Capture*")) (error "Capture abort: %s" error))) (se= tq org-capture-clock-keep (org-capture-get :clock-keep)) (if (equal goto 0)= (org-capture-insert-template-here) (condition-case error (org-capture-plac= e-template (equal (car (org-capture-get :target)) (quote function))) ((erro= r quit) (if (and (buffer-base-buffer ...) (string-match "\\`CAPTURE-" ...))= (kill-buffer (current-buffer))) (set-window-configuration (org-capture-get= :return-to-wconf)) (error "Capture template `%s': %s" (org-capture-get :ke= y) (nth 1 error)))) (if (and (derived-mode-p (quote org-mode)) (org-capture= -get :clock-in)) (condition-case nil (progn (if (org-clock-is-active) (org-= capture-put :interrupted-clock ...)) (org-clock-in) (org-set-local (quote o= rg-capture-clock-was-started) t)) (error "Could not start the clock in this= capture buffer"))) (if (org-capture-get :immediate-finish) (org-capture-fi= nalize))))) (let* ((orig-buf (current-buffer)) (annotation (if (and (boundp (quote or= g-capture-link-is-already-stored)) org-capture-link-is-already-stored) (pli= st-get org-store-link-plist :annotation) (condition-case nil (progn (org-st= ore-link nil)) (error nil)))) (entry (or org-capture-entry (org-capture-sel= ect-template keys))) initial) (setq initial (or org-capture-initial (and (o= rg-region-active-p) (buffer-substring (point) (mark))))) (if (stringp initi= al) (progn (remove-text-properties 0 (length initial) (quote (read-only t))= initial))) (if (stringp annotation) (progn (remove-text-properties 0 (leng= th annotation) (quote (read-only t)) annotation))) (cond ((equal entry "C")= (customize-variable (quote org-capture-templates))) ((equal entry "q") (er= ror "Abort")) (t (org-capture-set-plist entry) (org-capture-get-template) (= org-capture-put :original-buffer orig-buf :original-file (or (buffer-file-n= ame orig-buf) (and (featurep (quote dired)) (car (rassq orig-buf dired-buff= ers)))) :original-file-nondirectory (and (buffer-file-name orig-buf) (file-= name-nondirectory (buffer-file-name orig-buf))) :annotation annotation :ini= tial initial :return-to-wconf (current-window-configuration) :default-time = (or org-overriding-default-time (org-current-time))) (org-capture-set-targe= t-location) (condition-case error (org-capture-put :template (org-capture-f= ill-template)) ((error quit) (if (get-buffer "*Capture*") (kill-buffer "*Ca= pture*")) (error "Capture abort: %s" error))) (setq org-capture-clock-keep = (org-capture-get :clock-keep)) (if (equal goto 0) (org-capture-insert-templ= ate-here) (condition-case error (org-capture-place-template (equal (car ...= ) (quote function))) ((error quit) (if (and ... ...) (kill-buffer ...)) (se= t-window-configuration (org-capture-get :return-to-wconf)) (error "Capture = template `%s': %s" (org-capture-get :key) (nth 1 error)))) (if (and (derive= d-mode-p (quote org-mode)) (org-capture-get :clock-in)) (condition-case nil= (progn (if ... ...) (org-clock-in) (org-set-local ... t)) (error "Could no= t start the clock in this capture buffer"))) (if (org-capture-get :immediat= e-finish) (org-capture-finalize)))))) (cond ((equal goto (quote (4))) (org-capture-goto-target)) ((equal goto (= quote (16))) (org-capture-goto-last-stored)) (t (let* ((orig-buf (current-b= uffer)) (annotation (if (and (boundp ...) org-capture-link-is-already-store= d) (plist-get org-store-link-plist :annotation) (condition-case nil (progn = ...) (error nil)))) (entry (or org-capture-entry (org-capture-select-templa= te keys))) initial) (setq initial (or org-capture-initial (and (org-region-= active-p) (buffer-substring (point) (mark))))) (if (stringp initial) (progn= (remove-text-properties 0 (length initial) (quote (read-only t)) initial))= ) (if (stringp annotation) (progn (remove-text-properties 0 (length annotat= ion) (quote (read-only t)) annotation))) (cond ((equal entry "C") (customiz= e-variable (quote org-capture-templates))) ((equal entry "q") (error "Abort= ")) (t (org-capture-set-plist entry) (org-capture-get-template) (org-captur= e-put :original-buffer orig-buf :original-file (or (buffer-file-name orig-b= uf) (and ... ...)) :original-file-nondirectory (and (buffer-file-name orig-= buf) (file-name-nondirectory ...)) :annotation annotation :initial initial = :return-to-wconf (current-window-configuration) :default-time (or org-overr= iding-default-time (org-current-time))) (org-capture-set-target-location) (= condition-case error (org-capture-put :template (org-capture-fill-template)= ) ((error quit) (if ... ...) (error "Capture abort: %s" error))) (setq org-= capture-clock-keep (org-capture-get :clock-keep)) (if (equal goto 0) (org-c= apture-insert-template-here) (condition-case error (org-capture-place-templ= ate ...) (... ... ... ...)) (if (and ... ...) (condition-case nil ... ...))= (if (org-capture-get :immediate-finish) (org-capture-finalize)))))))) org-capture(nil) call-interactively(org-capture nil nil) command-execute(org-capture) --8<---------------cut here---------------end--------------->8--- Best regards, Seb --=20 Sebastien Vauban