mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Mention direction when resizing a window fails
* lisp/window.el (enlarge-window, shrink-window): When an attempt to resize a window fails, also mention the direction of the operation (i.e., horizontally or vertically).
This commit is contained in:
parent
7e326b915f
commit
0ae66c1917
1 changed files with 6 additions and 2 deletions
|
|
@ -3687,7 +3687,9 @@ negative, shrink selected window by -DELTA lines or columns."
|
|||
(if horizontal 'enlarge-window-horizontally 'enlarge-window))
|
||||
;; For backward compatibility don't signal an error unless this
|
||||
;; command is `enlarge-window(-horizontally)'.
|
||||
(user-error "Cannot enlarge selected window"))
|
||||
(if horizontal
|
||||
(user-error "Cannot enlarge selected window horizontally")
|
||||
(user-error "Cannot enlarge selected window vertically")))
|
||||
(t
|
||||
(window-resize
|
||||
nil (if (> delta 0)
|
||||
|
|
@ -3730,7 +3732,9 @@ negative, enlarge selected window by -DELTA lines or columns."
|
|||
(if horizontal 'shrink-window-horizontally 'shrink-window))
|
||||
;; For backward compatibility don't signal an error unless this
|
||||
;; command is `shrink-window(-horizontally)'.
|
||||
(user-error "Cannot shrink selected window"))
|
||||
(if horizontal
|
||||
(user-error "Cannot shrink selected window horizontally")
|
||||
(user-error "Cannot shrink selected window vertically")))
|
||||
(t
|
||||
(window-resize
|
||||
nil (if (> delta 0)
|
||||
|
|
|
|||
Loading…
Reference in a new issue