瀏覽代碼

don't rely on kill-new to return a string

* lisp/org-bibtex.el (org-bibtex-export-to-kill-ring): Don't rely on
  kill-new to return a string.
Eric Schulte 13 年之前
父節點
當前提交
5d5ce5d7b0
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-bibtex.el

+ 2 - 1
lisp/org-bibtex.el

@@ -661,7 +661,8 @@ This uses `bibtex-parse-entry'."
 (defun org-bibtex-export-to-kill-ring ()
   "Export current headline to kill ring as bibtex entry."
   (interactive)
-  (kill-new (org-bibtex-headline)))
+  (let ((result (org-bibtex-headline)))
+    (kill-new result) result))
 
 (defun org-bibtex-search (string)
   "Search for bibliographical entries in agenda files.