Mercurial > emacs
comparison lisp/menu-bar.el @ 90602:b5c13d1564a9
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 437-446)
- Update from CVS
- lisp/url/url-methods.el: Fix format error when http_proxy is empty string
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 137-140)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-111
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 20 Sep 2006 06:04:23 +0000 |
parents | a8190f7e546e 69d661c19645 |
children | 02cf29720f31 |
comparison
equal
deleted
inserted
replaced
90601:a1a25ac6c88a | 90602:b5c13d1564a9 |
---|---|
508 '(or (and (fboundp 'x-selection-exists-p) (x-selection-exists-p)) | 508 '(or (and (fboundp 'x-selection-exists-p) (x-selection-exists-p)) |
509 (x-selection-exists-p 'CLIPBOARD))) | 509 (x-selection-exists-p 'CLIPBOARD))) |
510 | 510 |
511 (defun clipboard-yank () | 511 (defun clipboard-yank () |
512 "Insert the clipboard contents, or the last stretch of killed text." | 512 "Insert the clipboard contents, or the last stretch of killed text." |
513 (interactive) | 513 (interactive "*") |
514 (let ((x-select-enable-clipboard t)) | 514 (let ((x-select-enable-clipboard t)) |
515 (yank))) | 515 (yank))) |
516 | 516 |
517 (defun clipboard-kill-ring-save (beg end) | 517 (defun clipboard-kill-ring-save (beg end) |
518 "Copy region to kill ring, and save in the X clipboard." | 518 "Copy region to kill ring, and save in the X clipboard." |