Lines Matching +defs:read +defs:expression +defs:map
409 (barf-if-buffer-read-only)
431 ;; Make sure the newline before point isn't read-only.
432 (not (get-char-property (1- (point)) 'read-only))
648 The variable `read-quoted-char-radix' specifies the radix for this feature;
663 (read-quoted-char)
664 (read-char)))))
843 (list (read-from-minibuffer (format (if default "Goto line%s (%s): "
1007 ;; Initialize read-expression-map. It is defined at C level.
1010 (set-keymap-parent m minibuffer-local-map)
1011 (setq read-expression-map m))
1013 (defvar read-expression-history nil)
1018 (defcustom eval-expression-print-level 4
1019 "Value for `print-level' while printing value in `eval-expression'.
1025 (defcustom eval-expression-print-length 12
1026 "Value for `print-length' while printing value in `eval-expression'.
1032 (defcustom eval-expression-debug-on-error t
1033 "If non-nil set `debug-on-error' to t in `eval-expression'.
1039 (defun eval-expression-print-format (value)
1040 "Format VALUE as a result of evaluated expression.
1043 display the result of expression evaluation."
1058 (defun eval-expression (eval-expression-arg
1059 &optional eval-expression-insert-value)
1066 If `eval-expression-debug-on-error' is non-nil, which is the default,
1070 (read-from-minibuffer "Eval: "
1071 nil read-expression-map t
1072 'read-expression-history))
1075 (if (null eval-expression-debug-on-error)
1076 (setq values (cons (eval eval-expression-arg) values))
1081 (setq values (cons (eval eval-expression-arg) values))
1088 (let ((print-length eval-expression-print-length)
1089 (print-level eval-expression-print-level))
1090 (if eval-expression-insert-value
1096 (let ((str (eval-expression-print-format (car values))))
1101 COMMAND is a Lisp expression. Let user edit that expression in
1102 the minibuffer, then read and evaluate the result."
1107 (read-from-minibuffer prompt
1109 read-expression-map t
1129 You can use the minibuffer history commands \\<minibuffer-local-map>\\[next-history-element] and \\[previous-history-element]
1141 (read-from-minibuffer
1142 "Redo: " (prin1-to-string elt) read-expression-map t
1208 (regexp (read-from-minibuffer "Previous element matching (regexp): "
1210 minibuffer-local-map
1279 (regexp (read-from-minibuffer "Next element matching (regexp): "
1281 minibuffer-local-map
1457 ;; In the ordinary case (not within a region), map the redo
1758 "History list for some commands that read shell commands.")
1789 `coding-system-for-read' and `coding-system-for-write'.
1819 (interactive (list (read-from-minibuffer "Shell command: "
1839 (barf-if-buffer-read-only)
1890 (setq buffer-read-only nil)
1998 `coding-system-for-read' and `coding-system-for-write'.
2038 (setq string (read-from-minibuffer "Shell command on region: "
2086 (progn (setq buffer-read-only nil)
2102 (setq buffer-read-only nil)
2203 (defvar universal-argument-map
2204 (let ((map (make-sparse-keymap)))
2205 (define-key map [t] 'universal-argument-other-key)
2206 (define-key map (vector meta-prefix-char t) 'universal-argument-other-key)
2207 (define-key map [switch-frame] nil)
2208 (define-key map [?\C-u] 'universal-argument-more)
2209 (define-key map [?-] 'universal-argument-minus)
2210 (define-key map [?0] 'digit-argument)
2211 (define-key map [?1] 'digit-argument)
2212 (define-key map [?2] 'digit-argument)
2213 (define-key map [?3] 'digit-argument)
2214 (define-key map [?4] 'digit-argument)
2215 (define-key map [?5] 'digit-argument)
2216 (define-key map [?6] 'digit-argument)
2217 (define-key map [?7] 'digit-argument)
2218 (define-key map [?8] 'digit-argument)
2219 (define-key map [?9] 'digit-argument)
2220 (define-key map [kp-0] 'digit-argument)
2221 (define-key map [kp-1] 'digit-argument)
2222 (define-key map [kp-2] 'digit-argument)
2223 (define-key map [kp-3] 'digit-argument)
2224 (define-key map [kp-4] 'digit-argument)
2225 (define-key map [kp-5] 'digit-argument)
2226 (define-key map [kp-6] 'digit-argument)
2227 (define-key map [kp-7] 'digit-argument)
2228 (define-key map [kp-8] 'digit-argument)
2229 (define-key map [kp-9] 'digit-argument)
2230 (define-key map [kp-subtract] 'universal-argument-minus)
2231 map)
2235 "Number of argument-specifying events read by `universal-argument'.
2239 (defvar overriding-map-is-bound nil
2240 "Non-nil when `overriding-terminal-local-map' is `universal-argument-map'.")
2242 (defvar saved-overriding-map nil
2243 "The saved value of `overriding-terminal-local-map'.
2247 (defun ensure-overriding-map-is-bound ()
2248 "Check `overriding-terminal-local-map' is `universal-argument-map'."
2249 (unless overriding-map-is-bound
2250 (setq saved-overriding-map overriding-terminal-local-map)
2251 (setq overriding-terminal-local-map universal-argument-map)
2252 (setq overriding-map-is-bound t)))
2254 (defun restore-overriding-map ()
2255 "Restore `overriding-terminal-local-map' to its saved value."
2256 (setq overriding-terminal-local-map saved-overriding-map)
2257 (setq overriding-map-is-bound nil))
2272 (ensure-overriding-map-is-bound))
2283 (restore-overriding-map)))
2297 (ensure-overriding-map-is-bound))
2316 (ensure-overriding-map-is-bound))
2337 (restore-overriding-map))
2533 (defcustom kill-read-only-ok nil
2534 "*Non-nil means don't signal an error for killing read-only text."
2538 (put 'text-read-only 'error-conditions
2539 '(text-read-only buffer-read-only error))
2540 (put 'text-read-only 'error-message "Text is read-only")
2551 If the buffer is read-only, Emacs will beep and refrain from deleting
2553 you can use the killing commands to copy text from a read-only buffer.
2581 ((buffer-read-only text-read-only)
2583 ;; in the region, are read-only.
2591 (if kill-read-only-ok
2593 ;; Signal an error if the buffer is read-only.
2594 (barf-if-buffer-read-only)
2595 ;; If the buffer isn't read-only, the text is.
2596 (signal 'text-read-only (list (current-buffer)))))))
2674 '(read-only invisible intangible field mouse-face help-echo local-map keymap
2712 (let ((inhibit-read-only t)
2865 If the buffer is read-only, Emacs will beep and refrain from deleting
2867 you can use this command to copy text from a read-only buffer.
2868 \(If the variable `kill-read-only-ok' is non-nil, then this won't
2873 ;; before killing. That way, in a read-only buffer, point
2916 ;; twice to the kill ring in read-only buffers.
3039 (barf-if-buffer-read-only)
3040 (read-buffer "Insert buffer: "
3059 (list (read-buffer "Append to buffer: " (other-buffer (current-buffer) t))
3068 (barf-if-buffer-read-only)
3085 (barf-if-buffer-read-only)
3099 (barf-if-buffer-read-only)
4645 (defcustom read-mail-command 'rmail
4678 See also `read-mail-command' concerning reading mail."
4796 it were the arg to `interactive' (which see) to interactively read VALUE.
4805 (read-variable (format "Set variable (default %s): " default-var)
4807 (read-variable "Set variable: ")))
4830 (read
4831 (read-string prompt nil
4860 (defvar completion-list-mode-map nil
4861 "Local map for completion list buffers.")
4862 (or completion-list-mode-map
4863 (let ((map (make-sparse-keymap)))
4864 (define-key map [mouse-2] 'mouse-choose-completion)
4865 (define-key map [follow-link] 'mouse-face)
4866 (define-key map [down-mouse-2] nil)
4867 (define-key map "\C-m" 'choose-completion)
4868 (define-key map "\e\e\e" 'delete-completion-window)
4869 (define-key map [left] 'previous-completion)
4870 (define-key map [right] 'next-completion)
4871 (setq completion-list-mode-map map)))
5043 (if (and (eq minibuffer-completion-table 'read-file-name-internal)
5053 Type \\<completion-list-mode-map>\\[choose-completion] in the completion list\
5055 Use \\<completion-list-mode-map>\\[mouse-choose-completion] to select one\
5059 (use-local-map completion-list-mode-map)
5070 (toggle-read-only 1)))
5191 (define-key minibuffer-local-completion-map [prior] 'switch-to-completions)
5192 (define-key minibuffer-local-completion-map "\M-v" 'switch-to-completions)
5214 "\\<function-key-map>Add the Alt modifier to the following event.
5216 (vector (event-apply-modifier (read-event) 'alt 22 "A-")))
5218 "\\<function-key-map>Add the Super modifier to the following event.
5220 (vector (event-apply-modifier (read-event) 'super 23 "s-")))
5222 "\\<function-key-map>Add the Hyper modifier to the following event.
5224 (vector (event-apply-modifier (read-event) 'hyper 24 "H-")))
5226 "\\<function-key-map>Add the Shift modifier to the following event.
5228 (vector (event-apply-modifier (read-event) 'shift 25 "S-")))
5230 "\\<function-key-map>Add the Ctrl modifier to the following event.
5232 (vector (event-apply-modifier (read-event) 'control 26 "C-")))
5234 "\\<function-key-map>Add the Meta modifier to the following event.
5236 (vector (event-apply-modifier (read-event) 'meta 27 "M-")))
5267 (define-key function-key-map [?\C-x ?@ ?h] 'event-apply-hyper-modifier)
5268 (define-key function-key-map [?\C-x ?@ ?s] 'event-apply-super-modifier)
5269 (define-key function-key-map [?\C-x ?@ ?m] 'event-apply-meta-modifier)
5270 (define-key function-key-map [?\C-x ?@ ?a] 'event-apply-alt-modifier)
5271 (define-key function-key-map [?\C-x ?@ ?S] 'event-apply-shift-modifier)
5272 (define-key function-key-map [?\C-x ?@ ?c] 'event-apply-control-modifier)
5282 ;; Also tell read-char how to handle these keys.
5288 (define-key function-key-map (vector keypad) (vector normal))))
5348 independently of the old one (if it is not read-only).
5371 (read-buffer "Name of new cloned buffer: " (current-buffer)))
5408 (condition-case () ;in case var is read-only
5430 Give the indirect buffer name NEWNAME. Interactively, read NEWNAME
5446 (read-buffer "Name of indirect buffer: " (current-buffer)))
5467 (read-buffer "Name of indirect buffer: " (current-buffer)))
5524 `function-key-map', so binding Delete or Backspace in the global or
5558 (,esc-map
5560 (old-state (lookup-key function-key-map [delete])))
5564 (define-key function-key-map [delete] [?\C-d])
5565 (define-key function-key-map [kp-delete] [?\C-d])
5566 (define-key function-key-map [backspace] [?\C-?]))
5567 (define-key function-key-map [delete] [?\C-?])
5568 (define-key function-key-map [kp-delete] [?\C-?])
5569 (define-key function-key-map [backspace] [?\C-?]))
5572 (unless (equal old-state (lookup-key function-key-map [delete]))
5574 (let ((map global-map))
5576 (setq map (car binding) binding (cdr binding)))
5579 (binding1 (lookup-key map key1))
5580 (binding2 (lookup-key map key2)))
5581 (define-key map key1 binding2)
5582 (define-key map key2 binding1)))))))