浏览代码

Fix 035087777

Bastien Guerry 11 年之前
父节点
当前提交
947c3f5c2a
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -9609,7 +9609,8 @@ active region."
 	 (when custom-id
 	 (when custom-id
 	   (setq link (concat "file:" (abbreviate-file-name
 	   (setq link (concat "file:" (abbreviate-file-name
 				       (buffer-file-name)) "::#" custom-id))
 				       (buffer-file-name)) "::#" custom-id))
-	   (push (list link desc) org-stored-links)))))))
+	   (push (list link desc) org-stored-links))
+	 (car org-stored-links))))))
 
 
 (defun org-store-link-props (&rest plist)
 (defun org-store-link-props (&rest plist)
   "Store link properties, extract names and addresses."
   "Store link properties, extract names and addresses."