如何修改 Elisp 函数中的 docstring

Question

Elisp 提供了 documentation 函数可以用来获取另一个函数的 docstring，然而可惜它是不能通过 setf 修改的：

(defun foo ()
  "Old Docstring")
(documentation 'foo)
;; =>"Old Docstring"

(fset (documentation 'foo) "New Docstring")
;; Debugger entered--Lisp error: (wrong-type-argument symbolp "Old Docstring")

不过有一个比较 hack 的方法，就是修改 symbol 的 function-documentation 属性，它的优先级要高于函数本身存储的 docstring

(put 'foo 'function-documentation "New Docstring")
(documentation 'foo)
;; =>"New Docstring"