Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
721c26b8
Commit
721c26b8
authored
Nov 11, 2001
by
Eli Zaretskii
Browse files
(menu-bar-edit-menu): Don't use x-selection-exists-p if
it is not fboundp. (clipboard-yank): Ditto.
parent
91e51f9a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
2 deletions
+13
-2
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/menu-bar.el
lisp/menu-bar.el
+7
-2
No files found.
lisp/ChangeLog
View file @
721c26b8
2001-11-11 Eli Zaretskii <eliz@is.elta.co.il>
* menu-bar.el (menu-bar-edit-menu): Don't use x-selection-exists-p if
it is not fboundp.
(clipboard-yank): Ditto.
2001-11-11 Colin Walters <walters@verbum.org>
The following changes are based on patches from
...
...
lisp/menu-bar.el
View file @
721c26b8
...
...
@@ -398,7 +398,11 @@ A large number or nil slows down menu responsiveness."
:help
"Paste (yank) text cut or copied earlier"
))
(
define-key
menu-bar-edit-menu
[paste]
'
(
menu-item
"Paste"
yank
:enable
(
and
(
x-selection-exists-p
)
(
not
buffer-read-only
))
:enable
(
and
;; Emacs compiled --without-x doesn't have
;; x-selection-exists-p.
(
fboundp
'x-selection-exists-p
)
(
x-selection-exists-p
)
(
not
buffer-read-only
))
:help
"Paste (yank) text most recently cut/copied"
))
(
define-key
menu-bar-edit-menu
[copy]
'
(
menu-item
"Copy"
menu-bar-kill-ring-save
...
...
@@ -433,7 +437,8 @@ A large number or nil slows down menu responsiveness."
(
put
'clipboard-kill-region
'menu-enable
'mark-active
)
(
put
'clipboard-kill-ring-save
'menu-enable
'mark-active
)
(
put
'clipboard-yank
'menu-enable
'
(
or
(
x-selection-exists-p
)
(
x-selection-exists-p
'CLIPBOARD
)))
'
(
or
(
and
(
fboundp
'x-selection-exists-p
)
(
x-selection-exists-p
))
(
x-selection-exists-p
'CLIPBOARD
)))
(
defun
clipboard-yank
()
"Insert the clipboard contents, or the last stretch of killed text."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment