From mboxrd@z Thu Jan 1 00:00:00 1970 From: "numbchild@gmail.com" Subject: A small patch for org.el to fix error in clojure babel src block code ref Date: Tue, 9 May 2017 09:21:20 +0800 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a113f6668261747054f0d2ecd Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38535) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7tqb-0003rv-KA for emacs-orgmode@gnu.org; Mon, 08 May 2017 21:21:54 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7tqa-0008Sp-MB for emacs-orgmode@gnu.org; Mon, 08 May 2017 21:21:53 -0400 Received: from mail-it0-x22e.google.com ([2607:f8b0:4001:c0b::22e]:38748) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d7tqa-0008SW-GT for emacs-orgmode@gnu.org; Mon, 08 May 2017 21:21:52 -0400 Received: by mail-it0-x22e.google.com with SMTP id e65so48544376ita.1 for ; Mon, 08 May 2017 18:21:51 -0700 (PDT) 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@gnu.org Sender: "Emacs-orgmode" To: Org-mode --001a113f6668261747054f0d2ecd Content-Type: text/plain; charset=UTF-8 Here is the original discussion we disscusses. https://github.com/jkitchin/org-ref/issues/433 And Here is the patch: #+BEGIN_SRC diff modified lisp/org.el @@ -9730,7 +9730,7 @@ active region." (setq sfuns (delq nil (mapcar (lambda (f) - (let (fs) (if (funcall f) (push f fs)))) + (let (fs) (if (and (stringp f) (funcall f)) (push f fs)))) (org-store-link-functions))) sfunsn (mapcar (lambda (fu) (symbol-name (car fu))) sfuns)) (or (and (cdr sfuns) #+END_SRC [stardiviner] GPG key ID: 47C32433 IRC(freeenode): stardiviner Twitter: @numbchild Key fingerprint = 9BAA 92BC CDDD B9EF 3B36 CB99 B8C4 B8E5 47C3 2433 Blog: http://stardiviner.github.io/ --001a113f6668261747054f0d2ecd Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Here is the original discussion we disscusses.= =C2=A0https://gi= thub.com/jkitchin/org-ref/issues/433

And Here is the patch:

#+BEGIN_SRC diff
modified =C2=A0 lisp/org.el
@@ -9730,7 +973= 0,7 @@ active region."
=C2=A0 =C2=A0 =C2=A0 (setq sfuns
=
=C2=A0= = =C2=A0 (delq
=C2=A0 =C2=A0 =C2=A0nil (mapcar (lambda (f)
- =C2=A0(l= et (fs) (if (funcall f) (push f fs))))
+ =C2=A0(let (fs) (if (and (str= ingp f) (funcall f)) (push f fs))))
=C2=A0 (org-store-link-functions)))=
=C2=A0 =C2=A0 sfunsn (mapcar (lambda (fu) (symbol-name (car fu))) sfuns= ))
=C2=A0 =C2=A0 =C2=A0 (or (and (cdr sfuns)
#+END_SRC
=

[stardiviner]=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 <Hack this world!>=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 GPG key ID: 47C32433
IRC(freeenode): stardiviner =C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 Twitter:=C2=A0 @numbchild
Key fingerprint = =3D 9BAA 92BC CDDD B9EF 3B36=C2=A0 CB99 B8C4 B8E5 47C3 2433
Blog: http://stardiviner.gi= thub.io/
--001a113f6668261747054f0d2ecd--