diff options
author | Po Lu <luangruo@yahoo.com> | 2022-03-17 03:46:18 +0000 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2022-03-17 03:46:35 +0000 |
commit | dfdd2f6f2380c785d34f5eb2df0b356d33d0dae1 (patch) | |
tree | 16d81426d450ada002e13fa0cd57806644fd447e /lisp/term/haiku-win.el | |
parent | 00172ae0c8a3087578f6e91251f887f6b7b4f682 (diff) | |
download | emacs-dfdd2f6f2380c785d34f5eb2df0b356d33d0dae1.tar.gz emacs-dfdd2f6f2380c785d34f5eb2df0b356d33d0dae1.tar.bz2 emacs-dfdd2f6f2380c785d34f5eb2df0b356d33d0dae1.zip |
* lisp/term/haiku-win.el (x-begin-drag): Fix type code of B_MIME_TYPE.
Diffstat (limited to 'lisp/term/haiku-win.el')
-rw-r--r-- | lisp/term/haiku-win.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el index b7f1991381b..9fa50d62e85 100644 --- a/lisp/term/haiku-win.el +++ b/lisp/term/haiku-win.el @@ -200,7 +200,7 @@ take effect on menu items until the menu bar is updated again." (unless (cadr field) ;; Add B_MIME_TYPE to the message if the type was not ;; previously defined. - (push 1296649641 (alist-get (car selection-result) message + (push 1296649541 (alist-get (car selection-result) message nil nil #'equal)))) (push (cadr selection-result) (cdr (alist-get (car selection-result) message |