Lines Matching +defs:save +defs:buffer
79 ;;; Text buffer operations
107 "Set mark at mouse cursor, and put region in stuff buffer."
130 and put the region in the stuff buffer."
162 The resulting region is put in the sun-window stuff buffer.
204 (save-excursion
209 (defun mouse-save-thing (window x y &optional quiet)
217 (defun mouse-save-thing-there (window x y &optional quiet)
221 (save-excursion
222 (mouse-save-thing window x y quiet))))
232 (mouse-save-thing-there window x y t)
259 (defun mouse-save/delete/yank (&optional window x y)
260 "Context sensitive save/delete/yank.
315 ;;; gives an "End of buffer" error, and then scrolls. The
331 ;; goto end of buffer. We check for this special case
395 ("Quit" save-buffers-kill-emacs))
402 ("Previous Buffer" mouse-select-previous-buffer *menu-window*)
403 ("Save Buffers" save-some-buffers)
422 (defun mouse-select-previous-buffer (window)
423 "Switch buffer in mouse window to most recently selected buffer."
424 (eval-in-window window (switch-to-buffer (other-buffer))))
456 "Calls Buffer-menu-buffer from mouse click."
457 (save-window-excursion
460 (Buffer-menu-buffer t)))
462 (defun mouse-buffer-bury (w x y)
463 "Bury the indicated buffer."
464 (bury-buffer (Buffer-at-mouse w x y))
467 (defun mouse-buffer-select (w x y)
468 "Put the indicated buffer in selected window."
469 (switch-to-buffer (Buffer-at-mouse w x y))
473 (defun mouse-buffer-delete (w x y)
474 "mark indicated buffer for delete"
475 (save-window-excursion
480 (defun mouse-buffer-execute (w x y)
481 "execute buffer-menu selections"
482 (save-window-excursion
487 (defun enable-mouse-in-buffer-list ()
489 LEFT puts the indicated buffer in the selected window.
490 MIDDLE buries the indicated buffer.
491 RIGHT marks the indicated buffer for deletion.
493 To unmark a buffer marked for deletion, select it with LEFT."
494 (save-window-excursion
496 (set-buffer "*Buffer List*")
497 (local-set-mouse '(text middle) 'mouse-buffer-bury)
498 (local-set-mouse '(text left) 'mouse-buffer-select)
499 (local-set-mouse '(text right) 'mouse-buffer-delete)
500 (local-set-mouse '(text middle right) 'mouse-buffer-execute)
540 (global-set-mouse '(text shift middle) 'mouse-save/delete/yank)
541 (global-set-mouse '(text double middle) 'mouse-save/delete/yank)
545 (global-set-mouse '(text control middle ) 'mouse-save-thing-there)