/[emacs]/emacs/lisp/mouse-sel.el
ViewVC logotype

Diff of /emacs/lisp/mouse-sel.el

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

revision 1.37 by lektu, Tue Feb 18 10:57:39 2003 UTC revision 1.38 by jpw, Fri Jul 25 12:18:46 2003 UTC
# Line 313  unless `mouse-sel-default-bindings' is ` Line 313  unless `mouse-sel-default-bindings' is `
313  (defvar mouse-sel-get-selection-function  (defvar mouse-sel-get-selection-function
314    (lambda (selection)    (lambda (selection)
315      (if (eq selection 'PRIMARY)      (if (eq selection 'PRIMARY)
316          (or (x-cut-buffer-or-selection-value) x-last-selected-text)          (or (x-cut-buffer-or-selection-value)
317                (bound-and-true-p x-last-selected-text)
318                (bound-and-true-p x-last-selected-text-primary))
319        (x-get-selection selection)))        (x-get-selection selection)))
320    "Function to call to get the selection.    "Function to call to get the selection.
321  Called with one argument:  Called with one argument:

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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