From mboxrd@z Thu Jan 1 00:00:00 1970 From: "numbchild@gmail.com" Subject: org-eldoc error on shell src blocks Date: Fri, 2 Feb 2018 09:32:11 +0800 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="001a1147faca3db893056430b037" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38117) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ehQF1-0007aE-6Z for emacs-orgmode@gnu.org; Thu, 01 Feb 2018 20:35:17 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ehQDb-0005cL-AQ for emacs-orgmode@gnu.org; Thu, 01 Feb 2018 20:33:49 -0500 Received: from mail-ot0-x22f.google.com ([2607:f8b0:4003:c0f::22f]:34280) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ehQDa-0005ac-ME for emacs-orgmode@gnu.org; Thu, 01 Feb 2018 20:32:43 -0500 Received: by mail-ot0-x22f.google.com with SMTP id x15so18823011ote.1 for ; Thu, 01 Feb 2018 17:32:42 -0800 (PST) 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 --001a1147faca3db893056430b037 Content-Type: text/plain; charset="UTF-8" When I enable `eldoc-mode` in org-mode. eldoc timer running when on `shell` src blocks like: #+begin_src shell git log $rev..origin/emacs-25 -- lisp/org doc/misc/org.texi \ etc/refcards/orgcard.tex etc/ORG-NEWS etc/org \ etc/schema/od-manifest-schema-v1.2-os.rnc \ etc/schema/od-schema-v1.2-os.rnc #+end_src I got the following error. #+begin_example Debugger entered--Lisp error: (wrong-type-argument processp nil) process-command(nil) shell-mode() funcall(shell-mode) (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) doc-func) (if (fboundp mode-func) (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) doc-func)) (if (eq 'empty cached-func) (if (fboundp mode-func) (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) doc-func)) cached-func) (let ((cached-func (gethash lang org-eldoc-local-functions-cache 'empty)) (mode-func (intern-soft (format "%s-mode" lang))) doc-func) (if (eq 'empty cached-func) (if (fboundp mode-func) (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) doc-func)) cached-func)) org-eldoc-get-mode-local-documentation-function("shell") (let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang))) (if (functionp doc-fun) (progn (funcall doc-fun)))) (cond ((or (string= lang "emacs-lisp") (string= lang "elisp")) (if (fboundp 'elisp-eldoc-documentation-function) (elisp-eldoc-documentation-function) (let (eldoc-documentation-function) (eldoc-print-current-symbol-info)))) ((or (string= lang "c") (string= lang "C")) (if (require 'c-eldoc nil t) (progn (c-eldoc-print-current-symbol-info)))) ((string= lang "css") (if (require 'css-eldoc nil t) (progn (css-eldoc-function)))) ((string= lang "php") (if (require 'php-eldoc nil t) (progn (php-eldoc-function)))) ((or (string= lang "go") (string= lang "golang")) (if (require 'go-eldoc nil t) (progn (go-eldoc--documentation-function)))) (t (let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang))) (if (functionp doc-fun) (progn (funcall doc-fun)))))) (let ((lang (org-eldoc-get-src-lang))) (cond ((or (string= lang "emacs-lisp") (string= lang "elisp")) (if (fboundp 'elisp-eldoc-documentation-function) (elisp-eldoc-documentation-function) (let (eldoc-documentation-function) (eldoc-print-current-symbol-info)))) ((or (string= lang "c") (string= lang "C")) (if (require 'c-eldoc nil t) (progn (c-eldoc-print-current-symbol-info)))) ((string= lang "css") (if (require 'css-eldoc nil t) (progn (css-eldoc-function)))) ((string= lang "php") (if (require 'php-eldoc nil t) (progn (php-eldoc-function)))) ((or (string= lang "go") (string= lang "golang")) (if (require 'go-eldoc nil t) (progn (go-eldoc--documentation-function)))) (t (let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang))) (if (functionp doc-fun) (progn (funcall doc-fun))))))) (or (org-eldoc-get-breadcrumb) (org-eldoc-get-src-header) (let ((lang (org-eldoc-get-src-lang))) (cond ((or (string= lang "emacs-lisp") (string= lang "elisp")) (if (fboundp 'elisp-eldoc-documentation-function) (elisp-eldoc-documentation-function) (let (eldoc-documentation-function) (eldoc-print-current-symbol-info)))) ((or (string= lang "c") (string= lang "C")) (if (require 'c-eldoc nil t) (progn (c-eldoc-print-current-symbol-info)))) ((string= lang "css") (if (require 'css-eldoc nil t) (progn (css-eldoc-function)))) ((string= lang "php") (if (require 'php-eldoc nil t) (progn (php-eldoc-function)))) ((or (string= lang "go") (string= lang "golang")) (if (require 'go-eldoc nil t) (progn (go-eldoc--documentation-function)))) (t (let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang))) (if (functionp doc-fun) (progn (funcall doc-fun)))))))) org-eldoc-documentation-function() eldoc-print-current-symbol-info() #f(compiled-function () #)() apply(#f(compiled-function () #) nil) timer-event-handler([t 0 0 500000 nil #f(compiled-function () #) nil idle 0]) #+end_example [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/ --001a1147faca3db893056430b037 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
When I enable `eldoc-mode` in org-mode.
e= ldoc timer running when on `shell` src blocks like:

