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

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

[nongnu] elpa/markdown-mode df1fe47a6d 1/2: Improve markdown-insert-tabl


From: ELPA Syncer
Subject: [nongnu] elpa/markdown-mode df1fe47a6d 1/2: Improve markdown-insert-table prompt and use better function
Date: Wed, 7 Jun 2023 01:02:06 -0400 (EDT)

branch: elpa/markdown-mode
commit df1fe47a6db856f84bf28e6cee15f2df49e1e56f
Author: Shohei YOSHIDA <syohex@gmail.com>
Commit: Shohei YOSHIDA <syohex@gmail.com>

    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]