[Emacs-diffs] /srv/bzr/emacs/trunk r106433: Replace `delete' with `remove' in info.el.

[Juri Linkov]

------------------------------------------------------------
revno: 106433
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2011-11-19 22:14:56 +0200
message:
  Replace `delete' with `remove' in info.el.
  
  * lisp/info.el (Info-find-node-2, Info-select-node, Info-history-find-node):
  Use non-destructive `remove' instead of `delete' because
  `Info-history-list' stored to `Info-isearch-initial-history-list' in
  `Info-isearch-start' might need to be restored in `Info-isearch-end'.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-19 19:59:37 +0000
+++ b/lisp/ChangeLog    2011-11-19 20:14:56 +0000
@@ -1,5 +1,12 @@
 2011-11-19  Juri Linkov  <address@hidden>
 
+       * info.el (Info-find-node-2, Info-select-node, Info-history-find-node):
+       Use non-destructive `remove' instead of `delete' because
+       `Info-history-list' stored to `Info-isearch-initial-history-list' in
+       `Info-isearch-start' might need to be restored in `Info-isearch-end'.
+
+2011-11-19  Juri Linkov  <address@hidden>
+
        * isearch.el (isearch-edit-string): Let-bind `history-add-new-input'
        to nil instead of binding `search-ring' and `regexp-search-ring'.
        (Bug#9185)

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2011-11-14 23:59:56 +0000
+++ b/lisp/info.el      2011-11-19 20:14:56 +0000
@@ -1087,7 +1087,7 @@
                      ;; Add anchors to the history too
                      (setq Info-history-list
                            (cons new-history
-                                 (delete new-history Info-history-list))))
+                                 (remove new-history Info-history-list))))
                    (goto-char anchorpos))
                   ((numberp Info-point-loc)
                    (forward-line (- Info-point-loc 2))
@@ -1514,7 +1514,7 @@
        ;; Add a new unique history item to full history list
        (let ((new-history (list Info-current-file Info-current-node)))
          (setq Info-history-list
-               (cons new-history (delete new-history Info-history-list)))
+               (cons new-history (remove new-history Info-history-list)))
          (setq Info-history-forward nil))
        (if (not (eq Info-fontify-maximum-menu-size nil))
             (Info-fontify-node))
@@ -2153,7 +2153,7 @@
   (insert "Recently Visited Nodes\n")
   (insert "**********************\n\n")
   (insert "* Menu:\n\n")
-  (let ((hl (delete '("*History*" "Top") Info-history-list)))
+  (let ((hl (remove '("*History*" "Top") Info-history-list)))
     (while hl
       (let ((file (nth 0 (car hl)))
            (node (nth 1 (car hl))))