[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lselect.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lselect.el [lexbind] |
Date: |
Thu, 28 Oct 2004 22:28:03 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lselect.el [lexbind],
Miles Bader <=