diff options
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 6d5b5141aaf..5e7b29eddf8 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -95,17 +95,11 @@ if ARG is `toggle'; disable the mode otherwise.") | |||
| 95 | \\{%s}" mode-pretty-name keymap-sym)))) | 95 | \\{%s}" mode-pretty-name keymap-sym)))) |
| 96 | (if (string-match-p "\\bARG\\b" doc) | 96 | (if (string-match-p "\\bARG\\b" doc) |
| 97 | doc | 97 | doc |
| 98 | (let* ((fill-prefix nil) | 98 | (let ((argdoc (format easy-mmode--arg-docstring |
| 99 | (docstring-fc (bound-and-true-p emacs-lisp-docstring-fill-column)) | 99 | mode-pretty-name))) |
| 100 | (fill-column (if (integerp docstring-fc) docstring-fc 65)) | 100 | (replace-regexp-in-string "\\(\n\n\\|\\'\\)\\(.\\|\n\\)*\\'" |
| 101 | (argdoc (format easy-mmode--arg-docstring | 101 | (concat argdoc "\\1") |
| 102 | mode-pretty-name))) | 102 | doc nil nil 1))))) |
| 103 | (with-temp-buffer | ||
| 104 | (insert (replace-regexp-in-string "\\(\n\n\\|\\'\\)\\(.\\|\n\\)*\\'" | ||
| 105 | (concat argdoc "\\1") | ||
| 106 | doc nil nil 1)) | ||
| 107 | (fill-region (point-min) (point-max) 'left t) | ||
| 108 | (buffer-string)))))) | ||
| 109 | 103 | ||
| 110 | ;;;###autoload | 104 | ;;;###autoload |
| 111 | (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) | 105 | (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) |