how 'add-to-ordered-list' use

how 'add-to-ordered-list' use

[a machine of awareness]

I read elisp manual.I use 'add-to-ordered-list',
and don't understand.Please look example:
(setq foo '(1 6 9 10 3 4))
(1 6 9 10 3 4)
(add-to-ordered-list 'foo 10)
(6 9 1 10 3 4)

Why order is changed?
From (1 6 9 10 3 4) to (6 9 1 10 3 4)?
-- 
a machine of awareness
 Debian、Emacs+Gnus

Re: how 'add-to-ordered-list' use

[Tim Landscheidt]

(anonymous) wrote:

> I read elisp manual.I use 'add-to-ordered-list',
> and don't understand.Please look example:
> (setq foo '(1 6 9 10 3 4))
> (1 6 9 10 3 4)
> (add-to-ordered-list 'foo 10)
> (6 9 1 10 3 4)

> Why order is changed?
> From (1 6 9 10 3 4) to (6 9 1 10 3 4)?

I can't reproduce that:

| ELISP> (setq foo '(1 6 9 10 3 4))
| (1 6 9 10 3 4)

| ELISP> (add-to-ordered-list 'foo 10)
| (1 6 9 10 3 4)

Tim

Re: how 'add-to-ordered-list' use

[S Boucher]

[-- Attachment #1: Type: text/plain, Size: 823 bytes --]

You should provide your version of emacs.  I don't see what you see.


(setq foo '(1 6 9 10 3 4))
(1 6 9 10 3 4)

(add-to-ordered-list 'foo 10)
(1 6 9 10 3 4)

(emacs-version)
"GNU Emacs 23.3.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.22.0)
 of 2011-05-31 on "



>________________________________
>From: a machine of awareness <machine.of.awareness@gmail.com>
>To: help-gnu-emacs@gnu.org
>Sent: Monday, October 17, 2011 10:17:37 AM
>Subject: how 'add-to-ordered-list' use
>
>I read elisp manual.I use 'add-to-ordered-list',
>and don't understand.Please look example:
>(setq foo '(1 6 9 10 3 4))
>(1 6 9 10 3 4)
>(add-to-ordered-list 'foo 10)
>(6 9 1 10 3 4)
>
>Why order is changed?
>From (1 6 9 10 3 4) to (6 9 1 10 3 4)?
>-- 
>a machine of awareness
>Debian、Emacs+Gnus
>
>
>
>
>

[-- Attachment #2: Type: text/html, Size: 1588 bytes --]

Re: how 'add-to-ordered-list' use

[a machine of awareness]

S Boucher <stbya@yahoo.com> writes:

> You should provide your version of emacs.  I don't see what you see.
>
> (setq foo '(1 6 9 10 3 4))
> (1 6 9 10 3 4)
>
> (add-to-ordered-list 'foo 10)
> (1 6 9 10 3 4)
>
> (emacs-version)
> "GNU Emacs 23.3.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.22.0)
>  of 2011-05-31 on "
I emacs vesion:
(emacs-version)
"GNU Emacs 23.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.20.1)
 of 2010-12-12 on brahms, modified by Debian"

-- 
a machine of awareness
 Debian、Emacs+Gnus

Re: how 'add-to-ordered-list' use

[a machine of awareness]

S Boucher <stbya@yahoo.com> writes:
I rerun it,result is no change.

(progn
  (setq foo '(1 6 9 10 3 4))
  (add-to-ordered-list1 'foo 10)
)
(9 1 6 10 3 4)

Thanks.
> You should provide your version of emacs.  I don't see what you see.
>
> (setq foo '(1 6 9 10 3 4))
> (1 6 9 10 3 4)
>
> (add-to-ordered-list 'foo 10)
> (1 6 9 10 3 4)
>
> (emacs-version)
> "GNU Emacs 23.3.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.22.0)
>  of 2011-05-31 on "
-- 
a machine of awareness
 Debian、Emacs+Gnus

Re: how 'add-to-ordered-list' use

[a machine of awareness]

a machine of awareness <machine.of.awareness@gmail.com> writes:

> I read elisp manual.I use 'add-to-ordered-list',
> and don't understand.Please look example:
> (setq foo '(1 6 9 10 3 4))
> (1 6 9 10 3 4)
> (add-to-ordered-list 'foo 10)
> (6 9 1 10 3 4)
>
> Why order is changed?
> From (1 6 9 10 3 4) to (6 9 1 10 3 4)?
add-to-ordered-list source is:
(defun add-to-ordered-list (list-var element &optional order)
  "..."
  (let ((ordering (get list-var 'list-order)))
    (unless ordering
      (put list-var 'list-order
           (setq ordering (make-hash-table :weakness 'key :test 'eq))))
    (when order
      (puthash element (and (numberp order) order) ordering))
    (unless (memq element (symbol-value list-var))
      (set list-var (cons element (symbol-value list-var))))
    (set list-var (sort (symbol-value list-var)
			(lambda (a b)
			  (let ((oa (gethash a ordering))
				(ob (gethash b ordering)))
			    (if (and oa ob)
				(< oa ob)
			      oa)))))))

I think the main part is:
    (set list-var (sort (symbol-value list-var)
			(lambda (a b)
			  (let ((oa (gethash a ordering))
				(ob (gethash b ordering)))
			    (if (and oa ob)
				(< oa ob)
			      oa)))))))
I single step run,result is no change.
But I don't understand.
-- 
a machine of awareness
 Debian、Emacs+Gnus

Re: how 'add-to-ordered-list' use

[a machine of awareness]

a machine of awareness <machine.of.awareness@gmail.com> writes:

> I read elisp manual.I use 'add-to-ordered-list',
> and don't understand.Please look example:
> (setq foo '(1 6 9 10 3 4))
> (1 6 9 10 3 4)
> (add-to-ordered-list 'foo 10)
> (6 9 1 10 3 4)
>
> Why order is changed?
> From (1 6 9 10 3 4) to (6 9 1 10 3 4)?
I run another,but is right?!
(progn
  (setq foo '(1 6 8 10 3 4))
  (add-to-ordered-list1 'foo 10)
)
(1 6 8 10 3 4)
Is a elisp bug?
-- 
a machine of awareness
 Debian、Emacs+Gnus

Re: how 'add-to-ordered-list' use

[a machine of awareness]

a machine of awareness <machine.of.awareness@gmail.com> writes:

> I read elisp manual.I use 'add-to-ordered-list',
> and don't understand.Please look example:
> (setq foo '(1 6 9 10 3 4))
> (1 6 9 10 3 4)
> (add-to-ordered-list 'foo 10)
> (6 9 1 10 3 4)
>
> Why order is changed?
> From (1 6 9 10 3 4) to (6 9 1 10 3 4)?
I know, I am wrong.
Because before run > (add-to-ordered-list 'foo 10) <,
(get 'foo 'list-order) ==> 
#s(hash-table size 65 test eq ... data (9 0)),
it lead to problem!

-- 
a machine of awareness
 Debian、Emacs+Gnus