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

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

[nongnu] elpa/doc-show-inline 2ddb1c70f9 02/12: Display blank space betw


From: ELPA Syncer
Subject: [nongnu] elpa/doc-show-inline 2ddb1c70f9 02/12: Display blank space between the symbol and the comment
Date: Thu, 7 Jul 2022 11:58:56 -0400 (EDT)

branch: elpa/doc-show-inline
commit 2ddb1c70f9f3b430f7b3e50fec1e3ef28ef3bbd6
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Display blank space between the symbol and the comment
    
    This helps to visualize comments that may represent categories or 
descriptions of a group of symbols.
---
 changelog.rst      | 10 ++++++++++
 doc-show-inline.el | 13 +++++--------
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/changelog.rst b/changelog.rst
new file mode 100644
index 0000000000..22896af405
--- /dev/null
+++ b/changelog.rst
@@ -0,0 +1,10 @@
+
+##########
+Change Log
+##########
+
+
+- 2021-12-08
+  - Keep blank space between the symbol and comments.
+
+    This helps to visualize comments that may represent categories or 
descriptions of a group of symbols.
diff --git a/doc-show-inline.el b/doc-show-inline.el
index 4bf8597124..866238b365 100644
--- a/doc-show-inline.el
+++ b/doc-show-inline.el
@@ -277,16 +277,13 @@ the point should not be moved by this function."
 
 (defun doc-show-inline-extract-doc-default (sym)
   "Extract doc-string for SYM."
-  (let
-    (
-      ;; There may be blank lines between the comment beginning.
-      (pos-end
-        (progn
-          (beginning-of-line)
-          (skip-chars-backward " \t\n" (point-min))
-          (point))))
 
+  ;; There may be blank lines between the comment beginning,
+  ;; include these since it's useful to display the the space to know if the 
comment
+  ;; was directly above the text or not.
+  (let ((pos-end (max (point-min) (1- (line-beginning-position)))))
     ;; Move one character into the comment.
+    (goto-char pos-end)
     (cond
       ((forward-comment -1)
         (let



reply via email to

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