Re: suggested new command `picture-mouse-set-point'

[Kim F. Storm]

address@hidden (John Paul Wallington) writes:

> Here is a patch providing a mouse command to set point to the position
> clicked on in `picture-mode' making whitespace if necessary, as
> suggested by Kai and others.  It seems okay, but isn't great.
> 
> Is it worth installing as is?  Can anyone suggest improvements?

I don't think this is specifically related to picture mode, as it may
be generally useful.  Here is the code I've written to do this:
                                                       
(defun mouse-set-point-rigidly (event)
  "Set mouse position at window position clicked on.       
If window position does not correspond to a buffer position, the
buffer is modified (unless it is a read-only buffer)."
  (interactive "e")                                                
  (let* ((line (cdr (posn-col-row (event-end event))))
         (moved (move-to-window-line line)))
     (when (and (not buffer-read-only) (< moved line))
       (end-of-line)
       (insert-char ?\n (- line moved))))
  (move-to-column (car (posn-col-row (event-end event))) (not 
buffer-read-only)))


-- 
Kim F. Storm <address@hidden> http://www.cua.dk