[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lselect.el [lexbind]

[Miles Bader]

Index: emacs/lisp/emacs-lisp/lselect.el
diff -c emacs/lisp/emacs-lisp/lselect.el:1.7.4.1 
emacs/lisp/emacs-lisp/lselect.el:1.7.4.2
*** emacs/lisp/emacs-lisp/lselect.el:1.7.4.1    Tue Oct 14 23:32:21 2003
--- emacs/lisp/emacs-lisp/lselect.el    Fri Oct 29 02:05:13 2004
***************
*** 1,6 ****
  ;;; lselect.el --- Lucid interface to X Selections
  
! ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: emulations
--- 1,6 ----
  ;;; lselect.el --- Lucid interface to X Selections
  
! ;; Copyright (C) 1990, 1993, 2004  Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: emulations
***************
*** 146,152 ****
    (x-disown-selection-internal (if secondary-p 'SECONDARY 'PRIMARY)))
  
  (defun x-dehilight-selection (selection)
!   "for use as a value of x-lost-selection-hooks."
    (cond ((eq selection 'PRIMARY)
         (if primary-selection-extent
             (let ((inhibit-quit t))
--- 146,152 ----
    (x-disown-selection-internal (if secondary-p 'SECONDARY 'PRIMARY)))
  
  (defun x-dehilight-selection (selection)
!   "for use as a value of `x-lost-selection-functions'."
    (cond ((eq selection 'PRIMARY)
         (if primary-selection-extent
             (let ((inhibit-quit t))
***************
*** 160,182 ****
               (setq secondary-selection-extent nil)))))
    nil)
  
! (setq x-lost-selection-hooks 'x-dehilight-selection)
  
  (defun x-notice-selection-requests (selection type successful)
!   "for possible use as the value of x-sent-selection-hooks."
    (if (not successful)
        (message "Selection request failed to convert %s to %s"
               selection type)
      (message "Sent selection %s as %s" selection type)))
  
  (defun x-notice-selection-failures (selection type successful)
!   "for possible use as the value of x-sent-selection-hooks."
    (or successful
        (message "Selection request failed to convert %s to %s"
               selection type)))
  
! ;(setq x-sent-selection-hooks 'x-notice-selection-requests)
! ;(setq x-sent-selection-hooks 'x-notice-selection-failures)
  
  
  ;; Random utility functions
--- 160,182 ----
               (setq secondary-selection-extent nil)))))
    nil)
  
! (setq x-lost-selection-functions 'x-dehilight-selection)
  
  (defun x-notice-selection-requests (selection type successful)
!   "for possible use as the value of `x-sent-selection-functions'."
    (if (not successful)
        (message "Selection request failed to convert %s to %s"
               selection type)
      (message "Sent selection %s as %s" selection type)))
  
  (defun x-notice-selection-failures (selection type successful)
!   "for possible use as the value of `x-sent-selection-functions'."
    (or successful
        (message "Selection request failed to convert %s to %s"
               selection type)))
  
! ;(setq x-sent-selection-functions 'x-notice-selection-requests)
! ;(setq x-sent-selection-functions 'x-notice-selection-failures)
  
  
  ;; Random utility functions
***************
*** 232,236 ****
  
  (provide 'lselect)
  
! ;;; arch-tag: 92fa54d4-c5d1-4e9b-ad58-cf1e13930556
  ;;; lselect.el ends here
--- 232,236 ----
  
  (provide 'lselect)
  
! ;; arch-tag: 92fa54d4-c5d1-4e9b-ad58-cf1e13930556
  ;;; lselect.el ends here