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'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46245ba6090fa8aa56fbb9e4ceb9109cf2f4b559..fcfdb066d5cca4845b3e3cce57b097cf5f4b9232 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-11-19  Juri Linkov  <juri@jurta.org>
+
+       * 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  <juri@jurta.org>
 
        * isearch.el (isearch-edit-string): Let-bind `history-add-new-input'

diff --git a/lisp/info.el b/lisp/info.el
index 0148ee544f903e2bf1cff0a5dd59392b598dbd20..12639478d8e3d4346fa42b35e61dde6a0d789c47 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1087,7 +1087,7 @@ a case-insensitive match is tried."
                      ;; 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 @@ escaped (\\\",\\\\)."
        ;; 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 @@ If SAME-FILE is non-nil, do not move to a different Info file."
   (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))))