Lines Matching +refs:region +refs:overlay
137 "*If non-nil, indent the marked region before aligning it."
156 (defcustom align-region-heuristic 500
159 sections (whenever `align-region-separate' is non-nil, and not a
161 point we should search in looking for a region separator. Larger
177 (defcustom align-large-region 10000
178 "*If an integer, defines what constitutes a \"large\" region.
232 (defcustom align-region-separate "^\\s-*[{}]?\\s-*$"
247 The possible settings for `align-region-separate' are:
249 `entire' The entire region being aligned will be considered as a
301 locations of the region in which to look for the section
317 (const :tag "Entire region is one section" entire)
324 (put 'align-region-separate 'risky-local-variable t)
377 ;; in `align-region-separate'
605 alignment section (see `align-region-separate' for a
606 description of how the region is broken up into alignment
672 region. This can save time, since `run-if' will only be
710 within the region to be aligned. Setting the `separate'
711 attribute overrides the value of `align-region-separate'
861 "Attempt to align a region based on a set of alignment rules.
862 BEG and END mark the region. If BEG and END are specifically set to
865 of point, and the value of `align-region-separate' (or possibly each
869 `align-region-separate' for all rules, except those that have their
879 (if (and (symbolp align-region-separate)
880 (boundp align-region-separate))
881 (symbol-value align-region-separate)
882 align-region-separate)
887 (align-region beg end separator
893 (align-region beg end
904 (align-region sec-first sec-last 'entire
911 "Align the current region using an ad-hoc rule read from the minibuffer.
912 BEG and END mark the limits of the region. This function will prompt
932 region, call `align-regexp' and type in that regular expression."
935 (list (region-beginning) (region-end))
959 (align-region beg end 'entire rule nil nil)))
963 "Align the selected region as if it were one alignment section.
964 BEG and END mark the extent of the region. If RULES or EXCLUDE-RULES
975 so saves you from having to specify the region. If RULES or
985 BEG and END mark the extent of the region. TITLE identifies the rule
991 (list (region-beginning) (region-end)
1006 (align-region
1022 (let ((overlay (make-overlay b e)))
1024 (cons overlay align-highlight-overlays))
1025 (overlay-put overlay 'face
1035 (delete-overlay (car align-highlight-overlays))
1043 (let ((separate (or (if (and (symbolp align-region-separate)
1044 (boundp align-region-separate))
1045 (symbol-value align-region-separate)
1046 align-region-separate)
1061 END denotes the end of the region to be searched, while REVERSE, if
1084 documentation for `align-region-separate' for more details."
1140 If FUNC is specified, it will be called with each region that would
1156 If FUNC is non-nil, it will be called for each text region that would
1194 ;; `align-region', all we have to do here is indent.
1219 ;; deleted by `align-region', all we have
1243 (delete-region here (point))
1250 (defun align-region (beg end separate rules exclude-rules
1252 "Align a region based on a given set of alignment rules.
1253 BEG and END specify the region to be aligned. Either may be nil, in
1255 `align-region-separate', and `align-region-heuristic' for more
1258 The region will be divided into separate alignment sections based on
1262 the region, and which text areas within it should be excluded from
1266 If FUNC is specified, no text will be modified. What `align-region'
1269 first with the beginning and ending of the region to be aligned
1272 text region that the rule would have applied to.
1278 Otherwise BEG to END will be a region of text that matches the rule's
1290 (report (and (not func) align-large-region beg end
1291 (>= (- end beg) align-large-region)))
1295 (indent-region real-beg end-mark nil))
1325 ;; current alignment region should be. Depending on the
1326 ;; value of `align-region-separate' it's possible for
1332 (error "Cannot determine alignment region for '%s'"
1342 (and align-region-heuristic
1344 align-region-heuristic))))
1361 (and align-region-heuristic
1363 align-region-heuristic))))
1378 ;; If we have a region to align, and `func' is set and
1379 ;; reports back that the region is ok, then align it.
1385 ;; lie in this region
1389 ;; the call to `align-region' below will
1395 (align-region
1415 ;; region..
1423 ;; are, if it's a very large region being
1515 ;; check whether the region to be aligned
1543 ;; record this text region for alignment
1545 (let ((region (cons b e))
1555 (cons region
1560 (list (list region)))
1563 (list (list region)))