瀏覽代碼

Merge branch 'maint'

Nicolas Goaziou 11 年之前
父節點
當前提交
64adcc75f5
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-bibtex.el

+ 2 - 1
lisp/org-bibtex.el

@@ -613,7 +613,8 @@ This uses `bibtex-parse-entry'."
 	(strip-delim
 	 (lambda (str)	     ; strip enclosing "..." and {...}
 	   (dolist (pair '((34 . 34) (123 . 125) (123 . 125)))
-	     (when (and (= (aref str 0) (car pair))
+	     (when (and (> (length str) 1)
+			(= (aref str 0) (car pair))
 			(= (aref str (1- (length str))) (cdr pair)))
 	       (setf str (substring str 1 (1- (length str)))))) str)))
     (push (mapcar