Lines Matching +defs:upcase +defs:region
147 ;; a pre-selected region.
501 (const upcase)
507 (defcustom idlwave-completion-case '((routine . upcase)
508 (keyword . upcase)
521 upcase upcase whole word, like `BOX_CURSOR'
814 Set to nil by `idlwave-expand-region-abbrevs'. To see the abbrev
828 If `idlwave-reserved-word-upcase' is non-nil, reserved words will always be
833 (defcustom idlwave-reserved-word-upcase nil
1532 (define-key idlwave-mode-map "\C-c;" 'idlwave-toggle-comment-region)
1572 'idlwave-shell-run-region)))
1575 (define-key idlwave-mode-map "\C-c\C-d\C-e" 'idlwave-shell-run-region)
1594 (autoload 'idlwave-shell-run-region "idlw-shell"
1595 "Compile and run the region." t)
1816 \\[idlwave-expand-region-abbrevs]. Then mark the entire buffer
1817 again followed by \\[indent-region] (`indent-region').
1876 `idlwave-reserved-word-upcase' and `idlwave-abbrev-change-case'.
1960 (set (make-local-variable 'font-lock-fontify-region-function)
1961 'idlwave-font-lock-fontify-region)
2023 (defun idlwave-font-lock-fontify-region (beg end &optional verbose)
2033 (font-lock-default-fontify-region beg end verbose))
2073 `idlwave-reserved-word-upcase' is non-nil.
2081 (if (and reserved idlwave-reserved-word-upcase)
2082 (upcase-region last-abbrev-location (point))
2085 (downcase-region last-abbrev-location (point)))
2087 (upcase-region last-abbrev-location (point)))))
2122 (defun idlwave-region-active-p ()
2123 "Is transient-mark-mode on and the region active?
2126 (and zmacs-regions (region-active-p))
2197 (insert (if (string= end "END") (upcase end1) end1))
2287 (narrow-to-region (point) here))
2837 ;; manually using expand-region-abbrevs.
2904 (indent-region beg (point) nil))
2914 (indent-region beg (point) nil))))
3354 ;; fill-region needs END to be at the beginning of line after
3432 ;; In place of the more modern fill-region-as-paragraph, a hack
3439 (subst-char-in-region start (+ start first-indent -1) ?\ ?~ nil)
3440 (fill-region-as-paragraph
3445 (delete-region start (+ start first-indent -1))
3449 ;; body fill-region will put it at the beginning of the line.
3666 ;;; Interface to expand-region-abbrevs which did not work when the
3675 (defun idlwave-expand-region-abbrevs (start end)
3676 "Expand each abbrev occurrence in the region.
3683 (expand-region-abbrevs start end 'noquery))))
3772 The lines containing S1 and S2 are reindented using `indent-region'
3784 (setq s1 (upcase s1) s2 (upcase s2))))
3794 (indent-region beg end nil))
3799 "Make STRING have the case required by `idlwave-reserved-word-upcase'."
3800 (if idlwave-reserved-word-upcase
3801 (upcase string)
4088 (defun idlwave-toggle-comment-region (beg end &optional n)
4089 "Comment the lines in the region if the first non-blank line is
4090 commented, and conversely, uncomment region. If optional prefix arg
4093 Uses `comment-region' which does not place comment delimiters on
4097 (comment-region beg end (prefix-numeric-value n))
4104 (if (fboundp 'uncomment-region)
4105 (uncomment-region beg end)
4106 (comment-region beg end
4110 (comment-region beg end)))))
6079 (string= (upcase name) "OBJ_NEW"))
6391 (upcase (car info))
6596 (narrow-to-region (max 1 (or bound 0)) (point-max))
6762 (delete-region beg end)
6945 (string< (upcase a) (upcase b))))))
6956 (string< (upcase a) (upcase b))))))
7298 (narrow-to-region beg end)
7327 (narrow-to-region beg end)
8198 If yes, and if the cursor is in the keyword region, change to the
8228 (if (and (equal (upcase name) "OBJ_NEW")
9167 ["(Un)Comment Region" idlwave-toggle-comment-region t]