|
@@ -1440,7 +1440,7 @@ This function returns, destructively, the new list structure."
|
|
|
;; 1.1. Remove the item just created in structure.
|
|
;; 1.1. Remove the item just created in structure.
|
|
|
(setq struct (delete (assq new-item struct) struct))
|
|
(setq struct (delete (assq new-item struct) struct))
|
|
|
;; 1.2. Copy ITEM and any of its sub-items at NEW-ITEM.
|
|
;; 1.2. Copy ITEM and any of its sub-items at NEW-ITEM.
|
|
|
- (setq struct (sort*
|
|
|
|
|
|
|
+ (setq struct (sort
|
|
|
(append
|
|
(append
|
|
|
struct
|
|
struct
|
|
|
(mapcar (lambda (e)
|
|
(mapcar (lambda (e)
|