mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

* textmodes/picture.el (picture-mouse-set-point): New command.

Browse Source 
(picture-mode-map): Bind it.
(picture-motion-reverse): Doc fix.
This commit is contained in:
John Paul Wallington 2002-10-26 22:40:40 +00:00
parent 4f01718584
commit 15693bc3ac
2 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -3,6 +3,12 @@
* pcvs.el (cvs-checkout): Use read-directory-name.
(cvs-query-directory): Likewise.
2002-10-26 John Paul Wallington <jpw@shootybangbang.com>
* textmodes/picture.el (picture-mouse-set-point): New command.
(picture-mode-map): Bind it.
(picture-motion-reverse): Doc fix.
2002-10-25 Stefan Monnier <monnier@cs.yale.edu>
* textmodes/outline.el (outline-next-heading): Make sure the match-data

17
lisp/textmodes/picture.el
View File

@ -1,6 +1,6 @@
;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model
;; Copyright (C) 1985, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1994, 2002 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
;; Maintainer: FSF
@ -222,10 +222,22 @@ Do \\[command-apropos] picture-movement to see commands which control motion."
"Move point in direction opposite of current picture motion in Picture mode.
With ARG do it that many times. Useful for delineating rectangles in
conjunction with diagonal picture motion.
Do \\[command-apropos] `picture-movement' to see commands which control motion."
Do \\[command-apropos] picture-movement to see commands which control motion."
(interactive "p")
(picture-motion (- arg)))
(defun picture-mouse-set-point (event)
"Move point to the position clicked on, making whitespace if necessary."
(interactive "e")
(let* ((pos (posn-col-row (event-start event)))
(x (car pos))
(y (cdr pos))
(current-row (count-lines (window-start) (line-beginning-position))))
(unless (equal x (current-column))
(picture-forward-column (- x (current-column))))
(unless (equal y current-row)
(picture-move-down (- y current-row)))))
;; Picture insertion and deletion.
@ -602,6 +614,7 @@ Leaves the region surrounding the rectangle."
(picture-substitute 'previous-line 'picture-move-up)
(picture-substitute 'beginning-of-line 'picture-beginning-of-line)
(picture-substitute 'end-of-line 'picture-end-of-line)
(picture-substitute 'mouse-set-point 'picture-mouse-set-point)
(define-key picture-mode-map "\C-c\C-d" 'delete-char)
(define-key picture-mode-map "\e\t" 'picture-toggle-tab-state)