branch: externals/hyperbole
commit cede541e53ed03e326012a0d5826c60c2ee95b23
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>

    hui-select.el - Fix # in syntax-table to be punctuation
    
    This prevents it triggering in Markdown mode as a quote in front
    of an sexp (left over from inheritance from
    emacs-lisp-mode-syntax-table).
---
 ChangeLog     | 5 +++++
 hui-select.el | 6 ++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6e5c7169f7..e0b6371a9d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-09-09  Bob Weiner  <r...@gnu.org>
+
+* hui-select.el (hui-select-syntax-table): Fix that # was registering as
+    an opening quote to an sexp rather than punctuation.
+
 2024-09-08  Bob Weiner  <r...@gnu.org>
 
 * hui-mini.el (hui:menu-highlight-flag): Add this new customization.
diff --git a/hui-select.el b/hui-select.el
index 988d880de2..99793460ad 100644
--- a/hui-select.el
+++ b/hui-select.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Oct-96 at 02:25:27
-;; Last-Mod:      2-Sep-24 at 19:32:34 by Bob Weiner
+;; Last-Mod:      9-Sep-24 at 22:25:55 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -347,6 +347,9 @@ Used to include a final line when marking indented code.")
     (modify-syntax-entry ?\} "){" st)
     (modify-syntax-entry ?< "(>" st)
     (modify-syntax-entry ?> ")<" st)
+    ;; Next entry, e.g. for markdown mode, so does not register as a
+    ;; quote starting an sexp, as it does in emacs-lisp-mode
+    (modify-syntax-entry ?# "." st)
     st)
   "Syntax table to use when selecting delimited things.")
 
@@ -409,7 +412,6 @@ region (start . end) defining the boundaries of the thing 
at that position."
   :type '(repeat (cons (character :tag "Syntax-Char") function))
   :group 'hyperbole-commands)
 
-
 ;;; ************************************************************************
 ;;; Public functions
 ;;; ************************************************************************

Reply via email to