From mboxrd@z Thu Jan 1 00:00:00 1970 From: Paul Rudin Subject: Re: list items not treated as such. Date: Fri, 04 Oct 2013 19:47:19 +0100 Message-ID: <874n8w50w8.fsf@rudin.co.uk> References: <87txh3v5d6.fsf@rudin.co.uk> <524877EE.3030002@toel.it> <87pprrv47y.fsf@rudin.co.uk> <5249A133.1070703@toel.it> <874n92xo43.fsf@rudin.co.uk> <877gdx4hy8.fsf@rudin.co.uk> <87fvsh5nqd.fsf@rudin.co.uk> <87li298013.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Nicolas Goaziou writes: > Hello, > > Paul Rudin writes: > >> Paul Rudin writes: >> >> (about lists) >> >> Here is a test for this problem. Notice that if you change the "a)" to "1." >> - for example - the test passes. So this is something specific to >> alphabetically labelled list items. >> >> >> (ert-deftest org-list-item-test () >> (with-temp-buffer >> (org-mode) >> (let ((org-allow-alphabetical t) >> (fill-column 70)) >> (insert "1. some stuff\n" >> " a) an alphabetic list item with text longer that the current fill column so that it gets wrapped by fill-paragraph") >> (fill-paragraph)t >> (should (not (equal (org-in-item-p) 1)))))) > > Quoting `org-list-allow-alphabetical' docstring: > > This variable needs to be set before org.el is loaded. If you > need to make a change while Emacs is running, use the customize > interface or run the following code, where VALUE stands for the > new value of the variable, after updating it: > > (when (featurep 'org-element) (load "org-element" t t)) > > So let-binding it cannot work. Aha. So how do you test things like that? This seems to be OK. Is it? (ert-deftest org-list-item-test () (with-temp-buffer (org-mode) (let ((fill-column 70)) (custom-set-variables '(org-list-allow-alphabetical t)) (insert "1. some stuff\n" " a) an alphabetic list item with text longer that the current fill column so that it gets wrapped by fill-paragraph") (fill-paragraph) (should (not (equal (org-in-item-p) 1)))))) This also explains what I was seeing, as I was setting it in my init file after org was loaded. I was lulled into a false sense of security because some aspects of alphabetical list label work in this circumstance. All I need now is roman numeral list labels too :)