mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Rename 'elisp-eval-buffer' to 'elisp-eval-region-or-buffer' (bug#59350)

Browse Source 
* lisp/progmodes/elisp-mode.el (elisp-eval-region-or-buffer):
Rename recently added command 'elisp-eval-buffer' to support active region.
(emacs-lisp-mode-map, lisp-interaction-mode-map): Rebind 'C-c C-e'
from elisp-eval-buffer to elisp-eval-region-or-buffer.
This commit is contained in:
Juri Linkov 2022-11-20 20:10:45 +02:00
parent 5c709bd605
commit 4bc9fe33af
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/NEWS
View File

@ -1464,8 +1464,8 @@ This command visits the file on the current line with EWW.
** Elisp
---
*** New command 'elisp-eval-buffer' (bound to 'C-c C-e').
This command evals the forms in the current buffer.
*** New command 'elisp-eval-region-or-buffer' (bound to 'C-c C-e').
This command evals the forms in the active region or in the whole buffer.
---
*** New commands 'elisp-byte-compile-file' and 'elisp-byte-compile-buffer'.

18
lisp/progmodes/elisp-mode.el
View File

@ -52,7 +52,7 @@ All commands in `lisp-mode-shared-map' are inherited by this map."
:parent lisp-mode-shared-map
"M-TAB" #'completion-at-point
"C-M-x" #'eval-defun
"C-c C-e" #'elisp-eval-buffer
"C-c C-e" #'elisp-eval-region-or-buffer
"C-c C-f" #'elisp-byte-compile-file
"C-c C-b" #'elisp-byte-compile-buffer
"C-M-q" #'indent-pp-sexp)
@ -1234,7 +1234,7 @@ All commands in `lisp-mode-shared-map' are inherited by this map."
:parent lisp-mode-shared-map
"C-M-x" #'eval-defun
"C-M-q" #'indent-pp-sexp
"C-c C-e" #'elisp-eval-buffer
"C-c C-e" #'elisp-eval-region-or-buffer
"C-c C-b" #'elisp-byte-compile-buffer
"M-TAB" #'completion-at-point
"C-j" #'eval-print-last-sexp)
@ -2212,11 +2212,17 @@ Runs in a batch-mode Emacs. Interactively use variable
(terpri)
(pp collected)))
(defun elisp-eval-buffer ()
"Evaluate the forms in the current buffer."
(defun elisp-eval-region-or-buffer ()
"Evaluate the forms in the active region or the whole current buffer.
In Transient Mark mode when the mark is active, call `eval-region'.
Otherwise, call `eval-buffer'."
(interactive)
(eval-buffer)
(message "Evaluated the %s buffer" (buffer-name)))
(if (use-region-p)
(eval-region (region-beginning) (region-end))
(eval-buffer))
(message "Evaluated the %s%s buffer"
(if (use-region-p) "region in the " "")
(buffer-name)))
(defun elisp-byte-compile-file (&optional load)
"Byte compile the file the current buffer is visiting.