procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace delete' with remove' in info.el.

Browse source 
* 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'.
This commit is contained in:
Juri Linkov 2011-11-19 22:14:56 +02:00
parent df754f6672
commit 645ca9cf37
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

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

6
lisp/info.el
View file

@ -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))))