home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / alt / lucidem / bug / 402 < prev    next >
Encoding:
Text File  |  1992-12-17  |  3.1 KB  |  90 lines
  1. x-gateway: rodan.UU.NET from bug-lucid-emacs to alt.lucid-emacs.bug; Thu, 17 Dec 1992 08:00:56 EST
  2. Date: 17 Dec 1992 07:50:13 -0500
  3. From: els@sirius.hrb.com (Eric L. Schott)
  4. Subject: RE: x-set-point-and-insert-selection
  5. Message-ID: <9212171250.AA16434@sirius.hrb.com>
  6. Content-Transfer-Encoding: 7BIT
  7. References: <RJC.92Dec16180057@daiches.cogsci.ed.ac.uk>
  8. Newsgroups: alt.lucid-emacs.bug
  9. Path: sparky!uunet!wendy-fate.uu.net!bug-lucid-emacs
  10. Sender: bug-lucid-emacs-request@lucid.com
  11. Lines: 77
  12.  
  13. Richard Caley writes:
  14. > 
  15. > This seems to be broken in 19.3. I have it bound to the middle mouse
  16. > button.
  17. > 
  18. > What happens is that I select some text, then try and paste it using
  19. > the middle button somewhere else in the same buffer and the text
  20. > between the selection and the insertion point is insterted too. 
  21. > 
  22. > I think that that x-set-point-and-insert-selection is setting the
  23. > point before looking at the selection and the set-point it is using is
  24. > one which extends the selection. 
  25.  
  26. Jamie mailed a fix to this to me.  The patch is below.
  27.  
  28. *** x-mouse.el.dist    Fri Sep  4 05:43:01 1992
  29. --- x-mouse.el    Fri Sep 18 07:52:54 1992
  30. ***************
  31. *** 32,59 ****
  32.       (let ((s (buffer-substring old-point (point))))
  33.         (x-own-clipboard s)
  34.         (x-store-cutbuffer s))
  35.       (kill-region old-point (point))))
  36.   
  37. ! (defun x-insert-selection (&optional check-cutbuffer-p)
  38.     "Insert the current selection into buffer at point."
  39.     (interactive)
  40.     (let ((text (if check-cutbuffer-p
  41.             (or (condition-case () (x-get-selection) (error ()))
  42.                 (x-get-cutbuffer)
  43.                 (error "No selection or cut buffer available"))
  44.           (x-get-selection))))
  45.       (push-mark (point))
  46.       (insert text)
  47.   ;;    (if zmacs-regions (zmacs-activate-region))
  48.       ))
  49.   
  50.   (defun x-set-point-and-insert-selection (event)
  51.     "Sets point where clicked and insert the primary selection or the cut buffer"
  52.     (interactive "e")
  53. !   (mouse-set-point event)
  54. !   (x-insert-selection t))
  55.   
  56.   (defun mouse-track-and-copy-to-cutbuffer (event)
  57.     "Makes a selection like `mouse-track', but also copies it to the cutbuffer."
  58.     (interactive "e")
  59.     (mouse-track event)
  60. --- 32,59 ----
  61.       (let ((s (buffer-substring old-point (point))))
  62.         (x-own-clipboard s)
  63.         (x-store-cutbuffer s))
  64.       (kill-region old-point (point))))
  65.   
  66. ! (defun x-insert-selection (&optional check-cutbuffer-p move-point-p)
  67.     "Insert the current selection into buffer at point."
  68.     (interactive)
  69.     (let ((text (if check-cutbuffer-p
  70.             (or (condition-case () (x-get-selection) (error ()))
  71.                 (x-get-cutbuffer)
  72.                 (error "No selection or cut buffer available"))
  73.           (x-get-selection))))
  74. +     (if move-point-p (mouse-set-point event))
  75.       (push-mark (point))
  76.       (insert text)
  77.   ;;    (if zmacs-regions (zmacs-activate-region))
  78.       ))
  79.   
  80.   (defun x-set-point-and-insert-selection (event)
  81.     "Sets point where clicked and insert the primary selection or the cut buffer"
  82.     (interactive "e")
  83. !   (x-insert-selection t t))
  84.   
  85.   (defun mouse-track-and-copy-to-cutbuffer (event)
  86.     "Makes a selection like `mouse-track', but also copies it to the cutbuffer."
  87.     (interactive "e")
  88.     (mouse-track event)
  89.  
  90.