From 800c25d1e8e75c59c00f2965455dabb03a85f36b Mon Sep 17 00:00:00 2001 From: Matus Goljer Date: Mon, 20 Jan 2020 00:08:51 +0100 Subject: [PATCH] feat(docs): simplify (function x) to #'x --- dev/examples-to-docs.el | 11 ++++++++++- dev/examples-to-info.el | 11 ++++++++++- 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el index 848972c..4d9df77 100644 --- a/dev/examples-to-docs.el +++ b/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)) diff --git a/dev/examples-to-info.el b/dev/examples-to-info.el index 3b26085..79da7db 100644 --- a/dev/examples-to-info.el +++ b/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))