[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated
From: |
Stefan Monnier |
Subject: |
bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions |
Date: |
Fri, 06 Jan 2023 11:44:10 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) |
> One of the discussed features was displaying function source code right
> in *Help* buffers. This feature usefulness have been objected at that
> time, on the grounds that showing function code may be too long and
> cause large *Help* buffers.
FWIW, I find myself regularly jumping to `M-x ielm` to look at the
`symbol-function`, so I would actually appreciate a button in the *Help*
buffer to display the actual value in the `symbol-function` slot.
This would also bring `describe-function` a bit closer to
`describe-variable`, which I think is good.
> 1. emacs -Q
> 2. M-: (require 'ob-shell)
> 3. <F1> f org-babel-execute:sh <RET>
> 4. Click on the source code link in *Help* buffer
> 5. Observe point jumping to (point-min) with no obvious way to find the
> function definition.
We have `definition-name` for that.
I.e. `org-babel-shell-initialize` should arguably do
(put 'org-babel-execute:sh 'definition-name 'org-babel-shell-initialize)
so that step 4 above jumps to `org-babel-shell-initialize`.
The patch below does that, along with saving some kittens.
Stefan
diff --git a/lisp/org/ob-shell.el b/lisp/org/ob-shell.el
index 4a60186cd5d..5f7373c3faa 100644
--- a/lisp/org/ob-shell.el
+++ b/lisp/org/ob-shell.el
@@ -74,20 +74,25 @@ org-babel-shell-initialize
is modified outside the Customize interface."
(interactive)
(dolist (name org-babel-shell-names)
- (eval `(defun ,(intern (concat "org-babel-execute:" name))
- (body params)
- ,(format "Execute a block of %s commands with Babel." name)
- (let ((shell-file-name ,name)
- (org-babel-prompt-command
- (or (alist-get ,name org-babel-shell-set-prompt-commands)
- (alist-get t org-babel-shell-set-prompt-commands))))
- (org-babel-execute:shell body params))))
- (eval `(defalias ',(intern (concat "org-babel-variable-assignments:" name))
- 'org-babel-variable-assignments:shell
- ,(format "Return list of %s statements assigning to the block's \
+ (let ((fname (intern (concat "org-babel-execute:" name))))
+ (defalias fname
+ (lambda (body params)
+ (:documentation
+ (format "Execute a block of %s commands with Babel." name))
+ (let ((shell-file-name name)
+ (org-babel-prompt-command
+ (or (alist-get name org-babel-shell-set-prompt-commands)
+ (alist-get t org-babel-shell-set-prompt-commands))))
+ (org-babel-execute:shell body params))))
+ (put fname 'definition-name 'org-babel-shell-initialize))
+ (defalias (intern (concat "org-babel-variable-assignments:" name))
+ #'org-babel-variable-assignments:shell
+ (format "Return list of %s statements assigning to the block's \
variables."
- name)))
- (eval `(defvar ,(intern (concat "org-babel-default-header-args:" name))
'()))))
+ name))
+ (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
+ (intern (concat "org-babel-default-header-args:" name))
+ '())))
(defcustom org-babel-shell-names
'("sh" "bash" "zsh" "fish" "csh" "ash" "dash" "ksh" "mksh" "posh")
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, (continued)
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Gregory Heytings, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Ihor Radchenko, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Eli Zaretskii, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Ihor Radchenko, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Eli Zaretskii, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Eli Zaretskii, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Ihor Radchenko, 2023/01/07
- bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Eli Zaretskii, 2023/01/07
bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions, Jean Louis, 2023/01/05
bug#60568: [FR] 30.0.50; Help buffers and function bodies for generated functions,
Stefan Monnier <=