Lines Matching +defs:uncomment +defs:region
326 Closing ones are electric only if the region is highlighted."
575 (defcustom cperl-indent-region-fix-constructs 1
577 in `cperl-indent-region'. Set to nil to leave as is. Values other
584 need to be reformatted into multiline ones when indenting a region."
590 when indenting a region.
597 may be merged to be on the same line when indenting a region."
866 \"as they should\" in a presence of a visible region.
890 6) Indent-region improves inline-comments as well; also corrects
1027 ;; "Active regions" are on: use region only if active
1028 ;; "Active regions" are off: use region unconditionally
1029 (defun cperl-use-region-p ()
1031 (defun cperl-use-region-p ()
1045 (or (fboundp 'uncomment-region)
1046 (defun uncomment-region (beg end)
1048 (comment-region beg end -1)))
1201 (cperl-define-key "\e\C-\\" 'cperl-indent-region))
1210 'indent-region 'cperl-indent-region
1231 ["Line up a construction" cperl-lineup (cperl-use-region-p)]
1259 ["Indent region" cperl-indent-region (cperl-use-region-p)]
1260 ["Comment region" cperl-comment-region (cperl-use-region-p)]
1261 ["Uncomment region" cperl-uncomment-region (cperl-use-region-p)]
1307 ["Syntaxify region" cperl-find-pods-heres-region
1308 (cperl-use-region-p)]
1382 "Display the result of expanding all C macros occurring in the region.
1529 look for active mark and \"embrace\" a region if possible.'
1611 beginning of the region at the start of construction, and make region
1671 `cperl-merge-trailing-else', `cperl-indent-region-fix-constructs'.
1776 (make-local-variable 'indent-region-function)
1777 (setq indent-region-function 'cperl-indent-region)
1829 (or (boundp 'font-lock-unfontify-region-function)
1830 (set 'font-lock-unfontify-region-function
1831 'font-lock-default-unfontify-region))
1833 (make-local-variable 'font-lock-unfontify-region-function)
1834 (set 'font-lock-unfontify-region-function ; not present with old Emacs
1835 'cperl-font-lock-unfontify-region-function))
1851 (make-local-variable 'font-lock-fontify-region-function)
1852 (set 'font-lock-fontify-region-function ; not present with old Emacs
1853 'cperl-font-lock-fontify-region-function))
1854 (make-local-variable 'font-lock-fontify-region-function)
1855 (set 'font-lock-fontify-region-function ; not present with old Emacs
1856 'cperl-font-lock-fontify-region-function)
1994 (defun cperl-comment-region (b e arg)
1995 "Comment or uncomment each line in the region in CPerl mode.
1996 See `comment-region'."
1999 (comment-region b e arg)))
2001 (defun cperl-uncomment-region (b e arg)
2002 "Uncomment or comment each line in the region in CPerl mode.
2003 See `comment-region'."
2006 (comment-region b e (- arg))))
2553 (delete-region (point) p))
2564 (delete-region (point) p))
2575 (narrow-to-region (point)
2652 ;;;(delete-region beg (point))
4873 (defun cperl-find-pods-heres-region (min max)
5080 If `cperl-indent-region-fix-constructs', will improve spacing on
5136 (if cperl-indent-region-fix-constructs
5138 (cperl-indent-region (point) tmp-end))))
5147 (cperl-indent-region-fix-constructs
5148 (or cperl-indent-region-fix-constructs 1))
5169 (delete-region p (point))
5170 (insert (make-string cperl-indent-region-fix-constructs ?\s))
5188 (insert (make-string cperl-indent-region-fix-constructs ?\s))
5197 (insert (make-string cperl-indent-region-fix-constructs ?\s))
5206 (insert (make-string cperl-indent-region-fix-constructs ?\s))
5216 (make-string cperl-indent-region-fix-constructs ?\s))
5260 (make-string cperl-indent-region-fix-constructs ?\s))))
5267 (delete-region pp (point))
5269 (make-string cperl-indent-region-fix-constructs ?\ )))
5346 (defun cperl-indent-region (start end)
5347 "Simple variant of indentation of region in CPerl mode.
5353 If `cperl-indent-region-fix-constructs', will improve spacing on
5394 (if cperl-indent-region-fix-constructs
5466 ;; Narrow to include only the comment, and then fill the region.
5468 (narrow-to-region
5469 ;; Find the first line we should include in the region to fill.
5478 ;; Find the beginning of the first line past the region to fill.
5493 "Bug in Emacs: `looking-at' in `narrow-to-region': match-data is garbage"))
6792 "Lineup construction in a region.
6793 Beginning of region should be at the start of a construction.
6795 partially contained in the region are lined up at the same column.
6811 (indent-region beg end nil)
6922 "Toggle whether `indent-region'/`indent-sexp' fix whitespace too."
6924 (setq cperl-indent-region-fix-constructs
6925 (if cperl-indent-region-fix-constructs
6928 (message "indent-region/indent-sexp will %sbe automatically fix whitespace."
6929 (if cperl-indent-region-fix-constructs "" "not ")))
7182 (delete-region (point)
8148 (delete-region s (point))
8266 (delete-region (point) tmp))
8454 (delete-region pre-A (point)) ; we move to pre-A
8457 (delete-region pre-if post-if)
8458 (delete-region pre-B post-B)
8471 (delete-region (point) (1+ (point)))))
8557 (delete-region pre-B post-B)
8558 (delete-region pre-A post-A)
8732 If a region is highlighted, restricts to the region."
8739 If a region is highlighted, restricts to the region."
8755 (ispell-region s e)
8779 (defun cperl-get-here-doc-region (&optional pos pod)
8780 "Return HERE document region around the point.
8781 Return nil if the point is not in a HERE document region. If POD is non-nil,
8793 "Narrows editing region to the HERE-DOC at POS.
8797 (let ((p (cperl-get-here-doc-region pos)))
8799 (narrow-to-region (car p) (cdr p))
8807 (let ((p (cperl-get-here-doc-region pos t)))
8832 "Times how long it takes to do incremental fontification in a region.
8884 (font-lock-fontify-region (min p pos) (max p pos))
8936 (defun cperl-font-lock-unfontify-region-function (beg end)
8945 (defun cperl-font-lock-fontify-region-function (beg end loudly)
8946 "Extends the region to safe positions, then calls the default function.
8971 (font-lock-default-fontify-region beg end loudly))
9019 ;; Since fontification happens with different region than syntaxification,