Lines Matching +defs:kill +defs:buffer
71 ;; argument, BUFFER. BUFFER will be the buffer speedbar wants filled.
74 ;; `speedbar-with-writable' (needed because the buffer is usually
79 ;; The macro `speedbar-with-attached-buffer' brings you back to the
80 ;; buffer speedbar is displaying for.
93 ;; `speedbar-delete-subblock', and `speedbar-center-buffer-smartly'.
96 ;; refreshing cached data to making a buffer appear in a new frame.
178 '(("buffers" speedbar-buffer-easymenu-definition speedbar-buffers-key-map
179 speedbar-buffer-buttons)
180 ("quick buffers" speedbar-buffer-easymenu-definition speedbar-buffers-key-map
181 speedbar-buffer-buttons-temp)
273 parameter BUFFER, the originating buffer. The current buffer is the
274 speedbar buffer.")
278 This keymap is local to each buffer that wants to define special keybindings
283 The default buffer is the buffer in the selected window in the attached frame."
294 The default buffer is the buffer in the selected window in the attached frame."
516 "*Hooks called after creating a speedbar buffer."
675 "*Regexp matching files we don't want displayed in a speedbar buffer.
783 "Keymap used in speedbar buffer.")
829 "Keymap used in speedbar buffer while files are displayed.")
928 (defvar speedbar-desired-buffer nil
930 In this case it is the originating buffer.")
931 (defvar speedbar-buffer nil
932 "The buffer displaying the speedbar.")
941 "The last file which was selected in speedbar buffer.")
980 A nil ARG means toggle. Once the speedbar frame is activated, a buffer in
986 ;; Get the buffer to play with
987 (if (not (buffer-live-p speedbar-buffer))
989 (setq speedbar-buffer (get-buffer-create " SPEEDBAR"))
990 (set-buffer speedbar-buffer)
996 'speedbar-buffer
1121 (kill-all-local-variables)
1139 speedbar-buffer)
1161 (defalias 'speedbar-with-attached-buffer 'dframe-with-attached-buffer)
1172 speedbar-buffer)
1174 (set-buffer speedbar-buffer)
1243 (current-buffer))
1247 (set-buffer speedbar-buffer)
1262 (if (fboundp 'set-buffer-menubar)
1263 (set-buffer-menubar (list md)))))
1305 "Move to the next ARGth line in a speedbar buffer."
1312 "Move to the previous ARGth line in a speedbar buffer."
1317 "Move to the next ARGth line in a speedbar buffer at the same depth.
1347 "Move to the next ARGth line in a speedbar buffer at the same depth.
1355 "Move to the previous ARGth line in a speedbar buffer at the same depth.
1365 if we reach a buffer boundary."
1405 Assumes that the current buffer is the speedbar buffer."
1475 (speedbar-message "Text: %s" (buffer-substring-no-properties
1479 "Display info in the mini-buffer about the button the mouse is over.
1490 instead of reading it from the speedbar buffer."
1513 (semantic-tag-buffer attr))
1514 (set-buffer (semantic-tag-buffer attr)))
1557 "Display info in the mini-buffer about the button the mouse is over."
1716 "Allow the buffer to be writable and evaluate FORMS."
1726 This function assumes that the current buffer is the speedbar buffer.
1769 speedbar-text ,(buffer-substring-no-properties start end)))
1851 (defun speedbar-maybe-add-localized-support (buffer)
1856 (speedbar-add-localized-speedbar-support buffer)))
1858 (defun speedbar-add-localized-speedbar-support (buffer)
1861 (if (stringp buffer) (setq buffer (get-buffer buffer)))
1862 (if (not (buffer-live-p buffer))
1865 (set-buffer buffer)
1896 (defun speedbar-remove-localized-speedbar-support (buffer)
1899 (set-buffer buffer)
1900 (kill-local-variable 'speedbar-special-mode-expansion-list)
1901 (kill-local-variable 'speedbar-special-mode-key-map)
1902 (kill-local-variable 'speedbar-easymenu-definition-special)))
1961 (buffer-substring-no-properties
2388 (methods (if (get-file-buffer f)
2389 (save-excursion (set-buffer (get-file-buffer f))
2403 Make buffer local for your mode.")
2408 Make buffer local for your mode.")
2425 (if (get-file-buffer f)
2426 (set-buffer (get-file-buffer f)))
2476 "Generically update the contents of the speedbar buffer."
2478 ;; Set the current special buffer
2479 (setq speedbar-desired-buffer nil)
2482 (speedbar-maybe-add-localized-support (current-buffer))
2489 (current-buffer)))
2495 "Update the contents of the speedbar buffer for the current situation."
2522 (set-buffer speedbar-buffer)
2524 (let* ((window (get-buffer-window speedbar-buffer 0))
2527 (erase-buffer)
2536 "Update the contents of the speedbar buffer based on the current directory."
2547 (set-buffer speedbar-buffer)
2580 (cons speedbar-shown-directories (buffer-string)))))
2597 (let* ((window (get-buffer-window speedbar-buffer 0))
2600 (erase-buffer)
2615 "Use the mode-specific variable to fill in the speedbar buffer.
2618 (specialbuff (current-buffer)))
2620 (setq speedbar-desired-buffer specialbuff)
2621 (set-buffer speedbar-buffer)
2629 (cons speedbar-shown-directories (buffer-string))
2631 ;; Now fill in the buffer with our newly found specialized list.
2634 ;; We do not erase the buffer because these functions may
2673 (speedbar-maybe-add-localized-support (current-buffer))
2679 (current-buffer)))
2697 (not (buffer-file-name)))
2741 (set-buffer speedbar-buffer)
2767 ;;(set-buffer speedbar-buffer)
2784 (let ((rf (if (buffer-file-name)
2785 (buffer-file-name)
2790 (lastb (current-buffer))
2806 ;; (set-buffer speedbar-buffer)
2837 ;;(speedbar-center-buffer-smartly)
2841 (set-buffer lastb)
2881 (if speedbar-buffer (set-buffer speedbar-buffer))
2922 (if speedbar-buffer (set-buffer speedbar-buffer))
2968 (fn (buffer-substring-no-properties
3039 (if speedbar-buffer (set-buffer speedbar-buffer))
3070 (fn (buffer-substring-no-properties
3132 (txt (buffer-substring-no-properties (or tp (point-min))
3137 (buffer-substring-no-properties
3145 ;;; Reading info from the speedbar buffer
3404 ;; Because we leave speedbar as the current buffer,
3461 (speedbar-center-buffer-smartly)
3471 ;; Because we leave speedbar as the current buffer,
3499 (speedbar-center-buffer-smartly))
3536 (speedbar-center-buffer-smartly))
3554 (bwin (get-buffer-window buff 0)))
3560 (let ((pop-up-frames t)) (select-window (display-buffer buff)))
3564 (switch-to-buffer buff))))
3569 (defun speedbar-center-buffer-smartly ()
3570 "Recenter a speedbar buffer so the current indentation level is all visible.
3576 (select-window (get-buffer-window speedbar-buffer t))
3578 (set-buffer speedbar-buffer)
3582 ;; whole buffer fits
3593 (string-to-number (buffer-substring-no-properties
3646 ;; If a file is in memory, switch to that buffer. This allows
3650 (if (get-file-buffer file)
3651 (set-buffer (get-file-buffer file)))
3652 ;; If there is a buffer-local value of
3679 "Load FILE into a buffer, and generate tags using Imenu.
3683 (set-buffer (find-file-noselect file))
3714 to be at the beginning of a line in the etags buffer.
3725 This creates an etags output buffer. Use `speedbar-toggle-etags' to
3760 (if (get-buffer "*etags tmp*")
3761 (kill-buffer "*etags tmp*")) ;kill to clean it up
3764 (set-buffer (get-buffer-create "*etags tmp*"))
3766 (current-buffer) nil
3781 (set-buffer (get-buffer-create "*etags tmp*"))
3820 (buffer-substring-no-properties (match-beginning 1)
3829 (1+ (string-to-number (buffer-substring-no-properties
3842 (buffer-substring-no-properties (match-beginning 1)
3845 (buffer-substring-no-properties (match-beginning 1)
3848 (buffer-substring-no-properties (match-beginning 1)
3858 (buffer-substring-no-properties (match-beginning 0)
3882 (define-key speedbar-buffers-key-map "k" 'speedbar-buffer-kill-buffer)
3883 (define-key speedbar-buffers-key-map "r" 'speedbar-buffer-revert-buffer)
3887 (defvar speedbar-buffer-easymenu-definition
3888 '(["Jump to buffer" speedbar-edit-line t]
3899 ["Kill Buffer" speedbar-buffer-kill-buffer
3902 ["Revert Buffer" speedbar-buffer-revert-buffer
3906 "Menu item elements shown when displaying a buffer list.")
3908 (defun speedbar-buffer-buttons (directory zero)
3910 DIRECTORY is the directory to the currently active buffer, and ZERO is 0."
3911 (speedbar-buffer-buttons-engine nil))
3913 (defun speedbar-buffer-buttons-temp (directory zero)
3915 DIRECTORY is the directory to the currently active buffer, and ZERO is 0."
3916 (speedbar-buffer-buttons-engine t))
3918 (defun speedbar-buffer-buttons-engine (temp)
3919 "Create speedbar buffer buttons.
3920 If TEMP is non-nil, then clicking on a buffer restores the previous display."
3922 (let ((bl (buffer-list))
3925 (if (string-match "^[ *]" (buffer-name (car bl)))
3928 (buffer-name (car bl))))
3931 (fname (save-excursion (set-buffer (car bl))
3932 (buffer-file-name))))
3935 (buffer-name (car bl))
3936 'speedbar-buffer-click temp
3940 (setq bl (buffer-list))
3943 (if (not (string-match "^\\*" (buffer-name (car bl))))
3945 (if (eq (car bl) speedbar-buffer)
3948 (buffer-name (car bl))
3949 'speedbar-buffer-click temp
3953 (setq bl (buffer-list))
3956 ;; (if (not (string-match "^ " (buffer-name (car bl))))
3958 ;; (if (eq (car bl) speedbar-buffer)
3961 ;; (buffer-name (car bl))
3962 ;; 'speedbar-buffer-click temp
3968 (defun speedbar-buffers-tail-notes (buffer)
3970 Argument BUFFER is the buffer being tested."
3973 (set-buffer buffer)
3974 (setq mod (buffer-modified-p)
3975 ro buffer-read-only))
3979 "Display information about the current buffer on the current line."
3982 (buffer (if item (get-buffer item) nil)))
3983 (and buffer
3985 (if (buffer-modified-p buffer) "* " "")
3987 (save-excursion (set-buffer buffer) major-mode)
3988 (save-excursion (set-buffer buffer)
3989 (buffer-size))
3990 (or (buffer-file-name buffer) "<No file>"))))))
3993 "Fetch the full directory to the file (buffer) specified on the current line.
4002 (buffer (if bn (get-buffer bn))))
4003 (if buffer
4007 (or (save-excursion (set-buffer buffer)
4010 (buffer-file-name buffer))))))))
4012 (defun speedbar-buffer-click (text token indent)
4013 "When the users clicks on a buffer-button in speedbar.
4014 TEXT is the buffer's name, TOKEN and INDENT are unused."
4016 (let ((pop-up-frames t)) (select-window (display-buffer text)))
4018 (switch-to-buffer text)
4022 (defun speedbar-buffer-kill-buffer ()
4023 "Kill the buffer the cursor is on in the speedbar buffer."
4027 (if (and (get-buffer text)
4028 (speedbar-y-or-n-p (format "Kill buffer %s? " text)))
4029 (kill-buffer text))
4032 (defun speedbar-buffer-revert-buffer ()
4033 "Revert the buffer the cursor is on in the speedbar buffer."
4044 (buffer-substring (point) (save-excursion
4047 (if (get-buffer text)
4049 (set-buffer text)
4050 (revert-buffer t)))))))
4081 "Recenter the current buffer so POINT is on the top of the window."
4085 "Recenter the current buffer so POINT is in the center of the window."