feat(docs): simplify (function x) to #'x

dev/examples-to-docs.el

@@ -163,7 +163,16 @@ FUNCTION may reference an elisp function, alias, macro or a subr."
       (delete-char -1)
       (goto-char p)
       (delete-char 7)
-      (insert "'"))))
+      (insert "'")))
+  (goto-char (point-min))
+  (while (search-forward "(function " nil t)
+    (forward-char -10)
+    (let ((p (point)))
+      (forward-sexp 1)
+      (delete-char -1)
+      (goto-char p)
+      (delete-char 10)
+      (insert "#'"))))
 
 (defun goto-and-remove (s)
   (goto-char (point-min))

dev/examples-to-info.el

@@ -169,7 +169,16 @@ FUNCTION may reference an elisp function, alias, macro or a subr."
       (delete-char -1)
       (goto-char p)
       (delete-char 7)
-      (insert "'"))))
+      (insert "'")))
+  (goto-char (point-min))
+  (while (search-forward "(function " nil t)
+    (forward-char -10)
+    (let ((p (point)))
+      (forward-sexp 1)
+      (delete-char -1)
+      (goto-char p)
+      (delete-char 10)
+      (insert "#'"))))
 
 (defun goto-and-remove (s)
   (goto-char (point-min))