从当前输入历史中弹出最后一个命令

Question

如何以编程方式从comint-input-history弹出最后一个命令？

我试过(pop (cdr (cdr comint-input-ring)))之类的东西，但不起作用。

它似乎是一个数组，但我也被(aref (cdr (cdr comint-input-ring)) 0) 卡住了

Answer 1

comint-input-ring是一个环，因此应该使用环函数进行操作。而且，我不确定你的意思是"最后"还是"最后"。

如果你想删除最旧的（FIFO），你可以做：

(ring-remove comint-input-ring)

如果你想删除最新的（LIFO），你可以做：

(ring-remove comint-input-ring (ring-size comint-input-ring))