Lines Matching +defs:kill +defs:buffer
129 process buffer.
136 "*Name to be associated with the IDL process. The buffer for the
144 "*Non-nil means, never replace the shell frame with another buffer."
149 "*Non-nil means, IDLWAVE should use a special frame to display shell buffer."
174 history. Everywhere else in the buffer, arrows move the cursor."
250 reuse that buffer.
357 "*Non-nil mean, put output of examine commands in their own buffer."
370 Changes to this variable will only be active when the shell buffer is
661 "The default directory in the idlwave-shell buffer, of outside use.")
755 buffer.")
758 "If non-nil the process output is inserted into the output buffer if
775 (defun idlwave-shell-buffer ()
776 "Name of buffer associated with IDL process.
777 The name of the buffer is made by surrounding `idlwave-shell-process-name
875 (defvar idlwave-shell-error-buffer)
877 (defvar idlwave-shell-bp-buffer)
892 end of the buffer.
923 `C-c C-d' prefix are available for most commands in the *idl* buffer
973 ;; We don't do `kill-all-local-variables' here, because this is done by
991 mode-line-buffer-identification
1024 ;; buffer (in case there were other processes already in this buffer).
1036 ;; (make-local-hook 'kill-buffer-hook)
1037 (add-hook 'kill-buffer-hook 'idlwave-shell-kill-shell-buffer-confirm
1039 (add-hook 'kill-buffer-hook 'idlwave-shell-delete-temp-files nil 'local)
1040 (add-hook 'kill-emacs-hook 'idlwave-shell-delete-temp-files)
1057 (let ((pmark (process-mark (get-buffer-process
1058 (current-buffer)))))
1176 "Return the frame to be used for the shell buffer."
1192 "Run an inferior IDL, with I/O through buffer `(idlwave-shell-buffer)'.
1193 If buffer exists but shell process is not running, start new IDL.
1194 If buffer exists and shell process is running, just switch to the buffer.
1197 is non-nil, the shell buffer and the source buffers will be in
1203 The buffer is put in `idlwave-shell-mode', providing commands for sending
1207 \(Type \\[describe-mode] in the shell buffer for a list of commands.)"
1217 'save-buffers-kill-emacs t))
1225 (unless (comint-check-proc (idlwave-shell-buffer))
1233 (process (get-buffer-process buf)))
1237 (set-buffer buf)
1239 (let ((window (idlwave-display-buffer (idlwave-shell-buffer) nil
1320 (let ((save-buffer (current-buffer))
1322 ;; Get or make the buffer and its process
1323 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1324 (not (setq proc (get-buffer-process buf))))
1330 (setq buf (get-buffer (idlwave-shell-buffer)))
1331 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1332 (not (setq proc (get-buffer-process buf))))
1336 (set-buffer buf)
1386 (set-buffer save-buffer))))
1393 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1394 (not (setq proc (get-buffer-process buf))))
1431 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1432 (not (setq proc (get-buffer-process buf))))
1468 "When in last line of process buffer, do `comint-previous-input'.
1471 (process-mark (get-buffer-process (current-buffer)))))
1481 "When in last line of process buffer, move to previous input.
1487 "When in last line of process buffer, move to next input.
1517 (defvar idlwave-shell-hidden-output-buffer " *idlwave-shell-hidden-output*"
1539 (set-buffer
1540 (get-buffer-create idlwave-shell-hidden-output-buffer))
1561 ;(with-current-buffer
1562 ; (get-buffer-create "*idlwave-shell-output*")
1573 (set-buffer idlwave-shell-hidden-output-buffer)
1574 (setq full-output (buffer-string))
1579 (buffer-substring-no-properties
1583 (with-current-buffer (process-buffer proc)
1584 (buffer-substring-no-properties
1634 (let* ((buf (idlwave-shell-buffer))
1635 (win (get-buffer-window buf)))
1636 (when (get-buffer buf)
1638 (set-buffer (idlwave-shell-buffer))
1656 ;; Run the hook, if possible in the shell buffer.
1657 (if (get-buffer buf)
1659 (set-buffer buf)
1663 (defvar idlwave-shell-error-buffer " *idlwave-shell-errors*"
1734 (with-current-buffer
1735 (get-buffer-create idlwave-shell-error-buffer)
1736 (erase-buffer)
1895 (idlwave-shell-update-bp-overlays) ; kill old overlays
1896 (idlwave-shell-kill-buffer idlwave-shell-hidden-output-buffer)
1897 (idlwave-shell-kill-buffer idlwave-shell-bp-buffer)
1898 (idlwave-shell-kill-buffer idlwave-shell-error-buffer)
1899 ;; (idlwave-shell-kill-buffer (idlwave-shell-buffer))
1900 (and (get-buffer (idlwave-shell-buffer))
1901 (bury-buffer (get-buffer (idlwave-shell-buffer))))
1904 (defun idlwave-shell-kill-buffer (buf)
1905 "Kill buffer BUF if it exists."
1906 (if (setq buf (get-buffer buf))
1907 (kill-buffer buf)))
1909 (defun idlwave-shell-kill-shell-buffer-confirm ()
1912 (unless (y-or-n-p "IDL shell is running. Are you sure you want to kill the buffer? ")
1914 (message "Killing buffer *idl* and the associated process")))
1927 "Resync the buffer's idea of the current directory.
2016 ;; Set dummy values and kill the text
2050 ;; assuming that if the buffer stuff differs, it is a "new"
2059 ;; FIXME: is it OK to make the buffer routines dominate?
2062 idlwave-buffer-routines)))
2080 ;; FIXME: is it OK to make the buffer routines dominate?
2083 idlwave-buffer-routines)))
2105 Change the default directory for the process buffer to concur."
2107 (set-buffer (idlwave-shell-buffer))
2124 (setq expression (buffer-substring
2160 "Do completion in the idlwave-shell buffer.
2179 (idlwave-complete-in-buffer 'execcomm 'execcomm
2326 "Set buffer to FRAME with point at the frame line.
2333 (set-buffer (idlwave-find-file-noselect (car frame) 'shell))
2381 ;;; buffer : the buffer to display a line in.
2382 ;;; select-shell: current buffer is the shell.
2389 (let* ((buffer (idlwave-find-file-noselect (car frame) 'shell))
2390 (select-shell (equal (buffer-name) (idlwave-shell-buffer)))
2394 (idlwave-display-buffer (idlwave-shell-buffer)
2397 ;; now display the buffer and remember which window it is.
2398 (setq window (idlwave-display-buffer buffer
2401 ;; enter the buffer and mark the line
2403 (set-buffer buffer)
2420 (current-buffer)))
2426 (set-marker overlay-arrow-position (point) buffer)))
2428 ;; if the point is outside the restriction, widen the buffer.
2460 (and (equal (buffer-name) (idlwave-shell-buffer))
2603 If in the IDL shell buffer, returns `idlwave-shell-pc-frame'."
2604 (if (eq (current-buffer) (get-buffer (idlwave-shell-buffer)))
2608 (list (idlwave-shell-file-name (buffer-file-name))
2618 (if (eq (current-buffer) (get-buffer (idlwave-shell-buffer)))
2633 This command can be called from the shell buffer if IDL is currently stopped
2723 (or (idlwave-get-buffer-visiting source-file)
2730 (set-buffer buf)
2781 "Move to the previous breakpoint in the buffer."
2785 "Move to the next breakpoint in the buffer."
2876 "Label to include with examine text if in a separate buffer.")
2908 idlw-shell-examine-alist via mini-buffer shortcut key."
2916 (let* ((process (get-buffer-process (current-buffer)))
2959 (setq expr (buffer-substring beg end)))
2964 (current-buffer))
2989 ;; A cons from either a pop-up or mini-buffer completion
3048 "View the examine command output in a separate buffer."
3051 (set-buffer (get-buffer-create "*Examine*"))
3053 (setq buffer-read-only nil)
3071 (str (buffer-substring beg end)))
3080 (setq buffer-read-only t)
3082 (current-buffer))
3084 ;; Look for the examine buffer in all windows. If one is
3088 (let* ((winlist (get-buffer-window-list "*Examine*" nil 'visible)))
3089 (setq win (idlwave-display-buffer
3109 (shrink-window-if-larger-than-buffer)
3137 (let ((buf (get-buffer "*Examine*")))
3139 (set-buffer buf)
3140 (setq buffer-read-only nil)
3141 (erase-buffer)
3142 (setq buffer-read-only t)))))
3233 (let* ((buffer (get-buffer (idlwave-shell-buffer)))
3234 (process (get-buffer-process buffer))
3238 (set-buffer buffer)
3247 (idlwave-display-buffer (idlwave-shell-buffer)
3251 output-begin output-end buffer))))
3309 (let ((oldbuf (current-buffer)))
3311 (set-buffer (idlwave-find-file-noselect
3315 (erase-buffer)
3316 (insert-buffer-substring oldbuf beg end)
3321 (save-buffer 0)))
3328 (idlwave-display-buffer (idlwave-shell-buffer)
3337 (idlwave-shell-send-command (buffer-substring beg end))
3339 (idlwave-display-buffer (idlwave-shell-buffer)
3343 "Delete the temporary files and kill associated buffers."
3346 (let ((buf (idlwave-get-buffer-visiting
3348 (if (buffer-live-p buf)
3349 (kill-buffer buf))
3357 (defun idlwave-display-buffer (buf not-this-window-p &optional frame)
3360 (display-buffer buf not-this-window-p frame)
3363 (save-excursion ;; make sure we end up in the same buffer
3367 ;; same frame: use display buffer, to make sure the current
3369 (display-buffer buf)
3374 (switch-to-buffer buf)
3376 ;; several windows - use display-buffer
3377 (display-buffer buf not-this-window-p)))))))
3379 ; (display-buffer buf not-this-window-p frame))
3381 (defvar idlwave-shell-bp-buffer " *idlwave-shell-bp*"
3382 "Scratch buffer for parsing IDL breakpoint lists and other stuff.")
3426 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
3427 (erase-buffer)
3659 (add-to-list 'old-buffers (overlay-buffer ov))
3723 (setq old-buffers (delq (current-buffer) old-buffers)))
3725 (set-specifier left-margin-width (cons (current-buffer) 2))
3728 (let ((window (get-buffer-window (current-buffer) 0)))
3734 (with-current-buffer buf
3736 (set-specifier left-margin-width (cons (current-buffer) 0))
3738 (let ((window (get-buffer-window buf 0)))
3880 (with-current-buffer (idlwave-shell-buffer)
3886 Runs `save-buffer' and sends a '.RUN' command for the associated file to IDL.
3887 When called from the shell buffer, re-run the file which was last handled by
3894 Runs `save-buffer' and sends '.COMPILE' command for the associated file to IDL.
3895 When called from the shell buffer, re-compile the file which was last handled by
3902 Runs `save-buffer' and sends a '@file' command for the associated file to IDL.
3903 When called from the shell buffer, re-batch the file which was last handled by
3910 Runs `save-buffer' and sends a '.RUN' command for the associated file to IDL.
3911 When called from the shell buffer, re-compile the file which was last
3923 (save-buffer)
3924 (setq idlwave-shell-last-save-and-action-file (buffer-file-name)))
3926 (if (setq buf (idlwave-get-buffer-visiting
3929 (set-buffer buf)
3930 (save-buffer))))
3956 (memq 'compile-buffer idlwave-auto-routine-info-updates))
4010 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
4011 (erase-buffer)
4046 (buffer-substring ; name
4049 (buffer-substring ; source
4076 "Position of last syntax error in `idlwave-shell-error-buffer'.")
4083 (set-buffer idlwave-shell-error-buffer)
4093 (buffer-substring (match-beginning 1 )
4096 (buffer-substring (match-beginning 2)
4132 "Define a key in both the shell and buffer mode maps."
4139 (define-key idlwave-shell-mode-map "\C-w" 'comint-kill-region)
4153 (define-key idlwave-shell-mode-map "\C-c\C-k" 'idlwave-kill-autoloaded-buffers)
4249 s k1 c2 k2 cmd electric only-buffer cannotshift)
4255 only-buffer (nth 4 s)
4260 (unless only-buffer
4271 (unless only-buffer (define-key idlwave-shell-mode-map k2 cmd))))
4335 buffer-read-only)
4336 (setq buffer-read-only t)
4337 (add-to-list 'idlwave-shell-electric-debug-buffers (current-buffer))
4349 (setq buffer-read-only (if (boundp 'idlwave-shell-electric-debug-read-only)
4352 (delq (current-buffer) idlwave-shell-electric-debug-buffers))
4375 (when (buffer-live-p buf)
4376 (set-buffer buf)
4378 buffer-file-name
4386 (with-output-to-temp-buffer "*IDLWAVE Electric Debug Help*"
4389 (window (get-buffer-window "*IDLWAVE Electric Debug Help*"))
4542 (set-buffer buf)
4547 (buffer-list)))))