[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master dfdd2f6f23 2/2: * lisp/term/haiku-win.el (x-begin-drag): Fix type
From: |
Po Lu |
Subject: |
master dfdd2f6f23 2/2: * lisp/term/haiku-win.el (x-begin-drag): Fix type code of B_MIME_TYPE. |
Date: |
Wed, 16 Mar 2022 23:48:00 -0400 (EDT) |
branch: master
commit dfdd2f6f2380c785d34f5eb2df0b356d33d0dae1
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
* lisp/term/haiku-win.el (x-begin-drag): Fix type code of B_MIME_TYPE.
---
lisp/term/haiku-win.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index b7f1991381..9fa50d62e8 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