/[emacs]/emacs/lisp/term/pc-win.el
ViewVC logotype

Diff of /emacs/lisp/term/pc-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by eliz, Fri Jan 25 13:13:02 2002 UTC revision 1.33.4.1 by miles, Fri Apr 4 06:20:37 2003 UTC
# Line 181  support other types of selections." Line 181  support other types of selections."
181    :group 'killing)    :group 'killing)
182    
183  (defun x-select-text (text &optional push)  (defun x-select-text (text &optional push)
184    (if x-select-enable-clipboard    (if x-select-enable-clipboard
185        (w16-set-clipboard-data text))        (w16-set-clipboard-data text))
186    (setq x-last-selected-text text))    (setq x-last-selected-text text))
187        
188  ;;; Return the value of the current selection.  ;;; Return the value of the current selection.
189  ;;; Consult the selection, then the cut buffer.  Treat empty strings  ;;; Consult the selection, then the cut buffer.  Treat empty strings
190  ;;; as if they were unset.  ;;; as if they were unset.
191  (defun x-get-selection-value ()  (defun x-get-selection-value ()
192    (if x-select-enable-clipboard    (if x-select-enable-clipboard
193        (let (text)        (let (text)
194          ;; Don't die if x-get-selection signals an error.          ;; Don't die if x-get-selection signals an error.
195          (condition-case c          (condition-case c

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.33.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26