Lines Matching +defs:value +defs:get
55 (defun get-next-valid-buffer (list &optional buffer visible-ok frame)
74 (or visible-ok (null (get-buffer-window buf 'visible))))
88 (or (get-next-valid-buffer (frame-parameter frame 'buried-buffer-list)
90 (get-next-valid-buffer (nreverse (buffer-list frame))
93 (set-buffer-major-mode (get-buffer-create "*scratch*"))
94 (get-buffer "*scratch*"))))
308 (funcall next-error-function (prefix-numeric-value arg) reset)
368 :group 'next-error :init-value nil :lighter " Fol"
407 than the value of `fill-column' and ARG is nil."
425 (not (get-char-property (1- (point)) 'modification-hooks))
426 (not (get-char-property (1- (point)) 'insert-behind-hooks))
428 (not (get-char-property (point) 'insert-in-front-hooks)))
430 (not (get-char-property (1- (point)) 'intangible))
432 (not (get-char-property (1- (point)) 'read-only))
434 (not (get-char-property (1- (point)) 'invisible))
451 (self-insert-command (prefix-numeric-value arg))
452 ;; If we get an error in self-insert-command, put point at right place.
454 ;; Even if we did *not* get an error, keep that forward-char;
461 (- (point) (if arg (prefix-numeric-value arg) 1)) (point)))
479 (let ((sticky (get-text-property from 'rear-nonsticky)))
613 Indentation is done using the value of `indent-line-function'.
625 which means calling the current value of `indent-line-function'.
762 (* (prefix-numeric-value arg)
764 (/ (+ 10 (* size (prefix-numeric-value arg))) 10)))
787 (* (prefix-numeric-value arg)
789 (/ (* size (prefix-numeric-value arg)) 10)))
824 (list (prefix-numeric-value current-prefix-arg))
853 (let ((window (get-buffer-window buffer)))
909 Counting starts at (point-min), so the value refers
963 (setq display-prop (get-text-property pos 'display))
1019 "Value for `print-level' while printing value in `eval-expression'.
1020 A value of nil means no limit."
1026 "Value for `print-length' while printing value in `eval-expression'.
1027 A value of nil means no limit."
1034 If nil, don't change the value of `debug-on-error'."
1039 (defun eval-expression-print-format (value)
1042 in addition to the value printed by prin1 in functions which
1044 (if (and (integerp value)
1051 (prin1-char value))))
1053 (format " (#o%o, #x%x, %s)" value value char-string)
1054 (format " (#o%o, #x%x)" value value)))))
1059 &optional eval-expression-insert-value)
1060 "Evaluate EVAL-EXPRESSION-ARG and print value in the echo area.
1077 (let ((old-value (make-symbol "t")) new-value)
1080 (let ((debug-on-error old-value))
1082 (setq new-value debug-on-error))
1083 ;; If evaled code has changed the value of debug-on-error,
1085 (unless (eq old-value new-value)
1086 (setq debug-on-error new-value))))
1090 (if eval-expression-insert-value
1112 ;; get rid of that. We want only evaluable expressions there.
1130 to get different commands to edit and resubmit."
1146 ;; string, get rid of that. We want only
1167 If the value of this variable equals current minibuffer depth,
1220 (prefix-numeric-value current-prefix-arg))))
1226 (let ((history (symbol-value minibuffer-history-variable))
1291 (prefix-numeric-value current-prefix-arg))))
1312 (if (> narg (length (symbol-value minibuffer-history-variable)))
1331 (symbol-value minibuffer-history-variable)))))
1407 ;; If we get to the end of the undo history and get an error,
1409 ;; and will get another error. To begin undoing the undos,
1414 ;; If we get an error in undo-start,
1434 ;; get rid of initial undo boundary
1453 (prefix-numeric-value arg)
1495 (with-current-buffer (if buffer (get-buffer buffer) (current-buffer))
1512 Call `undo-start' to get ready to undo recent changes,
1588 ;; the region since only those types can ever get into the
1742 future, set `undo-outer-limit' to a value that is large enough to
1766 is run interactively. A value of nil means that output to stderr and
1817 specifies the value of ERROR-BUFFER."
1853 (with-current-buffer (get-buffer-create error-buffer)
1877 (let ((buffer (get-buffer-create
1884 (setq proc (get-buffer-process buffer))
1935 (get-buffer-create (or buffer-name "*Message*")))
1959 (not (get-buffer-window (current-buffer))))
2031 specifies the value of ERROR-BUFFER."
2072 ;; (let ((shell-buffer (get-buffer "*Shell Command Output*")))
2079 (let ((buffer (get-buffer-create
2147 (with-current-buffer (get-buffer-create error-buffer)
2183 value passed."
2243 "The saved value of `overriding-terminal-local-map'.
2244 That variable gets restored to this value on exiting \"universal
2255 "Restore `overriding-terminal-local-map' to its saved value."
2305 (get last-command-char 'ascii-character)))
2344 in the list, and the return value of each function is passed to
2345 the next. The return value of the last function is used as the
2346 return value of `filter-buffer-substring'.
2353 functions in `buffer-substring-filters', and the value from the
2409 "Function to call to get text cut from other programs.
2499 (equal yank-handler (get-text-property 0 'yank-handler cur)))
2588 ;; Set this-command now, so it will be set even if we get an error.
2599 ;; to get two copies of the text when the user accidentally types M-w and
2677 The value should be a list of text properties to discard or t,
2687 the value of the mark and point; it is guaranteed that START <= END.
2746 ;; If we don't get all the way thru, make last-command indicate that
2760 ;; If we do get all the way thru, make this-command indicate that.
2876 ;; the value of point from before the command was run.
2879 (forward-visible-line (prefix-numeric-value arg))
2946 (get-char-property (1- (point)) 'invisible)))
2958 (get-char-property (point) 'invisible)))
2964 (if (get-text-property (point) 'invisible)
2980 (get-char-property (1- (point)) 'invisible)))
2992 (get-char-property (1- (point)) 'invisible)))
2998 (if (get-text-property (1- (point)) 'invisible)
3011 ;; skip all characters with that same `invisible' property value,
3017 (get-char-property (point) 'invisible)))
3023 (if (get-text-property (point) 'invisible)
3047 (insert-buffer-substring (get-buffer buffer))
3063 (let* ((append-to (get-buffer-create buffer))
3064 (windows (get-buffer-window-list append-to t t))
3084 (set-buffer (get-buffer-create buffer))
3098 (with-current-buffer (get-buffer-create buffer)
3117 "Return this buffer's mark value as integer, or nil if never set.
3166 ;; But when we actually clear out the mark value too,
3222 A value of nil means \\[set-mark-command]'s behavior does not change
3259 ((and (consp arg) (> (prefix-numeric-value arg) 4))
3414 value of `next-line-add-newlines'. If non-nil, it inserts a newline character
3488 When the `track-eol' feature is doing its job, the value is 9999.")
3499 (get-char-property pos 'invisible)))
3581 ;; The value is t if we can move the specified number of lines.
3607 ;; It doesn't get confused by intangible text.
3623 ;; skip all characters with that same `invisible' property value.
3685 ;; This is the value the function returns.
3724 ;; the middle of a continued line. When we get to
3776 (if (eq (get-char-property new 'field)
3777 (get-char-property opoint 'field))
3802 ;; skip all characters with that same `invisible' property value.
3813 ;; that will get us to the same place on the screen
3866 start first-vis first-vis-field-value)
3885 (setq first-vis-field-value
3888 (goto-char (if (/= first-vis-field-value first-vis)
3890 first-vis-field-value
3939 (- (prefix-numeric-value lines))))))
3984 (transpose-subr 'forward-char (prefix-numeric-value arg)))
4110 (setq arg (if arg (prefix-numeric-value arg)
4120 (forward-word (prefix-numeric-value arg))
4138 The return value includes no text properties.
4140 or adjacent to a symbol or word. In all cases the value can be nil
4301 The value of `normal-auto-fill-function' specifies the function to use
4307 (> (prefix-numeric-value arg) 0))
4343 When the value of `selective-display' is a number > 0,
4344 lines whose indentation is >= that value are not displayed.
4345 The variable `selective-display' has a separate value for each buffer."
4355 (and arg (prefix-numeric-value arg)))
4373 (> (prefix-numeric-value arg) 0)))
4401 (> (prefix-numeric-value arg) 0))
4423 (> (prefix-numeric-value arg) 0))
4436 :init-value t :global t :group 'mode-line)
4610 can get out of the minibuffer or other recursive edit,
4763 (let ((function (get mail-user-agent 'composefunc)))
4785 (defvar set-variable-value-history nil
4788 (defun set-variable (variable value &optional make-local)
4809 (prop (get var 'variable-interactive))
4810 (obsolete (car (get var 'byte-obsolete-variable)))
4811 (prompt (format "Set %s %s to value: " var
4832 'set-variable-value-history
4833 (format "%S" (symbol-value var))))))))
4837 (not (get variable 'custom-type))
4839 (let ((type (get variable 'custom-type)))
4844 (unless (widget-apply type :match value)
4846 value (car type) variable))))
4851 (set variable value)
4879 Initial value is nil to avoid some compiler warnings.")
4902 (if (get-buffer-window buf)
4903 (select-window (get-buffer-window buf))))))
4917 (when (get-text-property (point) 'mouse-face)
4920 (unless (get-text-property (point) 'mouse-face)
4924 (let ((prop (get-text-property (1- (point)) 'mouse-face)))
4926 (when (and prop (eq prop (get-text-property (point) 'mouse-face)))
4930 (unless (or (bobp) (get-text-property (1- (point)) 'mouse-face))
4943 (if (and (not (eobp)) (get-text-property (point) 'mouse-face))
4945 (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face))
5035 (let ((window (get-buffer-window buffer t)))
5078 The completion list buffer is available as the value of `standard-output'.
5080 value of `completion-common-substring'. See also `display-completion-list'.")
5112 The value is set by `display-completion-list' during running `completion-setup-hook'.
5127 ;; so it will get copied into the completion list buffer.
5138 (get minibuffer-completion-table 'completion-base-size-function))
5139 ;; To compute base size, a function can use the global value of
5142 (funcall (get minibuffer-completion-table
5171 (when (get-char-property element-start 'mouse-face)
5173 (get-char-property (1- element-common-end) 'mouse-face))
5176 (if (get-char-property element-common-end 'mouse-face)
5198 (or (get-buffer-window "*Completions*")
5200 (let ((window (get-buffer-window "*Completions*")))
5241 LSHIFTBY is the numeric value of this modifier, in keyboard events.
5368 (if (get major-mode 'no-clone)
5375 (if (get major-mode 'no-clone)
5388 (process (get-buffer-process (current-buffer)))
5443 (if (get major-mode 'no-clone-indirect)
5448 (if (get major-mode 'no-clone-indirect)
5464 (if (get major-mode 'no-clone-indirect)
5490 On window systems, the default value of this option is chosen
5493 option's default value is set to t, so that Backspace can be used to
5508 :set (lambda (symbol value)
5512 (normal-erase-is-backspace-mode (or value 0))
5513 (set-default symbol value))))
5549 (> (prefix-numeric-value arg) 0)
5598 "Saved value of `buffer-invisibility-spec' when Visible mode is on.")
5606 works by saving the value of `buffer-invisibility-spec' and setting it to nil."