Commit 645ca9cf authored by Juri Linkov's avatar Juri Linkov

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'.
parent df754f66
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'
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment