> Fixed to cleanup tag stack also: > > (defun gtags-kill-buffers () > "Kill all GTAGS buffers." > (interactive) > (mapcar (function (lambda (buffer) > (let ((bname (buffer-name buffer))) > (if (string-match "^\*GTAGS" bname) > (kill-buffer buffer))))) > (buffer-list)) > (setq gtags-buffer-stack nil > gtags-point-stack nil > gtags-current-buffer nil))
It seems that cleaning the entire stack is a little violent. Don't you want to clear 'GTAGS SELECT MODE' buffers alone? -- Shigio YAMAGUCHI <[email protected]> PGP fingerprint: D1CB 0B89 B346 4AB6 5663 C4B6 3CA5 BBB3 57BE DDA3 _______________________________________________ Bug-global mailing list [email protected] http://lists.gnu.org/mailman/listinfo/bug-global
