Lines Matching +defs:subst +defs:char +defs:in +defs:region
16 ;; GNU Emacs is distributed in the hope that it will be useful,
33 ;; Use this, rather than defcustom, in subr.el and other files loaded
74 But documentation strings are usually not useful in nameless functions.
85 "Add NEWELT to the list stored in the symbol LISTNAME.
121 "Temporary variable used in `dolist' expansion.")
125 Evaluate BODY with VAR bound to each car from LIST, in turn.
131 ;; but that uses a lot more space when many functions in many files
144 "Temporary variable used in `dotimes' expansion.")
155 ;; but that uses a lot more space when many functions in many files
169 Treated as a declaration when used at the right place in a
190 ;; We put this here instead of in frame.el so that it's defined even on
263 Store the result in LIST and return it. LIST must be a proper list.
264 Of several `equal' occurrences of an element in LIST, the first
274 INC is the increment used between numbers in the sequence and defaults to 1.
336 "Find object KEY in a pseudo-alist ALIST.
355 "Like `assoc', but ignores differences in case and text representation.
362 "Like `assoc', but ignores differences in text representation.
368 "Like `member', but ignores differences in case and text representation.
371 Non-strings in LIST are ignored."
430 KEYS should be a string constant in the format used for
453 (define-key map (char-to-string loop) 'digit-argument)
457 "Add binding in KEYMAP for KEY => DEFINITION, right after AFTER's binding.
468 The order of bindings in a keymap matters when it is used as a menu."
523 (put 'keyboard-translate-table 'char-table-extra-slots 0)
528 and then modifies one entry in it."
529 (or (char-table-p keyboard-translate-table)
531 (make-char-table 'keyboard-translate-table nil)))
545 Note that if KEY has a local binding in the current buffer,
561 The binding goes in the current buffer's local map,
562 which in most cases is shared with all other buffers in the same major mode."
588 (defvar key-substitution-in-progress nil
592 "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
595 in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP.
598 in a cleaner way with command remapping, like this:
601 ;; Don't document PREFIX in the doc string because we don't want to
611 (key-substitution-in-progress
612 (cons scan key-substitution-in-progress)))
613 ;; Scan OLDMAP, finding each char or event-symbol that
616 (lambda (char defn)
617 (aset prefix1 (length prefix) char)
655 (not (memq inner-def key-substitution-in-progress)))
663 ;;; global-map, esc-map, and ctl-x-map have their values set up in
714 (char-valid-p (event-basic-type obj)))
722 "Return a list of symbols representing the modifier keys in event EVENT.
727 that has never been used in an event that has been read as input
728 in the current Emacs session, then this function can return nil,
736 (char (logand type (lognot (logior ?\M-\^@ ?\C-\^@ ?\S-\^@
741 (< char 32))
744 (/= char (downcase char)))
758 that has never been used in an event that has been read as input
759 in the current Emacs session, then this function may return nil."
805 ;;;; Extracting fields of the positions in an event.
808 "Return the window in POSITION.
814 "Return the window area recorded in POSITION, or nil for the text area.
823 "Return the buffer location in POSITION.
835 (error "Position not in text area of window"))
838 (goto-char (posn-point position))))
841 "Return the x and y coordinates in POSITION.
847 "Return the nominal column and row in POSITION, measured in characters.
849 and y coordinates in POSITION and the frame's default character width
852 corresponds to the vertical position of the click in the scroll bar.
867 (x (/ (car pair) (frame-char-width frame)))
868 (y (/ (cdr pair) (+ (frame-char-height frame)
875 "Return the actual column and row in POSITION, measured in characters.
876 These are the actual row number in the window and character number in that row.
877 Return nil if POSITION does not contain the actual position; in that case
934 (make-obsolete 'char-bytes "now always returns 1." "20.4")
939 is converted into a string by expressing it in decimal."
963 (make-obsolete-variable 'directory-sep-char "do not use it." "21.1")
969 'unread-command-char
974 ;; Lisp manual only updated in 22.1.
991 (defalias 'send-region 'process-send-region)
999 (defalias 'backward-delete-char 'delete-backward-char)
1023 work in concert: running the hook actually runs all the hook
1024 functions listed in *either* the local value *or* the global value
1028 which acts as a flag to run the hook functions in the default value as
1034 This function does nothing if HOOK is already local in the current
1050 unless the optional argument APPEND is non-nil, in which case
1057 functions in the default value as well as in the local value.
1086 FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the
1087 list of hooks to run in HOOK, then nothing is done. See `add-hook'.
1122 unless the optional argument APPEND is non-nil, in which case
1156 The resulting list is reordered so that the elements are in the
1166 The list order for each element is stored in LIST-VAR's
1187 "Add NEWELT to the history list stored in the variable HISTORY-VAR.
1252 Only affects hooks run in the current buffer."
1289 NAME specifies what will appear in the mode line when the minor mode
1297 in `minor-mode-alist'.
1303 included in the mode-line minor mode menu.
1362 ;; "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'.
1367 ;; "Load the file `fns-VERSION.el' in `exec-directory' if not already done.
1382 "Return the input source in which SYMBOL was defined.
1414 This command searches the directories in `load-path' like `\\[load-library]'
1424 and the file name is displayed in the echo area."
1437 (message "No library %s in search path" library)))
1461 "Form a regexp to find FILE in `load-history'.
1462 FILE, a string, is described in the function `eval-after-load'."
1502 a file whose absolute true name ends in FILE will trigger evaluation.
1509 Alternatively, FILE can be a feature (i.e. a symbol), in which case FORM
1610 (defvar read-quoted-char-radix 8
1611 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'.
1615 'read-quoted-char-radix 8
1616 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'.
1621 (defun read-quoted-char (&optional prompt)
1622 "Like `read-char', but do not allow quitting.
1630 The variable `read-quoted-char-radix' controls which radix to use
1632 (let ((message-log-max nil) done (first t) (code 0) char translated)
1636 (help-char nil)
1642 (setq char (read-event (and prompt (format "%s-" prompt)) t))
1645 ;; Note: `read-char' does it using the `ascii-character' property.
1648 ;; bound to some prefix in function-key-map or key-translation-map.
1649 (setq translated char)
1650 (let ((translation (lookup-key function-key-map (vector char))))
1655 (setq unread-command-events (list char)
1661 ((and (<= ?0 translated) (< translated (+ ?0 (min 10 read-quoted-char-radix))))
1662 (setq code (+ (* code read-quoted-char-radix) (- translated ?0)))
1665 (< (downcase translated) (+ ?a -10 (min 36 read-quoted-char-radix))))
1666 (setq code (+ (* code read-quoted-char-radix)
1672 (setq unread-command-events (list char)
1708 ;; the object that was passed in by the caller.
1712 (cursor-in-echo-area t)
1719 (setq c (read-char-exclusive nil t))
1727 (let* ((new-char (char-to-string c))
1728 (new-pass (concat pass new-char)))
1730 (clear-string new-char)
1742 "Read a numeric value in the minibuffer, prompting with PROMPT.
1750 (replace-regexp-in-string "[ \t]*\\'"
1783 in milliseconds; this was useful when Emacs was built without
1818 This works regardless of whether undo is enabled in the buffer.
1821 if undo is enabled in the buffer and BODY succeeds, the
1851 `accept-change-group' to accept the changes in the group as final;
1929 (defun momentary-string-display (string pos &optional exit-char message)
1930 "Momentarily display STRING in the buffer at POS.
1937 Display MESSAGE (optional fourth arg) in the echo area.
1939 (or exit-char (setq exit-char ?\s))
1949 (goto-char pos)
1964 (goto-char pos)
1967 (single-key-description exit-char))
1968 (let (char)
1969 (if (integerp exit-char)
1972 (setq char (read-char))
1973 (or (eq char exit-char)
1974 (setq unread-command-events (list char))))
1976 ;; `exit-char' is a character, hence it differs
1977 ;; from char, which is an event.
1978 (setq unread-command-events (list char))))
1979 ;; `exit-char' can be an event, or an event description
1981 (setq char (read-event))
1982 (or (eq char exit-char)
1983 (eq char (event-convert-list exit-char))
1984 (setq unread-command-events (list char))))))
1987 (delete-region pos insert-end)))
2017 (dolist (o (overlays-in beg end))
2021 ;; or delete it entirely (if it is contained in beg...end).
2045 was displayed in is selected. This hook is normally set up with a
2047 variable names in it, provided the major mode is still Help mode.")
2052 This hook is normally set up with a function to put the buffer in Help
2060 On those systems, it is automatically local in every buffer.
2077 (forward-char 1))
2085 (goto-char (match-end 0))
2091 (forward-char 1))
2101 absolute file name, it is searched in `data-directory'.
2107 :volume VOL - set volume to VOL. VOL must an integer in the
2108 range 0..100 or a float in the range 0..1.0. If not specified,
2121 ;; Quote using double quotes, but escape any existing quotes in
2157 (let ((raw-field (get-char-property (field-beginning pos) 'field)))
2159 (get-char-property (1- (field-end pos)) 'field)
2175 (goto-char start)
2189 (goto-char run-end2))))
2190 (goto-char run-end)))))
2214 the normal insert behavior is modified in various ways. The value of
2229 called with two arguments, the start and end of the current region.
2254 (goto-char opoint)
2263 (goto-char run-end)))))
2268 ;; If last inserted char has properties, mark them as rear-nonsticky.
2282 They default to the values of (point-min) and (point-max) in BUFFER."
2292 They default to the values of (point-min) and (point-max) in BUFFER.
2306 "Start a program in a subprocess. Return the process object for it.
2317 Wildcards and redirection are handled as usual in the shell.
2331 "Execute the shell command COMMAND synchronously in separate process.
2334 Insert output in BUFFER before point; t means current buffer;
2336 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,
2338 while STDERR-FILE says what to do with standard error in the child.
2344 Wildcards and redirection are handled as usual in the shell.
2365 "Execute the forms in BODY with BUFFER temporarily current.
2367 The value returned is the value of the last form in BODY.
2375 "Execute the forms in BODY with WINDOW as the selected window.
2376 The value returned is the value of the last form in BODY.
2383 the selected window in each frame. If the previously selected
2394 ;; frame that window is in.
2411 The value returned is the value of the last form in BODY.
2425 (write-region (point-min) (point-max) ,temp-file nil 0)))
2432 The value returned is the value of the last form in BODY.
2487 ;; in case inhibit-quit is nil.
2508 If BODY makes changes in the buffer, they are recorded
2511 The return value is the value of the last form in BODY.
2514 functions can't be deferred, so in that case this macro has no effect.
2517 in BODY."
2525 "Execute the forms in BODY with TABLE as the current case table.
2526 The value returned is the value of the last form in BODY."
2546 can ignore the value of its argument. If completion is performed in the
2547 minibuffer, FUN will be called in the buffer from which the minibuffer was
2571 ;; not available in subr.el) or use `(lambda (,str) ...) which prevents the use
2572 ;; of lexical-let in the callers.
2584 arguments. FUN must return the completion table that will be stored in VAR.
2585 If completion is requested in the minibuffer, FUN will be called in the buffer
2598 (defmacro complete-in-turn (a b)
2599 "Create a completion table that first tries completion in A and then in B.
2620 ;; that works ok in practice (people should not use that variable elsewhere).
2625 The value returned is the value of the last form in BODY."
2640 NUM specifies which parenthesized expression in the last regexp.
2651 NUM specifies which parenthesized expression in the last regexp.
2679 (narrow-to-region (point-min) start)
2682 (goto-char pos)
2683 (backward-char 1)
2687 (goto-char pos)
2692 "Return non-nil if POS is in a normal subregexp context in REGEXP.
2696 If START is non-nil, it should be a position in REGEXP, smaller
2697 than POS, and known to be in a subregexp context."
2795 ;;;; Replacement in strings.
2797 (defun subst-char-in-string (fromchar tochar string &optional inplace)
2798 "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
2808 (defun replace-regexp-in-string (regexp rep string &optional
2810 "Replace all matches for REGEXP with REP in STRING.
2816 is non-nil, start replacements at that index in STRING.
2826 (replace-regexp-in-string \"\\\\(foo\\\\).*\\\\'\" \"bar\" \" foo foo\" nil nil 1)
2830 ;; To avoid excessive consing from multiple matches in long strings,
2836 ;; operate in a temporary buffer; we can't tell from the function's
2846 ;; If we matched the empty string, make sure we advance by one char
2852 ;; match data directly in Lisp.
2890 saved table is restored, even in case of an abnormal exit.
2909 (let ((table (make-char-table 'syntax-table nil)))
2910 (set-char-table-parent table (or oldtable (standard-syntax-table)))
2914 "Return the raw syntax of the char after POS.
2918 (get-char-property pos 'syntax-table))))
2920 (aref (or st (syntax-table)) (char-after pos))))))
2933 (when (and after (not undo-in-progress) (overlay-start ol1))
2943 (goto-char cbeg)
2971 (goto-char (- (overlay-end ol2) tail))
2974 (delete-region mod-beg (point)))
2990 clone should be incorporated in the clone."
2992 ;; with insert-(behind|in-front-of)-hooks or use a slightly larger overlay
2993 ;; (with a one-char margin at each end) with `t nil'.
2994 ;; We opted for a larger overlay because it behaves better in the case
3085 "Report progress of an operation in the echo area.
3105 MESSAGE is shown in the echo area. When at least 1% of operation
3115 call this function. You should omit it or set it to nil in most
3118 Optional MIN-CHANGE determines the minimal change in percents to
3141 "Report progress of an operation in the echo area unconditionally.
3191 "Print reporter's message followed by word \"done\" in echo area."
3195 "Loop a certain number of times and report progress in the echo area.
3201 printed in the echo area. After the loop is finished, MESSAGE
3279 in `version-regexp-alist'.
3311 (case-fold-search t) ; ignore case in matching