Commit 0a50b993 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Capitalize some error messages.

(mouse-set-point): Nice error if button release is in scrollbar.
parent e60476ca
......@@ -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")
(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")
(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)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment