1341 |
nil nil symbol)))) |
nil nil symbol)))) |
1342 |
(if (equal symbol "") (error "No symbol")) |
(if (equal symbol "") (error "No symbol")) |
1343 |
(let* ((func `(lambda () |
(let* ((func `(lambda () |
1344 |
(comint-redirect-send-command (format "emacs.ehelp(%S)\n" |
(comint-redirect-send-command |
1345 |
,symbol) |
(format "emacs.ehelp(%S, globals(), locals())\n" ,symbol) |
1346 |
"*Help*" nil)))) |
"*Help*" nil)))) |
1347 |
;; Ensure we have a suitable help buffer. |
;; Ensure we have a suitable help buffer. |
1348 |
;; Fixme: Maybe process `Related help topics' a la help xrefs and |
;; Fixme: Maybe process `Related help topics' a la help xrefs and |
1349 |
;; allow C-c C-f in help buffer. |
;; allow C-c C-f in help buffer. |