[sawfish] description for view-clipboard
- From: Christopher Bratusek <chrisb src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [sawfish] description for view-clipboard
- Date: Sat, 12 Sep 2009 14:31:00 +0000 (UTC)
commit e1c366f756307089f47033c9a6a2ca255c6e2aa4
Author: chrisb <zanghar freenet de>
Date: Sat Sep 12 16:30:13 2009 +0200
description for view-clipboard
ChangeLog | 2 ++
lisp/sawfish/wm/commands/user.jl | 6 ++++--
2 files changed, 6 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 0fec7dc..1c9882f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -46,6 +46,8 @@
* Makefile.in: don't remove ancient Sawmill.desktop
* lisp/sawfish/wm/user.jl: display-message-with-timeout now must be called with a timeout
+ header updated
+ description for view-clipboard
2009-09-11 Christopher Bratusek <zanghar freenet de>
* configure.in
diff --git a/lisp/sawfish/wm/commands/user.jl b/lisp/sawfish/wm/commands/user.jl
index 77510a3..681106e 100644
--- a/lisp/sawfish/wm/commands/user.jl
+++ b/lisp/sawfish/wm/commands/user.jl
@@ -1,6 +1,6 @@
-#| xterm.jl -- command to launch an xterm
+#| user.jl -- command to launch an xterm/brower and more
- $Id: xterm.jl,v 1.7 2002/04/21 22:25:12 jsh Exp $
+ $Id: user.jl,v 1.7 2002/04/21 22:25:12 jsh Exp $
Copyright (C) 2000 John Harper <john dcs warwick ac uk>
@@ -92,6 +92,8 @@
(file-exists-p (concat dir "/" cmd)))
(string-split ":" (getenv "PATH"))))
+ ;; view-clipboard
+ ;; view the content of the primary x-clipboard
(define (view-clipboard)
"Show the contents of the clipboard in a message window"
(let ((c (x-get-selection 'PRIMARY)))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]