ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-14 05:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove last use of flet

Browse Source 
It is obsolete as of 24.3, and this particular use of flet in this place
isn't much use anyway.

* doc/yas-doc-helper.el (yas--document-symbol): Stop using flet.

Fixes #752
This commit is contained in:
Noam Postavsky 2016-11-28 22:20:31 -05:00
parent 8412d71e44
commit c485d13995
1 changed files with 52 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
doc/yas-doc-helper.el
View File

@ -40,8 +40,6 @@
tag content tag)) tag content tag))
(defun yas--document-symbol (symbol level) (defun yas--document-symbol (symbol level)
(flet ((concat-lines (&rest lines)
(mapconcat #'identity lines "\n")))
(let* ((stars (make-string level ?*)) (let* ((stars (make-string level ?*))
(args (and (fboundp symbol) (args (and (fboundp symbol)
(mapcar #'symbol-name (help-function-arglist symbol t)))) (mapcar #'symbol-name (help-function-arglist symbol t))))
@ -54,10 +52,7 @@
args " "))) args " ")))
(t (t
(format "%s =%s=\n" stars symbol)))) (format "%s =%s=\n" stars symbol))))
(after-heading (after-heading (format ":PROPERTIES:\n:CUSTOM_ID: %s\n:END:" symbol))
(concat-lines ":PROPERTIES:"
(format ":CUSTOM_ID: %s" symbol)
":END:"))
(body (or (cond ((fboundp symbol) (body (or (cond ((fboundp symbol)
(let ((doc-synth (car-safe (get symbol 'function-documentation)))) (let ((doc-synth (car-safe (get symbol 'function-documentation))))
(if (functionp doc-synth) (if (functionp doc-synth)
@ -96,10 +91,7 @@
(format "=%s=" name)))) (format "=%s=" name))))
body t)) body t))
;; output the paragraph ;; output the paragraph
;; (concat heading "\n" after-heading "\n" body)))
(concat-lines heading
after-heading
body))))
(defun yas--document-symbols (level &rest names-and-predicates) (defun yas--document-symbols (level &rest names-and-predicates)
(let ((sym-lists (make-vector (length names-and-predicates) nil)) (let ((sym-lists (make-vector (length names-and-predicates) nil))