From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Boruch Baum Newsgroups: gmane.emacs.bugs Subject: bug#29759: 25.2 Updated Code Date: Mon, 18 Dec 2017 10:41:02 -0500 Message-ID: <20171218154101.sobgpnm6cvxpfk32@E15-2016.optimum.net> References: <20171217213114.mti6zqnlsibvaqj7@E15-2016.optimum.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="f3q2cdfu3tqmua7r" Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1513611622 14916 195.159.176.226 (18 Dec 2017 15:40:22 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 18 Dec 2017 15:40:22 +0000 (UTC) User-Agent: NeoMutt/20171208 To: 29759@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Dec 18 16:40:18 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eQxWa-0003FO-Sx for geb-bug-gnu-emacs@m.gmane.org; Mon, 18 Dec 2017 16:40:17 +0100 Original-Received: from localhost ([::1]:49487 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eQxYW-0001Xk-4D for geb-bug-gnu-emacs@m.gmane.org; Mon, 18 Dec 2017 10:42:16 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48655) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eQxYM-0001VZ-AV for bug-gnu-emacs@gnu.org; Mon, 18 Dec 2017 10:42:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eQxYI-0000xH-88 for bug-gnu-emacs@gnu.org; Mon, 18 Dec 2017 10:42:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:60283) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eQxYI-0000we-2n for bug-gnu-emacs@gnu.org; Mon, 18 Dec 2017 10:42:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eQxYH-0002U2-Le for bug-gnu-emacs@gnu.org; Mon, 18 Dec 2017 10:42:01 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: <20171217213114.mti6zqnlsibvaqj7@E15-2016.optimum.net> Resent-From: Boruch Baum Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 18 Dec 2017 15:42:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 29759 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 29759-submit@debbugs.gnu.org id=B29759.15136116769496 (code B ref 29759); Mon, 18 Dec 2017 15:42:01 +0000 Original-Received: (at 29759) by debbugs.gnu.org; 18 Dec 2017 15:41:16 +0000 Original-Received: from localhost ([127.0.0.1]:40731 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eQxXX-0002T6-UH for submit@debbugs.gnu.org; Mon, 18 Dec 2017 10:41:16 -0500 Original-Received: from mout.gmx.net ([212.227.17.20]:56042) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eQxXW-0002Sr-Fc for 29759@debbugs.gnu.org; Mon, 18 Dec 2017 10:41:15 -0500 Original-Received: from E15-2016.optimum.net ([108.6.168.221]) by mail.gmx.com (mrgmx102 [212.227.17.174]) with ESMTPSA (Nemesis) id 0Lr46Z-1euoRF2IxH-00ea5F for <29759@debbugs.gnu.org>; Mon, 18 Dec 2017 16:41:07 +0100 Content-Disposition: inline X-Provags-ID: V03:K0:7H/ucR/07szVpCpJ0MKKjwtgKL8+UCJNZZ4ttjeyh5SDD0WxBSR XJ0NXYDI7ITflpU3jt5gYoMjT1ZgfJbV+F8Q4sqA9tllC9XE8fEd3iBQqFwtWRlRJhxQT3/ iI3OFjRHzE0IS2NG2eZociS71c7gTHb2JQ+etM6t22gxkbbwNgfTZNZLrRgNkND774swz4l Y17kT8DryFTEy72KMaLtQ== X-UI-Out-Filterresults: notjunk:1;V01:K0:XeM8kYqe0lU=:q1FskkJXJysAcJZeNuycTr iYI+TXNg0Y/qp+ZTwLcOsnKtpb76Ae+1BGeUqjS2ixGcP6dTwzgWempi6PSy1qxz2AnFLXCcA cPEa/1JLJ4+XJMyPujOM1/UZ3oZDGnvc0xk3nSvrOjbWq4oBhgVsHndYQwm1AIJHpSGDtQyf+ 0GkwRKAmKlskdEIB5plrjE3VbN++v8XrS/5Nk53npSLT+tPhGIAXCmVn96CdWzGG9THIgGBwW XA2DezJAuHNqn7qrawtm31J2FQWKJpXUXxbFacBeEX4PHoT4I7EEwgYmW4hLhDkdYHq7EFvkE lV8h3BO9j7I2NPTmnkxFEB35KFJQY/Adqs5o0unZeJLejYiQoF37vZFXhCtC9e2+71GWPN/a7 EwhFmO295dMxL/cGOsHTqt8tqoz5NUKqGf2zt/U3vKMcMT8IMt4q8BVb05hHDliGOfuCoNg/5 opH7f93rGUs555usIxz6HkvnDOAxb77gV2TTqFPQjjM7kEepdIe1qrPkHC0lVM4qTvJbF4UY7 O/L2L+aKwWAwQaNwBOOYkVtQ113b0W55pQU3d5Qqi2sEUdLZwAO/2qw7YO/dqO86L3o+SfjNY Ug60PFnNeLu3XazbmIR2AlIzVCdvmN3+/zqbbbAPcTVnpytuhunuFmyP3Azl3PUGuHBN4o5L5 aHpP3Ez/AmK/u1PxZDARqjlyPf/fW5nQWfT0UDYSRcrRPHCYX5P91fIYeIzNvUGz30gp1hg6H GTNPhNFPeYQ136tEBBGzafbmB4w3+DZahoUnaSsQsq+8Bt+/qAE2VLs6EaGJfAirgvN5U2ha X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 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" Xref: news.gmane.org gmane.emacs.bugs:141216 Archived-At: --f3q2cdfu3tqmua7r Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Thie code update renames the style to 'hebrew-numeric', adds a second (rarely used) style, and comments a failed attempt to improve the style regex. -- hkp://keys.gnupg.net CA45 09B5 5351 7C11 A9D1 7286 0036 9E45 1595 8BC0 --f3q2cdfu3tqmua7r Content-Type: text/plain; charset=utf-8 Content-Description: 25.2 Hebrew footnote styles: Updated Code Content-Disposition: attachment; filename="footnote-hebrew-styles.el" Content-Transfer-Encoding: 8bit (defconst footnote-hebrew-numeric-regex "[אבגדהוזחטיכלמנסעפצקרשת']+") ; (defconst footnote-hebrew-numeric-regex "\\([אבגדהוזחט]'\\)?\\(ת\\)?\\(ת\\)?\\([קרשת]\\)?\\([טיכלמנסעפצ]\\)?\\([אבגדהוזחט]\\)?") (defconst footnote-hebrew-numeric '( ("א" "ב" "ג" "ד" "ה" "ו" "ז" "ח" "ט") ("י" "כ" "ל" "מ" "נ" "ס" "ע" "פ" "צ") ("ק" "ר" "ש" "ת" "תק" "תר"" תש" "תת" "תתק"))) (defun Footnote-hebrew-numeric(n) "Supports 9999 footnotes, then rolls over." (let* ((n (+ (mod n 10000) (/ n 10000))) (thousands (/ n 1000)) (hundreds (/ (mod n 1000) 100)) (tens (/ (mod n 100) 10)) (units (mod n 10)) (special (if (not (= tens 1)) nil (or (when (= units 5) "טו") (when (= units 6) "טז"))))) (concat (when (/= 0 thousands) (concat (nth (1- thousands) (nth 0 footnote-hebrew-numeric)) "'")) (when (/= 0 hundreds) (nth (1- hundreds) (nth 2 footnote-hebrew-numeric))) (if special special (concat (when (/= 0 tens) (nth (1- tens) (nth 1 footnote-hebrew-numeric))) (when (/= 0 units) (nth (1- units) (nth 0 footnote-hebrew-numeric)))))))) (add-to-list 'footnote-style-alist `(hebrew-numeric Footnote-hebrew-numeric ,footnote-hebrew-numeric-regex) t) (defconst footnote-hebrew-symbolic-regex "[אבגדהוזחטיכלמנסעפצקרשת]") (defconst footnote-hebrew-symbolic '( "א" "ב" "ג" "ד" "ה" "ו" "ז" "ח" "ט" "י" "כ" "ל" "מ" "נ" "ס" "ע" "פ" "צ" "ק" "ר" "ש" "ת")) (defun Footnote-hebrew-symbolic(n) "Only 22 elements, per the style of eg. 'פירוש שפתי חכמים על רש\"י'. Proceeds from `י' to `כ', from `צ' to `ק'. After `ת', rolls over to `א'." (nth (mod (1- n) 22) footnote-hebrew-symbolic)) (add-to-list 'footnote-style-alist `(hebrew-symbolic Footnote-hebrew-symbolic ,footnote-hebrew-symbolic-regex) t) --f3q2cdfu3tqmua7r--