emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/boxquote 8655aee015 2/4: Re-justify some docstrings to red


From: ELPA Syncer
Subject: [nongnu] elpa/boxquote 8655aee015 2/4: Re-justify some docstrings to reduce line length
Date: Sat, 16 Dec 2023 03:59:26 -0500 (EST)

branch: elpa/boxquote
commit 8655aee0158e25dbc7a5534d92f0e0b7371f7904
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Re-justify some docstrings to reduce line length
---
 boxquote.el | 30 +++++++++++++++++-------------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/boxquote.el b/boxquote.el
index b005374e6e..4495d037a5 100644
--- a/boxquote.el
+++ b/boxquote.el
@@ -190,9 +190,9 @@ the article you'd copied the text from."
 (defun boxquote-points ()
   "Find the start and end points of a boxquote.
 
-If `point' is inside a boxquote then a cons is returned, the `car' is the
-start `point' and the `cdr' is the end `point'. NIL is returned if no
-boxquote is found."
+If `point' is inside a boxquote then a cons is returned, the
+`car' is the start `point' and the `cdr' is the end `point'.
+NIL is returned if no boxquote is found."
   (save-excursion
     (beginning-of-line)
     (let* ((re-top    (concat "^" (regexp-quote boxquote-top-corner)
@@ -257,8 +257,8 @@ boxquote is found."
 (defun boxquote-title (title)
   "Set the title of the current boxquote to TITLE.
 
-If TITLE is an empty string the title is removed. Note that the title will
-be formatted using `boxquote-title-format'."
+If TITLE is an empty string the title is removed. Note that
+the title will be formatted using `boxquote-title-format'."
   (interactive (list (read-from-minibuffer "Title: " (boxquote-get-title))))
   (save-excursion
     (save-restriction
@@ -309,8 +309,9 @@ be formatted using `boxquote-title-format'."
 (defun boxquote-insert-file (filename)
   "Insert the contents of a file, boxed with `boxquote-region'.
 
-If `boxquote-title-files' is non-nil the boxquote will be given a title that
-is the result of applying `boxquote-file-title-function' to FILENAME."
+If `boxquote-title-files' is non-nil the boxquote will be given a
+title that is the result of applying `boxquote-file-title-function'
+to FILENAME."
   (interactive "fInsert file: ")
   (insert (with-temp-buffer
             (insert-file-contents filename nil)
@@ -324,8 +325,9 @@ is the result of applying `boxquote-file-title-function' to 
FILENAME."
 (defun boxquote-insert-buffer (buffer)
   "Insert the contents of a buffer, boxes with `boxquote-region'.
 
-If `boxquote-title-buffers' is non-nil the boxquote will be given a title that
-is the result of applying `boxquote-buffer-title-function' to BUFFER."
+If `boxquote-title-buffers' is non-nil the boxquote will be given a
+title that is the result of applying `boxquote-buffer-title-function'
+to BUFFER."
   (interactive "bInsert Buffer: ")
   (boxquote-text
    (with-current-buffer buffer
@@ -337,8 +339,8 @@ is the result of applying `boxquote-buffer-title-function' 
to BUFFER."
 (defun boxquote-kill-ring-save ()
   "Like `kill-ring-save' but remembers a title if possible.
 
-The title is acquired by calling `boxquote-kill-ring-save-title'. The title
-will be used by `boxquote-yank'."
+The title is acquired by calling `boxquote-kill-ring-save-title'.
+The title will be used by `boxquote-yank'."
   (interactive)
   (call-interactively #'kill-ring-save)
   (setf (car kill-ring-yank-pointer)
@@ -431,8 +433,10 @@ VARIABLE is the variable to describe."
 (defun boxquote-describe-key (key)
   "Call `describe-key' on KEY and boxquote the output into the current buffer.
 
-If the call to this command is prefixed with \\[universal-argument] you will 
also be
-prompted for a buffer. The key definition used will be taken from that buffer."
+If the call to this command is prefixed with \
+\\[universal-argument] you will also be
+prompted for a buffer. The key definition used will be taken from
+that buffer."
   (interactive "kDescribe key: ")
   (let ((from-buffer (if current-prefix-arg
                          (read-buffer "Buffer: " (current-buffer) t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]