Lines Matching defs:actions
34 ;; actions, and then calling these functions when the user pushes the
39 ;; `gnus-undo-actions' list, where each element is a list of functions
60 "The number of undoable actions recorded."
76 (defvar gnus-undo-actions nil)
99 (cons "Undo" 'gnus-undo-actions)
110 (set (make-local-variable 'gnus-undo-actions) nil)
159 (push (list function) gnus-undo-actions)
162 (gnus-undo-actions
163 (setcar gnus-undo-actions (cons function (car gnus-undo-actions))))
166 (setq gnus-undo-actions (list (list function)))))
168 (let ((next (nthcdr gnus-undo-limit gnus-undo-actions)))
184 (setq gnus-undo-last gnus-undo-actions))
188 (setq gnus-undo-actions (delq action gnus-undo-actions))