Lines Matching +defs:downcase +defs:region
74 (defcustom sc-auto-fill-region-p t
219 "*Default REGI frame for citing a region."
230 "*Default REGI frame for unciting a region."
247 "*Default REGI frame for reciting a region."
252 (defcustom sc-cite-region-limit t
256 non-nil -- cite the entire region, regardless of its size
257 nil -- do not cite the region at all
259 the number of lines in the region is greater than this
260 value, a warning message will be printed and the region
261 will not be cited. Lines in region are counted with
265 of this variable. The number of lines in the region is calculated
286 (defcustom sc-downcase-p nil
287 "*Non-nil means downcase the attribution and citation strings."
452 "*Hook to run before citing a region of text."
457 "*Hook to run before unciting a region of text."
462 "*Hook to run before reciting a region of text."
549 (define-key map "d" 'sc-T-downcase)
551 (define-key map "f" 'sc-T-auto-fill-region)
553 (define-key map "l" 'sc-S-cite-region-limit)
567 (define-key map "c" 'sc-cite-region)
573 (define-key map "r" 'sc-recite-region)
575 (define-key map "u" 'sc-uncite-region)
661 (if char (setq char (downcase char)))
739 (let* ((key (downcase (match-string-no-properties 1 curline)))
771 (delete-region (line-beginning-position) (line-beginning-position 2))
795 (delete-region (line-beginning-position)
1278 ;; its possible that the user wants to downcase the citation and
1280 (if sc-downcase-p
1281 (setq citation (downcase citation)
1282 attribution (downcase attribution)))
1351 "Fill the region bounded by `sc-fill-begin' and point.
1353 If `sc-auto-fill-region-p' is nil, do not fill region. If PREFIX is
1359 (if (and sc-auto-fill-region-p
1363 (fill-region sc-fill-begin (line-beginning-position)))
1377 (delete-region
1389 (delete-region (match-beginning 1) (match-end 1))
1418 (delete-region (match-beginning 0) (match-end 0)))
1438 (delete-region (match-beginning 0) (match-end 0))))
1446 (delete-region (match-beginning 0) (match-end 0)))
1452 (defun sc-cite-region (start end &optional confirm-p interactive)
1453 "Cite a region delineated by START and END.
1472 (defun sc-uncite-region (start end)
1473 "Uncite a region delineated by START and END.
1484 (defun sc-recite-region (start end)
1485 "Recite a region delineated by START and END.
1805 `sc-fixup-whitespace-p' and `sc-auto-fill-region-p'"
1808 sc-auto-fill-region-p (not sc-auto-fill-region-p))
1861 (sc-toggle-symbol "downcase")
1863 (sc-toggle-symbol "auto-fill-region")
1874 (sc-setvar-symbol "cite-region-limit")
1899 :lighter (" SC" (sc-auto-fill-region-p
1926 For Emacs 19's, the region need not be active (and typically isn't
1935 ;; grab point and mark since the region is probably not active when
1961 ;; cite the region, but first check the value of sc-cite-region-limit
1963 (and sc-cite-region-limit
1964 (if (or (not (numberp sc-cite-region-limit))
1965 (<= linecnt sc-cite-region-limit))
1967 ;; cite the region and insert the header rewrite
1968 (sc-cite-region point mark)
1976 "Region not cited. %d lines exceeds sc-cite-region-limit: %d"
1977 linecnt sc-cite-region-limit))))
2051 'sc-auto-fill-region-p
2061 'sc-cite-region-limit
2065 'sc-downcase-p