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

Capitalize some error messages.

Browse source 
(mouse-set-point): Nice error if button release is in scrollbar.
This commit is contained in:
Richard M. Stallman 1994-08-02 21:59:19 +00:00
parent e60476ca9c
commit 0a50b9936f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mouse.el
View file

@ -93,7 +93,7 @@ This command must be bound to a mouse click."
(first-line window-min-height)
(last-line (- (window-height) window-min-height)))
(if (< last-line first-line)
(error "window too short to split")
(error "Window too short to split")
(split-window-vertically
(min (max new-height first-line) last-line))))))
@ -109,7 +109,7 @@ This command must be bound to a mouse click."
(first-col window-min-width)
(last-col (- (window-width) window-min-width)))
(if (< last-col first-col)
(error "window too narrow to split")
(error "Window too narrow to split")
(split-window-horizontally
(min (max new-width first-col) last-col))))))
@ -121,6 +121,8 @@ This should be bound to a mouse click event type."
;; Use event-end in case called from mouse-drag-region.
;; If EVENT is a click, event-end and event-start give same value.
(let ((posn (event-end event)))
(if (not (windowp (posn-window posn)))
(error "Cursor not in text area of window"))
(select-window (posn-window posn))
(if (numberp (posn-point posn))
(goto-char (posn-point posn)))))