procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-drag-mode-line): Don't get error

Browse source 
about sole window, if we don't actually try to change the size.
This commit is contained in:
Richard M. Stallman 1996-12-07 22:19:50 +00:00
parent 590571980e
commit 951e042711
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/mouse.el
View file

@ -198,9 +198,7 @@ This command must be bound to a mouse click."
should-enlarge-minibuffer
event mouse minibuffer y top bot edges wconfig params growth)
(setq params (frame-parameters))
(if (and (not (setq minibuffer (cdr (assq 'minibuffer params))))
(one-window-p t))
(error "Attempt to resize sole window"))
(setq minibuffer (cdr (assq 'minibuffer params)))
(track-mouse
(progn
;; enlarge-window only works on the selected window, so
@ -256,6 +254,11 @@ This command must be bound to a mouse click."
;; compute size change needed
(setq growth (- y bot -1)
wconfig (current-window-configuration))
;; Check for an error case.
(if (and (/= growth 0)
(not minibuffer)
(one-window-p t))
(error "Attempt to resize sole window"))
;; grow/shrink minibuffer?
(if should-enlarge-minibuffer
(progn