GNU bug report logs - #9710
tiny extension to sort.el

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 9710 in the body.
You can then email your comments to 9710 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: dupayrat bertrand <bertrand.dupayrat <at> wanadoo.fr>
To: bug-gnu-emacs <at> gnu.org
Subject: tiny extension to sort.el
Date: Sun, 9 Oct 2011 09:12:24 +0200 (CEST)

;;
;; the snippet : "indirect value" how-to :
;; (defconst to-nil nil) <-- C-x e ;;i don't found such a canonic thing in emacs . 
;; 
;; (progn (setq var "testv" testv "hit") (eval(read var))) <-- C-x e
;; (progn (setq var "to-nil" testv "any-value") (eval(read var))) <-- C-X e
;;
;; _application_ : add an option reverse to sort-fields-1 this behind the scene .
;;
(defconst to-nil nil "to-nil := nil : invariant")
(defvar reverse-sort-field-var-name nil "see sort-fields-1") ;; add it to custom default value to-nil

(defun sort-fields-1 (field beg end startkeyfun endkeyfun) "sort-field-1 with direct/reverse feature"
(let ((tbl (syntax-table)))
(if (zerop field) (setq field 1))
(unwind-protect
(save-excursion
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(set-syntax-table sort-fields-syntax-table)
(sort-subr (eval (read reverse-sort-field-var-name)) ; the backward compatible (tiny) extension.
; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! and not "nil"
'forward-line 'end-of-line
startkeyfun endkeyfun)))
(set-syntax-table tbl)))))
;;

;;

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.