home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / lucidem / help / 724 < prev    next >
Encoding:
Text File  |  1992-11-23  |  1.2 KB  |  29 lines
  1. x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Mon, 23 Nov 1992 12:51:52 EST
  2. Date: Mon, 23 Nov 1992 09:51:29 PST
  3. From: devin%scylla@lucid.com (Matthieu Devin)
  4. Message-ID: <9211231751.AA16569@scylla.lucid>
  5. Subject: Re: Question: Pending delete in lemacs
  6. References: <9211231745.AA01199@sundeck.East.Sun.COM>
  7. Newsgroups: alt.lucid-emacs.help
  8. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  9. Sender: help-lucid-emacs-request@lucid.com
  10. Lines: 17
  11.  
  12. Sorry I alwasy forget that 19.4 is not released yet.  Here is the patch for
  13. pending-del.el, add the line marked with "+."
  14.  
  15.  (defun delete-active-region (&optional killp)
  16.    (if (and (not buffer-read-only)
  17.         (extentp primary-selection-extent)
  18. +        (eq (current-buffer) (extent-buffer primary-selection-extent))
  19.         (< 0 (extent-start-position primary-selection-extent))
  20.         (< 0 (extent-end-position primary-selection-extent)))
  21.        (progn
  22.      (if killp
  23.          (kill-region (extent-start-position primary-selection-extent)
  24.               (extent-end-position primary-selection-extent))
  25.        (delete-region (extent-start-position primary-selection-extent)
  26.               (extent-end-position primary-selection-extent)))
  27.      t)))
  28.  
  29.