Lines Matching +defs:overlay +defs:buffer
79 When non-nil, all text in the buffer matching the current match
191 (barf-if-buffer-read-only))
203 of the region. Otherwise, operate from point to the end of the buffer.
246 of the region. Otherwise, operate from point to the end of the buffer.
326 of the region. Otherwise, operate from point to the end of the buffer.
340 (barf-if-buffer-read-only)
377 of the region. Otherwise, operate from point to the end of the buffer.
428 of the region. Otherwise, operate from point to the end of the buffer.
465 of the region. Otherwise, operate from point to the end of the buffer.
561 (barf-if-buffer-read-only)
611 well, see below), applies to the part of the buffer after point.
624 end of (the accessible portion of) the buffer. When calling this function
634 (barf-if-buffer-read-only)
672 end of (the accessible portion of) the buffer.
718 (define-key map "r" 'occur-rename-buffer)
719 (define-key map "c" 'clone-buffer)
720 (define-key map "g" 'revert-buffer)
722 (define-key map "z" 'kill-this-buffer)
728 "Arguments to pass to `occur-1' to revert an Occur mode buffer.
744 \\<occur-mode-map>Move point to one of the items in this buffer, then use
754 (set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
761 "Handle `revert-buffer' for Occur mode buffers."
762 (apply 'occur-1 (append occur-revert-arguments (list (buffer-name)))))
768 (unless (buffer-live-p (marker-buffer pos))
782 (with-current-buffer (window-buffer (posn-window (event-end event)))
786 same-window-buffer-names
788 (pop-to-buffer (marker-buffer pos))
795 (switch-to-buffer-other-window (marker-buffer pos))
803 ;; Bind these to ensure `display-buffer' puts it in another window.
804 same-window-buffer-names
806 (setq window (display-buffer (marker-buffer pos)))
826 "Move to the Nth (default 1) next match in an Occur mode buffer."
831 "Move to the Nth (default 1) previous match in an Occur mode buffer."
836 "Move to the Nth (default 1) next match in an Occur mode buffer.
839 ;; we need to run occur-find-match from within the Occur buffer
840 (with-current-buffer
841 ;; Choose the buffer and make it current.
842 (if (next-error-buffer-p (current-buffer))
843 (current-buffer)
844 (next-error-find-buffer nil nil
858 ;; In case the *Occur* buffer is visible in a nonselected window.
859 (let ((win (get-buffer-window (current-buffer) t)))
895 (defcustom list-matching-lines-buffer-name-face 'underline
897 If the value is nil, don't highlight the buffer names specially."
904 "*Text properties to discard when copying lines to the *Occur* buffer.
928 (let ((str (buffer-substring beg end)))
932 (buffer-substring-no-properties beg end))
956 (defun occur-rename-buffer (&optional unique-p interactive-p)
957 "Rename the current *Occur* buffer to *Occur: original-buffer-name*.
958 Here `original-buffer-name' is the buffer name were Occur was originally run.
960 will not clobber the existing buffer(s) of that name, but use
961 `generate-new-buffer-name' instead. You can add this to `occur-hook'
962 if you always want a separate *Occur* buffer for each buffer where you
965 (with-current-buffer
966 (if (eq major-mode 'occur-mode) (current-buffer) (get-buffer "*Occur*"))
967 (rename-buffer (concat "*Occur: "
968 (mapconcat #'buffer-name
974 "Show all lines in the current buffer containing a match for REGEXP.
982 The lines are shown in a buffer named `*Occur*'.
983 It serves as a menu to find any of the occurrences in this buffer.
984 \\<occur-mode-map>\\[describe-mode] in that buffer will explain how.
989 (occur-1 regexp nlines (list (current-buffer))))
995 the buffer names that you want, one by one."
998 (let* ((bufs (list (read-buffer "First buffer to search: "
999 (current-buffer) t)))
1003 (setq buf (read-buffer
1004 (if (eq read-buffer-function 'ido-read-buffer)
1005 "Next buffer to search (C-j to end): "
1006 "Next buffer to search (RET to end): ")
1011 (nreverse (mapcar #'get-buffer bufs)))
1017 Normally BUFREGEXP matches against each buffer's visited file name,
1018 but if you specify a prefix argument, it matches against the buffer name.
1042 (buffer-name buf))
1043 (and (buffer-file-name buf)
1045 (buffer-file-name buf))))
1047 (buffer-list))))))
1054 (when (buffer-live-p buf) buf))
1057 ;; output buffer. Just rename it.
1058 (when (member buf-name (mapcar 'buffer-name active-bufs))
1059 (with-current-buffer (get-buffer buf-name)
1062 ;; Now find or create the output buffer.
1063 ;; If we just renamed that buffer, we will make a new one here.
1064 (setq occur-buf (get-buffer-create buf-name))
1066 (with-current-buffer occur-buf
1070 (buffer-undo-list t))
1071 (erase-buffer)
1077 list-matching-lines-buffer-name-face
1082 (message "Searched %d buffer%s%s; %s match%s for `%s'"
1090 (kill-buffer occur-buf)
1091 (display-buffer occur-buf)
1092 (setq next-error-last-buffer occur-buf)
1093 (setq buffer-read-only t)
1094 (set-buffer-modified-p nil)
1105 (with-current-buffer out-buf
1110 (when (buffer-live-p buf)
1120 (headerpt (with-current-buffer out-buf (point))))
1121 (with-current-buffer buf
1123 ;; Set CODING only if the current buffer locally
1124 ;; binds buffer-file-coding-system.
1125 (not (local-variable-p 'buffer-file-coding-system))
1126 (setq coding buffer-file-coding-system))
1128 (goto-char (point-min)) ;; begin searching in the buffer
1148 (setq curstring (buffer-substring begpt endpt))
1151 (setq curstring (buffer-substring-no-properties begpt endpt)))
1163 ;; so as to override faces copied from the buffer.
1203 (with-current-buffer out-buf
1217 (with-current-buffer out-buf
1221 (insert (format "%d match%s for \"%s\" in buffer: %s\n"
1223 regexp (buffer-name buf)))
1232 ;; CODING is buffer-file-coding-system of the first buffer
1234 ;; buffer.
1235 (set-buffer-file-coding-system coding))
1434 ;; If non-nil, it is marker saying where in the buffer to stop.
1591 (with-output-to-temp-buffer "*Help*"
1599 (with-current-buffer standard-output
1722 ;;; Adding current-buffer is necessary so that match-data calls can
1728 (current-buffer))
1739 (defvar replace-overlay nil)
1744 (if replace-overlay
1745 (move-overlay replace-overlay match-beg match-end (current-buffer))
1746 (setq replace-overlay (make-overlay match-beg match-end))
1747 (overlay-put replace-overlay 'priority 1001) ;higher than lazy overlays
1748 (overlay-put replace-overlay 'face 'query-replace)))
1757 (when replace-overlay
1758 (delete-overlay replace-overlay))