Actions to trigger: Copy text in Firefox. Run a kill command (e.g. kill-region) in emacs. Run yank. Run yank-pop. Note that the text copied in Firefox is nowhere to be found.
Fix: The following one-line patch seems to work, but I'm no emacs hacker, so among other things, there's no configuration. It just saves the clipboard to the kill-ring before killing if yank would result in yanking the clipboard instead of the top of the kill ring.
--- /home/cfalls/src/emacs/lisp/simple.el 2008-04-22 15:50:11.000000000 -0400 +++ /tmp/simple.el 2009-02-11 11:23:46.373880990 -0500 @@ -2705,46 +2705,47 @@ (defun kill-new (string &optional replace yank-handler)
"Make STRING the latest kill in the kill ring. Set `kill-ring-yank-pointer' to point to it. If `interprogram-cut-function' is non-nil, apply it to STRING. Optional second argument REPLACE non-nil means that STRING will replace
the front of the kill ring, rather than being added to the list.
Optional third arguments YANK-HANDLER controls how the STRING is later inserted into a buffer; see `insert-for-yank' for details. When a yank handler is specified, STRING must be non-empty (the yank
handler, if non-nil, is stored as a `yank-handler' text property on STRING).
When the yank handler has a non-nil PARAM element, the original STRING argument is not used by `insert-for-yank'. However, since Lisp code
may access and use elements from the kill ring directly, the STRING argument should still be a \"useful\" string for such uses." (if (> (length string) 0) (if yank-handler (put-text-property 0 (length string)
'yank-handler yank-handler string)) (if yank-handler (signal 'args-out-of-range (list string "yank-handler specified for empty string"))))
+ (current-kill 0) (if (fboundp 'menu-bar-update-yank-menu) (menu-bar-update-yank-menu string (and replace (car kill-ring)))) (if (and replace kill-ring) (setcar kill-ring string) (push string kill-ring)
(if (> (length kill-ring) kill-ring-max) (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) (setq kill-ring-yank-pointer kill-ring) (if interprogram-cut-function (funcall interprogram-cut-function string (not replace))))
(defun kill-append (string before-p &optional yank-handler) "Append STRING to the end of the latest kill in the kill ring. If BEFORE-P is non-nil, prepend STRING to the kill. Optional third argument YANK-HANDLER, if non-nil, specifies the
yank-handler text property to be set on the combined kill ring string. If the specified yank-handler arg differs from the yank-handler property of the latest kill string, this function adds the combined string to the kill ring as a new element,
instead of replacing the last kill with it. If `interprogram-cut-function' is set, pass the resulting kill to it." (let* ((cur (car kill-ring))) (kill-new (if before-p (concat string cur) (concat cur string))
In GNU Emacs 22.214.171.124 (x86_64-unknown-linux-gnu, GTK+ Version 2.8.20) of 2008-04-24 on nyc-qws-024 Windowing system distributor `The X.Org Foundation', version 11.0.70101000 configured using `configure '--enable-font-backend' '--with-xft' '--with-freetype''
Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil
value of $LANG: en_US.UTF-8 value of $XMODIFIERS: nil locale-coding-system: utf-8-unix default-enable-multibyte-characters: t