From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: dupayrat bertrand Newsgroups: gmane.emacs.bugs Subject: bug#9710: tiny extension to sort.el Date: Sun, 9 Oct 2011 09:12:24 +0200 (CEST) Message-ID: <30745713.35594.1318144344742.JavaMail.www@wwinf1k19> Reply-To: dupayrat bertrand NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1318184559 24008 80.91.229.12 (9 Oct 2011 18:22:39 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 9 Oct 2011 18:22:39 +0000 (UTC) To: 9710@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Oct 09 20:22:35 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RCy1C-0002d9-LC for geb-bug-gnu-emacs@m.gmane.org; Sun, 09 Oct 2011 20:22:34 +0200 Original-Received: from localhost ([::1]:54658 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RCy1C-0005MI-2p for geb-bug-gnu-emacs@m.gmane.org; Sun, 09 Oct 2011 14:22:34 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:39110) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RCxyh-0005Ba-TP for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 14:20:00 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RCxyd-00012M-6d for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 14:19:59 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:36299) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RCxyd-00012I-4Z for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 14:19:55 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RCxyj-0006kd-On for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 14:20:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: dupayrat bertrand Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 09 Oct 2011 18:20:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 9710 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.131818435225879 (code B ref -1); Sun, 09 Oct 2011 18:20:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 9 Oct 2011 18:19:12 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RCxxv-0006jL-R5 for submit@debbugs.gnu.org; Sun, 09 Oct 2011 14:19:12 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RCnYu-0007Ei-G3 for submit@debbugs.gnu.org; Sun, 09 Oct 2011 03:12:41 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RCnYk-0006R3-Ce for submit@debbugs.gnu.org; Sun, 09 Oct 2011 03:12:31 -0400 Original-Received: from lists.gnu.org ([140.186.70.17]:49603) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RCnYk-0006Qz-BE for submit@debbugs.gnu.org; Sun, 09 Oct 2011 03:12:30 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:56906) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RCnYj-0007ID-9z for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 03:12:30 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RCnYi-0006Qn-EH for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 03:12:29 -0400 Original-Received: from smtp08.smtpout.orange.fr ([80.12.242.130]:54964 helo=smtp.smtpout.orange.fr) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RCnYi-0006QY-50 for bug-gnu-emacs@gnu.org; Sun, 09 Oct 2011 03:12:28 -0400 Original-Received: from wwinf1k19 ([10.223.65.63]) by mwinf5d67 with ME id iXCQ1h0091MtLRm03XCQn0; Sun, 09 Oct 2011 09:12:24 +0200 X-ME-engine: default X-Originating-IP: [77.247.181.163] X-WUM-FROM: |~| X-WUM-TO: |~| X-WUM-REPLYTO: |~| X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Mailman-Approved-At: Sun, 09 Oct 2011 14:19:09 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Sun, 09 Oct 2011 14:20:01 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-Mailman-Approved-At: Sun, 09 Oct 2011 14:22:30 -0400 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:52456 Archived-At: ;; ;; 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))))) ;; ;;