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

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

[nongnu] elpa/markdown-mode f3ee31ffc2 2/2: Merge pull request #772 from


From: ELPA Syncer
Subject: [nongnu] elpa/markdown-mode f3ee31ffc2 2/2: Merge pull request #772 from jrblevin/issue-771
Date: Wed, 7 Jun 2023 01:02:06 -0400 (EDT)

branch: elpa/markdown-mode
commit f3ee31ffc28b3d8e86da2208c87eac75fd6e6eae
Merge: 28a725b13d df1fe47a6d
Author: Shohei YOSHIDA <syohex@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #772 from jrblevin/issue-771
    
    Improve markdown-insert-table prompt and use better function
---
 CHANGES.md       | 2 ++
 markdown-mode.el | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index d23deccae1..5cd72d3b60 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -23,6 +23,7 @@
       [GH-743][]
     - Improve horizontal rule rendering in `markdown-view-mode` [GH-753][]
     - Don't load major-mode if it isn't in `auto-mode-alist`[GH-761][]
+    - Improve `markdown-insert-table` prompt message [GH-771][]
 
 *   Bug fixes:
     - Don't override table faces by link faces [GH-716][]
@@ -48,6 +49,7 @@
   [gh-762]: https://github.com/jrblevin/markdown-mode/issues/762
   [gh-766]: https://github.com/jrblevin/markdown-mode/issues/766
   [gh-768]: https://github.com/jrblevin/markdown-mode/pull/768
+  [gh-771]: https://github.com/jrblevin/markdown-mode/issues/771
 
 
 # Markdown Mode 2.5
diff --git a/markdown-mode.el b/markdown-mode.el
index 2a89d793a5..6cac89bf86 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -9734,8 +9734,8 @@ spaces, or alternatively a TAB should be used as the 
separator."
 Optional arguments ROWS, COLUMNS, and ALIGN specify number of
 rows and columns and the column alignment."
   (interactive)
-  (let* ((rows (or rows (string-to-number (read-string "Row size: "))))
-         (columns (or columns (string-to-number (read-string "Column size: 
"))))
+  (let* ((rows (or rows (read-number "Number of Rows: ")))
+         (columns (or columns (read-number "Number of Columns: ")))
          (align (or align (read-string "Alignment ([l]eft, [r]ight, [c]enter, 
or RET for default): ")))
          (align (cond ((equal align "l") ":--")
                       ((equal align "r") "--:")



reply via email to

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