#+begin_src shel= l
=C2=A0 git log $rev..origin/emacs-25 -- lisp/org doc/misc/org.texi \=C2=A0=C2=A0=C2=A0 etc/refcards/orgcard.tex etc/ORG-NEWS etc/org \
=C2= =A0=C2=A0=C2=A0 etc/schema/od-manifest-schema-v1.2-os.rnc \
=C2=A0=C2=A0= =C2=A0 etc/schema/od-schema-v1.2-os.rnc
#+end_src

I got= the following error.

#+begin_example
Debugger entered-= -Lisp error: (wrong-type-argument processp nil)
=C2=A0 process-command(n= il)
=C2=A0 shell-mode()
=C2=A0 funcall(shell-mode)
=C2=A0 (progn (= funcall mode-func) (setq doc-func (and eldoc-documentation-function (symbol= -value 'eldoc-documentation-function))) (puthash lang doc-func org-eldo= c-local-functions-cache))
=C2=A0 (unwind-protect (progn (funcall mode-fu= nc) (setq doc-func (and eldoc-documentation-function (symbol-value 'eld= oc-documentation-function))) (puthash lang doc-func org-eldoc-local-functio= ns-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
= =C2=A0 (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn= (funcall mode-func) (setq doc-func (and eldoc-documentation-function (symb= ol-value 'eldoc-documentation-function))) (puthash lang doc-func org-el= doc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer tem= p-buffer))))
=C2=A0 (let ((temp-buffer (generate-new-buffer " *temp= *"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (p= rogn (funcall mode-func) (setq doc-func (and eldoc-documentation-function (= symbol-value 'eldoc-documentation-function))) (puthash lang doc-func or= g-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buffer= temp-buffer)))))
=C2=A0 (progn (let ((temp-buffer (generate-new-buffer = " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwin= d-protect (progn (funcall mode-func) (setq doc-func (and eldoc-documentatio= n-function (symbol-value 'eldoc-documentation-function))) (puthash lang= doc-func org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) = (kill-buffer temp-buffer))))) doc-func)
=C2=A0 (if (fboundp mode-func) (= progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-= current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall mod= e-func) (setq doc-func (and eldoc-documentation-function (symbol-value '= ;eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local-fun= ctions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))= doc-func))
=C2=A0 (if (eq 'empty cached-func) (if (fboundp mode-fun= c) (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (s= ave-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall= mode-func) (setq doc-func (and eldoc-documentation-function (symbol-value = 'eldoc-documentation-function))) (puthash lang doc-func org-eldoc-local= -functions-cache)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)= )))) doc-func)) cached-func)
=C2=A0 (let ((cached-func (gethash lang org= -eldoc-local-functions-cache 'empty)) (mode-func (intern-soft (format &= quot;%s-mode" lang))) doc-func) (if (eq 'empty cached-func) (if (f= boundp mode-func) (progn (let ((temp-buffer (generate-new-buffer " *te= mp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect = (progn (funcall mode-func) (setq doc-func (and eldoc-documentation-function= (symbol-value 'eldoc-documentation-function))) (puthash lang doc-func = org-eldoc-local-functions-cache)) (and (buffer-name temp-buffer) (kill-buff= er temp-buffer))))) doc-func)) cached-func))
=C2=A0 org-eldoc-get-mode-l= ocal-documentation-function("shell")
=C2=A0 (let ((doc-fun (or= g-eldoc-get-mode-local-documentation-function lang))) (if (functionp doc-fu= n) (progn (funcall doc-fun))))
=C2=A0 (cond ((or (string=3D lang "e= macs-lisp") (string=3D lang "elisp")) (if (fboundp 'elis= p-eldoc-documentation-function) (elisp-eldoc-documentation-function) (let (= eldoc-documentation-function) (eldoc-print-current-symbol-info)))) ((or (st= ring=3D lang "c") (string=3D lang "C")) (if (require &#= 39;c-eldoc nil t) (progn (c-eldoc-print-current-symbol-info)))) ((string=3D= lang "css") (if (require 'css-eldoc nil t) (progn (css-eldoc= -function)))) ((string=3D lang "php") (if (require 'php-eldoc= nil t) (progn (php-eldoc-function)))) ((or (string=3D lang "go")= (string=3D lang "golang")) (if (require 'go-eldoc nil t) (pr= ogn (go-eldoc--documentation-function)))) (t (let ((doc-fun (org-eldoc-get-= mode-local-documentation-function lang))) (if (functionp doc-fun) (progn (f= uncall doc-fun))))))
=C2=A0 (let ((lang (org-eldoc-get-src-lang))) (cond= ((or (string=3D lang "emacs-lisp") (string=3D lang "elisp&q= uot;)) (if (fboundp 'elisp-eldoc-documentation-function) (elisp-eldoc-d= ocumentation-function) (let (eldoc-documentation-function) (eldoc-print-cur= rent-symbol-info)))) ((or (string=3D lang "c") (string=3D lang &q= uot;C")) (if (require 'c-eldoc nil t) (progn (c-eldoc-print-curren= t-symbol-info)))) ((string=3D lang "css") (if (require 'css-e= ldoc nil t) (progn (css-eldoc-function)))) ((string=3D lang "php"= ) (if (require 'php-eldoc nil t) (progn (php-eldoc-function)))) ((or (s= tring=3D lang "go") (string=3D lang "golang")) (if (req= uire 'go-eldoc nil t) (progn (go-eldoc--documentation-function)))) (t (= let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang))) (if = (functionp doc-fun) (progn (funcall doc-fun)))))))
=C2=A0 (or (org-eldoc= -get-breadcrumb) (org-eldoc-get-src-header) (let ((lang (org-eldoc-get-src-= lang))) (cond ((or (string=3D lang "emacs-lisp") (string=3D lang = "elisp")) (if (fboundp 'elisp-eldoc-documentation-function) (= elisp-eldoc-documentation-function) (let (eldoc-documentation-function) (el= doc-print-current-symbol-info)))) ((or (string=3D lang "c") (stri= ng=3D lang "C")) (if (require 'c-eldoc nil t) (progn (c-eldoc= -print-current-symbol-info)))) ((string=3D lang "css") (if (requi= re 'css-eldoc nil t) (progn (css-eldoc-function)))) ((string=3D lang &q= uot;php") (if (require 'php-eldoc nil t) (progn (php-eldoc-functio= n)))) ((or (string=3D lang "go") (string=3D lang "golang&quo= t;)) (if (require 'go-eldoc nil t) (progn (go-eldoc--documentation-func= tion)))) (t (let ((doc-fun (org-eldoc-get-mode-local-documentation-function= lang))) (if (functionp doc-fun) (progn (funcall doc-fun))))))))
=C2=A0 = org-eldoc-documentation-function()
=C2=A0 eldoc-print-current-symbol-inf= o()
=C2=A0 #f(compiled-function () #<bytecode 0x27fd5d>)()
=C2= =A0 apply(#f(compiled-function () #<bytecode 0x27fd5d>) nil)
=C2= =A0 timer-event-handler([t 0 0 500000 nil #f(compiled-function () #<byte= code 0x27fd5d>) nil idle 0])
#+end_example


<= /div>
[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: 47C3= 2433
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.github.io/
=
--001a1147faca3db893056430b037--