Bagaimana cara defalias lambda?

Saya punya ini di .emacs saya:

(defalias 'λ 'lambda)

yang berfungsi dengan baik untuk hal-hal sederhana seperti (funcall (λ (x) x) 1).

Tetapi ketika saya melakukan sesuatu seperti (org-add-link-type "foo" (λ (s) (message s)))atau (add-to-list 'auto-mode-alist '("foo" . (λ () (message "bar")))), itu tidak berhasil dan saya mendapatkannya

org-open-at-point: Fungsi tidak valid: (λ (s) (pesan s))

dan

Kesalahan spesifikasi mode file: (fungsi tidak valid (λ nil (pesan "bilah")))

masing-masing.

Adakah yang tahu apa yang salah di sini?

Dengan bantuan dari lunaryorn pada reddit , saya kira saya telah dapat memahami mengapa Anda mengamati perilaku "aneh".

Masalahnya adalah Anda mengutip ungkapan tersebut

'("foo" . (λ () (message "bar")))

Yang setara dengan formulir

(cons "foo" '(λ () (message "bar")))

Sekarang ketika emacs membuka file dengan ekstensi "foo", ia melakukan sesuatu seperti berikut ini

(funcall '(λ () (message "bar")))

Perhatikan kutipan tambahan, sebelumnya (λ, ini jelas bukan fungsi yang valid dan Anda mendapatkan kesalahan Invalid function: ... Tapi mengapa ("foo" . (lambda () (message "bar")))berhasil, ini dijelaskan oleh pengamatan lunaryorn

"Daftar lambda", yaitu daftar yang mobilnya lambda, adalah fungsi yang valid juga

Begitu '(lambda () (message "bar"))juga fungsi yang valid, ini bisa diverifikasi dengan kode berikut

(functionp (lambda () "hello"))  => t
(functionp (λ () "hello"))       => t
(functionp '(lambda () "hello")) => t
(functionp '(λ () "hello"))      => nil

Jadi solusinya adalah dengan tidak mengutip ekspresi gunakan yang berikut ini sebagai gantinya

(add-to-list 'auto-mode-alist (cons "foo" (λ () (bar))))

Sepertinya masalahnya bukan pada defalias, melainkan di mana dan bagaimana Anda menelepon λ. funcallmengambil, sebagai argumennya, fungsi dan argumen fungsi itu, jadi funcallcontoh Anda berfungsi dengan baik.

Baik org-add-link-typedan auto-mode-alist, bagaimanapun, mengharapkan simbol yang berisi fungsi yang relevan. Karena itu, membangun contoh Anda, berikut ini harus bekerja:

(defun a-silly-fnx (s)
  (message s))
(defalias #'my-link-alias #'a-silly-fnx)
(org-add-link-type "foo" #'my-link-alias)

(defun a-tester-fnx ()
  (message "Testing!")
  (sit-for 2))
(defalias #'my-alist-alias #'a-tester-fnx)
(add-to-list 'auto-mode-alist '("foo" . my-alist-alias))

Jika Anda kebanyakan ingin memiliki λmuncul dalam buffer Anda, pertimbangkan mencoba prettify-symbols-mode, yang akan menampilkan lambdasebagai λtanpa mengubah teks th buffer.