cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-08 07:08:39 +01:00
Code Issues

- prevented crash when building the function bound to a keychord that is dadined as an anonymous function.

Browse Source
This commit is contained in:
cage 2022-04-16 12:13:03 +02:00
parent c9878b2ae4
commit dd78fd015f
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
etc/init.lisp
View File

@ -581,9 +581,11 @@
(defun copy-to-clipboard (window) (defun copy-to-clipboard (window)
(ui:copy-link-to-clipboard window)) (ui:copy-link-to-clipboard window))
(define-key "C-c" (lambda () (defun copy-from-attach-window-to-clipboard ()
(copy-link-to-clipboard specials:*open-attach-window*)) "Copy the selected link to clipboard"
*open-attach-keymap*) (copy-link-to-clipboard specials:*open-attach-window*))
(define-key "C-c" #'copy-from-attach-window-to-clipboard *open-attach-keymap*)
(define-key "C-J" #'open-message-attach-perform-opening *open-attach-keymap*) (define-key "C-J" #'open-message-attach-perform-opening *open-attach-keymap*)
@ -603,9 +605,11 @@
(define-key "C-J" #'open-message-link-perform-opening *open-message-link-keymap*) (define-key "C-J" #'open-message-link-perform-opening *open-message-link-keymap*)
(define-key "C-c" (lambda () (defun copy-from-message-link-to-clipboard ()
(copy-link-to-clipboard specials:*open-message-link-window*)) "Copy the selected link to clipboard"
*open-message-link-keymap*) (copy-link-to-clipboard specials:*open-message-link-window*))
(define-key "C-c" #'copy-from-message-link-to-clipboard *open-message-link-keymap*)
(define-key "up" #'open-message-link-go-up *open-message-link-keymap*) (define-key "up" #'open-message-link-go-up *open-message-link-keymap*)

13
src/misc-utils.lisp
View File

@ -118,12 +118,13 @@
(defun function-name (data) (defun function-name (data)
"Implementation dependent" "Implementation dependent"
(assert (functionp data)) (assert (functionp data))
(multiple-value-bind (x y name) (conditions:with-default-on-error ((_ "Anonymous function"))
(function-lambda-expression data) (multiple-value-bind (x y name)
(declare (ignore x y)) (function-lambda-expression data)
(if name (declare (ignore x y))
(string-downcase (symbol-name name)) (if name
data))) (string-downcase (symbol-name name))
data))))
(defmacro fn-delay (a) (defmacro fn-delay (a)
(if (symbolp a) (if (symbolp a)