procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Normalize sort-fields-syntax-table definition

Browse source 
* lisp/sort.el (sort-fields-syntax-table): Normalize definition.
This commit is contained in:
Stefan Kangas 2023-09-24 08:05:49 +02:00
parent 12fe4741b6
commit 1cdc5cdc56
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/sort.el
View file

@ -257,18 +257,15 @@ the sort order."
(lambda () (skip-chars-forward "\n"))
'forward-page))))
(defvar sort-fields-syntax-table nil)
(if sort-fields-syntax-table nil
(let ((table (make-syntax-table))
(i 0))
(while (< i 256)
(modify-syntax-entry i "w" table)
(setq i (1+ i)))
(defvar sort-fields-syntax-table
(let ((table (make-syntax-table)))
(dotimes (i 256)
(modify-syntax-entry i "w" table))
(modify-syntax-entry ?\s " " table)
(modify-syntax-entry ?\t " " table)
(modify-syntax-entry ?\n " " table)
(modify-syntax-entry ?\. "_" table) ; for floating pt. numbers. -wsr
(setq sort-fields-syntax-table table)))
table))
(defcustom sort-numeric-base 10
"The default base used by `sort-numeric-fields'."