help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

The definition of orig-fn.


From: Hongyi Zhao
Subject: The definition of orig-fn.
Date: Mon, 4 Oct 2021 19:33:50 +0800

I'm trying to understand the code snippet here [1] as follows:

;;;
(defun ora--company-good-prefix-p (orig-fn prefix)
(unless (and (stringp prefix) (string-match-p "\\`[0-9]+\\'" prefix))
(funcall orig-fn prefix)))
(ora-advice-add 'company--good-prefix-p :around #'ora--company-good-prefix-p)
;;;

The symbol `orig-fn' used above puzzles me the most. It can't be found
by `C-h o orig-fn RET', and its definition cannot be found elsewhere
in the above repository.

[1] 
https://github.com/abo-abo/oremacs/blob/3809390019a7083c28e8502a82da94ca3a8ebba0/modes/ora-company.el#L41

Regards, HZ



reply via email to

[Prev in Thread] Current Thread [Next in Thread]