Lines Matching +defs:set +defs:process +defs:sentinel
93 (set-buffer-major-mode (get-buffer-create "*scratch*"))
103 (set-frame-parameter nil 'buried-buffer-list
115 (set-frame-parameter nil 'buried-buffer-list bbl)))
183 Major modes providing compile-like functionality should set this variable
460 (set-hard-newline-properties
478 (defun set-hard-newline-properties (from to)
649 set it to 10 or 16 to use decimal or hex instead of octal.
666 ;; single-byte character set, and convert them to Emacs
745 With \\[universal-argument] prefix, do not set mark at previous position.
770 With \\[universal-argument] prefix, do not set mark at previous position.
961 ;; text property. In that case, set under-display to the
1010 (set-keymap-parent m minibuffer-local-map)
1033 "If non-nil set `debug-on-error' to t in `eval-expression'.
1317 (set (make-local-variable 'minibuffer-temporary-goal-position)
1416 ;; So set `this-command' to something other than `undo'.
1586 ;; isn't being undone. We only need to process those element
1688 it exceeds `undo-outer-limit'. But if you set this option
1742 future, set `undo-outer-limit' to a value that is large enough to
1846 (call-process shell-file-name nil
1870 (set-marker (mark-marker) (point)
1883 ;; If will kill a process, query first.
1884 (setq proc (get-buffer-process buffer))
1887 (kill-process proc)
1894 (setq proc (start-process "Shell" buffer shell-file-name
1896 (setq mode-line-process '(":%s"))
1898 (set-process-sentinel proc 'shell-command-sentinel)
1972 ;; We have a sentinel to prevent insertion of a termination message
1974 (defun shell-command-sentinel (process signal)
1975 (if (memq (process-status process) '(exit signal))
1977 (car (cdr (cdr (process-command process))))
2034 (error "The mark is not set now, so there is no region"))
2066 (call-process-region start end shell-file-name t
2090 (call-process-region (point-min) (point-max)
2101 (set-buffer buffer)
2107 (call-process-region start end shell-file-name nil
2114 (setq mode-line-process
2167 (call-process shell-file-name nil t nil shell-command-switch command))))
2169 (defun process-file (program &optional infile buffer display &rest args)
2170 "Process files synchronously in a separate process.
2171 Similar to `call-process', but may invoke a file handler based on
2177 are passed to the process verbatim. \(This is a difference to
2178 `call-process' which does not support file handlers for INFILE
2184 (let ((fh (find-file-name-handler default-directory 'process-file))
2187 (if fh (apply fh 'process-file program infile buffer display args)
2192 (apply 'call-process program
2268 These commands include \\[set-mark-command] and \\[start-kbd-macro]."
2364 Point is temporarily set to BEG before calling
2383 (set-text-properties 0 (length string) nil string))
2406 similar argument to `x-set-cut-buffer', which see.")
2490 yank-handler text property to be set on the combined kill ring
2495 If `interprogram-cut-function' is set, pass the resulting kill to it."
2504 If N is zero, `interprogram-paste-function' is set, and calling it
2564 specifies the yank-handler text property to be set on the killed
2570 (error "The mark is not set now, so there is no region"))
2588 ;; Set this-command now, so it will be set even if we get an error.
2639 (set-marker (mark-marker) (point) (current-buffer))
2643 (set-marker (mark-marker) other-end (current-buffer))
2688 Normally set from the UNDO element of a yank-handler; see `insert-for-yank'.")
2718 (set-marker (mark-marker) (point) (current-buffer))
2722 (set-window-start (selected-window) yank-window-start t)
2728 (set-marker (mark-marker) (point) (current-buffer))))))
2734 killed OR yanked. Put point at end, and set mark at beginning.
2759 (set-marker (mark-marker) (point) (current-buffer)))))
3066 (set-buffer append-to)
3072 (set-window-point window (point))))))))
3084 (set-buffer (get-buffer-create buffer))
3117 "Return this buffer's mark value as integer, or nil if never set.
3125 a mistake; see the documentation of `set-mark'."
3130 ;; Many places set mark-active directly, and several of them failed to also
3143 (defun set-mark (pos)
3149 Normally, when a new mark is set, the old one should go on the stack.
3150 This is why most applications should use `push-mark', not `set-mark'.
3164 (set-marker (mark-marker) pos (current-buffer)))
3170 (set-marker (mark-marker) nil)))
3196 (error "No mark set in this buffer")
3204 If no prefix arg and mark is already set there, just activate it.
3205 Display `Mark set' unless the optional second arg NOMSG is non-nil."
3215 (defcustom set-mark-command-repeat-pop nil
3216 "*Non-nil means repeating \\[set-mark-command] after popping mark pops it again.
3217 That means that C-u \\[set-mark-command] \\[set-mark-command]
3219 C-u \\[set-mark-command] \\[set-mark-command] \\[set-mark-command]
3222 A value of nil means \\[set-mark-command]'s behavior does not change
3223 after C-u \\[set-mark-command]."
3227 (defun set-mark-command (arg)
3233 With no prefix argument, set the mark at point, and push the
3235 global mark ring, if the previous mark was set in another buffer.
3239 With prefix argument \(e.g., \\[universal-argument] \\[set-mark-command]\), \
3240 jump to the mark, and set the mark from
3245 If `set-mark-command-repeat-pop' is non-nil, repeating
3246 the \\[set-mark-command] command with no prefix argument pops the next position
3250 argument, unconditionally set mark where point is, even if
3251 `set-mark-command-repeat-pop' is non-nil.
3254 purposes. See the documentation of `set-mark' for more information."
3261 ((not (eq this-command 'set-mark-command))
3265 ((and set-mark-command-repeat-pop
3269 ((and set-mark-command-repeat-pop
3277 ((and (eq last-command 'set-mark-command)
3288 Display `Mark set' unless the optional second arg NOMSG is non-nil.
3291 purposes. See the documentation of `set-mark' for more information.
3299 (set-marker (mark-marker) (or location (point)) (current-buffer))
3311 (message "Mark set"))
3313 (set-mark (mark t)))
3318 Does not set point. Does nothing if mark ring is empty."
3321 (set-marker (mark-marker) (+ 0 (car mark-ring)) (current-buffer))
3342 (error "No mark set in this buffer"))
3343 (set-mark (point))
3353 So do certain other operations that set the mark
3385 (error "No global mark set"))
3391 (set-buffer buffer)
3418 The command \\[set-goal-column] can be used to create
3451 The command \\[set-goal-column] can be used to create
3478 "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil."
3512 (set-window-vscroll nil (- vs (frame-char-height)) t)))
3544 (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
3550 (set-window-vscroll nil (frame-char-height) t)
3559 (set-window-vscroll nil (frame-char-height) t)))))))
3576 (set-window-vscroll nil 0 t)
3899 (put 'set-goal-column 'disabled t)
3901 (defun set-goal-column (arg)
3914 ;; The older method below can be erroneous if `set-goal-column' is bound
3917 ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
3923 "(use \\[set-goal-column] with an arg to unset it)")))
4112 (set-mark
4290 Some major modes set this.")
4327 (defun set-fill-column (arg)
4336 (error "set-fill-column requires an explicit argument")
4337 (message "Fill column set to %d (was %d)" arg fill-column)
4341 (defun set-selective-display (arg)
4357 (set-window-start (selected-window) (window-start (selected-window)))
4358 (princ "selective-display set to " t)
4379 (set-window-hscroll window 0)))
4785 (defvar set-variable-value-history nil
4786 "History of values entered with `set-variable'.")
4788 (defun set-variable (variable value &optional make-local)
4801 With a prefix argument, set VARIABLE to VALUE buffer-locally."
4815 (local-variable-if-set-p var))
4832 'set-variable-value-history
4851 (set variable value)
5020 (set-buffer buffer)
5036 (set-window-point window (point)))
5112 The value is set by `display-completion-list' during running `completion-setup-hook'.
5126 ;; set default-directory in the minibuffer
5134 (set (make-local-variable 'completion-reference-buffer) mainbuf)
5310 (defun clone-process (process &optional newname)
5314 If PROCESS is associated with a buffer, the new process will be associated
5317 (setq newname (or newname (process-name process)))
5320 (when (memq (process-status process) '(run stop open))
5321 (let* ((process-connection-type (process-tty-name process))
5322 (new-process
5323 (if (memq (process-status process) '(open))
5324 (let ((args (process-contact process t)))
5327 (if (process-buffer process)
5329 (apply 'make-network-process args))
5330 (apply 'start-process newname
5331 (if (process-buffer process) (current-buffer))
5332 (process-command process)))))
5333 (set-process-query-on-exit-flag
5334 new-process (process-query-on-exit-flag process))
5335 (set-process-inherit-coding-system-flag
5336 new-process (process-inherit-coding-system-flag process))
5337 (set-process-filter new-process (process-filter process))
5338 (set-process-sentinel new-process (process-sentinel process))
5339 (set-process-plist new-process (copy-sequence (process-plist process)))
5340 new-process)))
5363 after it has been set up properly in other respects."
5388 (process (get-buffer-process (current-buffer)))
5397 (if mk (set-mark mk))
5398 (set-buffer-modified-p modified)
5400 ;; Clone the old buffer's process, if any.
5401 (when process (clone-process process))
5403 ;; Now set up the major mode.
5411 (set (make-local-variable (car v)) (cdr v)))
5415 ;; Run any hooks (typically set up by the major mode
5484 ;; set to ^H, use the Backspace key for deleting
5493 option's default value is set to t, so that Backspace can be used to
5508 :set (lambda (symbol value)
5509 ;; The fboundp is because of a problem with :set when
5513 (set-default symbol value))))
5613 (set (make-local-variable 'vis-mode-saved-buffer-invisibility-spec)