martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Improve docstrings auto-generated by `define-minor-mode'"

Browse Source 
This reverts commit a397fa06d1.
The original change breaks bootstrapping because of a circular dependency.
This commit is contained in:
Juanma Barranquero
2019-10-04 14:02:13 +02:00
parent d8c2da46e7
commit 4df55f8f2f
1 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/emacs-lisp/easy-mmode.el
View File

@@ -95,17 +95,11 @@ if ARG is `toggle'; disable the mode otherwise.")
\\{%s}" mode-pretty-name keymap-sym))))
(if (string-match-p "\\bARG\\b" doc)
doc
(let* ((fill-prefix nil)
(docstring-fc (bound-and-true-p emacs-lisp-docstring-fill-column))
(fill-column (if (integerp docstring-fc) docstring-fc 65))
(argdoc (format easy-mmode--arg-docstring
mode-pretty-name)))
(with-temp-buffer
(insert (replace-regexp-in-string "\\(\n\n\\|\\'\\)\\(.\\|\n\\)*\\'"
(concat argdoc "\\1")
doc nil nil 1))
(fill-region (point-min) (point-max) 'left t)
(buffer-string))))))
(let ((argdoc (format easy-mmode--arg-docstring
mode-pretty-name)))
(replace-regexp-in-string "\\(\n\n\\|\\'\\)\\(.\\|\n\\)*\\'"
(concat argdoc "\\1")
doc nil nil 1)))))
;;;###autoload
(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)