(1- nil) because of nil previous-single-property-change

(1- nil) because of nil previous-single-property-change

[Daniel Clemente]

  In org 6.12a from 15-11-2008 I got this error when exporting a file to HTML (using htmlize):

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  1-(nil)
  (max (point-min) (1- (previous-single-property-change ... ...)))
  (get-text-property (max (point-min) (1- ...)) (quote target))
  (or (get-text-property (point) (quote target)) (get-text-property (max ... ...) (quote target)))
  (progn (or (get-text-property ... ...) (get-text-property ... ...)))
  (if (and found (or ... ...)) (progn (or ... ...)))
  (when (and found (or ... ...)) (or (get-text-property ... ...) (get-text-property ... ...)))
  (save-excursion (setq found (condition-case nil ... ...)) (when (and found ...) (or ... ...)))
  (cond ((cdr ...)) ((string-match org-link-types-re link) nil) ((or ... ...) nil) (t (save-excursion ... ...)))
  (let* ((md ...) (desc ...) (link ...) (slink ...) found props pos (target ...)) (when target ..................
  (if (get-text-property (point) (quote org-protected)) nil (let* (... ... ... ... found props pos ...) (when target ... ... ... ... ... ... ... ...)))
  (unless (get-text-property (point) (quote org-protected)) (let* (... ... ... ... found props pos ...) (when target ... ... ... ... ... ... ... ...)))
  (org-if-unprotected (let* (... ... ... ... found props pos ...) (when target ... ... ... ... ... ... ... ...)))
  (while (re-search-forward org-bracket-link-regexp nil t) (org-if-unprotected (let* ... ...)))
  org-export-target-internal-links((("sec-5" . "sec-5") ("sec-4.1" . "sec-4.1") (...................................
  org-export-preprocess-string(#("#+TITLE: V.........................
  org-export-as-html(nil)


  The problem is in org-export-target-internal-links (org-exp.el), in lines:

			(max (point-min)
			     (1- (previous-single-property-change
				  (point) 'target)))
			'target))))))))


  And in fact, if in the org file I eval this:
(previous-single-property-change  (point) 'target)
  ...I get nil. This is valid according to the documentation (it means the property is constant).


-- Daniel

Re: (1- nil) because of nil previous-single-property-change

[Carsten Dominik]

Fixed, thanks for the analysis.

- Carsten

On Nov 17, 2008, at 2:23 AM, Daniel Clemente wrote:

>
>  In org 6.12a from 15-11-2008 I got this error when exporting a file  
> to HTML (using htmlize):
>
> Debugger entered--Lisp error: (wrong-type-argument number-or-marker- 
> p nil)
>  1-(nil)
>  (max (point-min) (1- (previous-single-property-change ... ...)))
>  (get-text-property (max (point-min) (1- ...)) (quote target))
>  (or (get-text-property (point) (quote target)) (get-text-property  
> (max ... ...) (quote target)))
>  (progn (or (get-text-property ... ...) (get-text-property ... ...)))
>  (if (and found (or ... ...)) (progn (or ... ...)))
>  (when (and found (or ... ...)) (or (get-text-property ... ...) (get- 
> text-property ... ...)))
>  (save-excursion (setq found (condition-case nil ... ...)) (when  
> (and found ...) (or ... ...)))
>  (cond ((cdr ...)) ((string-match org-link-types-re link) nil)  
> ((or ... ...) nil) (t (save-excursion ... ...)))
>  (let* ((md ...) (desc ...) (link ...) (slink ...) found props pos  
> (target ...)) (when target ..................
>  (if (get-text-property (point) (quote org-protected)) nil (let*  
> (... ... ... ... found props pos ...) (when  
> target ... ... ... ... ... ... ... ...)))
>  (unless (get-text-property (point) (quote org-protected)) (let*  
> (... ... ... ... found props pos ...) (when  
> target ... ... ... ... ... ... ... ...)))
>  (org-if-unprotected (let* (... ... ... ... found props pos ...)  
> (when target ... ... ... ... ... ... ... ...)))
>  (while (re-search-forward org-bracket-link-regexp nil t) (org-if- 
> unprotected (let* ... ...)))
>  org-export-target-internal-links((("sec-5" . "sec-5") ("sec-4.1" .  
> "sec-4.1") (...................................
>  org-export-preprocess-string(#("#+TITLE: V.........................
>  org-export-as-html(nil)
>
>
>  The problem is in org-export-target-internal-links (org-exp.el), in  
> lines:
>
> 			(max (point-min)
> 			     (1- (previous-single-property-change
> 				  (point) 'target)))
> 			'target))))))))
>
>
>  And in fact, if in the org file I eval this:
> (previous-single-property-change  (point) 'target)
>  ...I get nil. This is valid according to the documentation (it  
> means the property is constant).
>
>
> -- Daniel
>
>
> _______________________________________________
> 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