Lines Matching +defs:define +defs:abbrev +defs:table
52 ;; not define them, so you need to define them manually.
60 ;; (define-key global-map [M-S-down-mouse-3] 'imenu)
360 Uses `abbrev-mode' to do the expansion. If you want to use your
362 electric, you must redefine `cperl-mode-abbrev-table': do
363 \\[edit-abbrevs], search for `cperl-mode-abbrev-table', and, in
525 (defcustom cperl-use-syntax-table-text-property
527 "*Non-nil means CPerl sets up and uses `syntax-table' text property."
531 (defcustom cperl-use-syntax-table-text-property-for-tags
532 cperl-use-syntax-table-text-property
533 "*Non-nil means: set up and use `syntax-table' text property generating TAGS."
805 that Emacs 20.2 has some bugs related to `syntax-table' text
811 via `cperl-use-syntax-table-text-property'.")
816 0) It uses the newest `syntax-table' property ;-);
820 with old Emaxen which do not support `syntax-table' property.
822 When using `syntax-table' property for syntax assist hints, it should
887 not needed anymore with the support for `syntax-table' property. Has
932 `cperl-use-syntax-table-text-property'
942 `cperl-use-syntax-table-text-property'
1009 (defmacro cperl-define-key (emacs-key definition &optional xemacs-key)
1010 `(define-key cperl-mode-map
1125 (defvar cperl-mode-abbrev-table nil
1126 "Abbrev table in use in CPerl mode buffers.")
1134 (cperl-define-key "{" 'cperl-electric-lbrace)
1135 (cperl-define-key "[" 'cperl-electric-paren)
1136 (cperl-define-key "(" 'cperl-electric-paren)
1137 (cperl-define-key "<" 'cperl-electric-paren)
1138 (cperl-define-key "}" 'cperl-electric-brace)
1139 (cperl-define-key "]" 'cperl-electric-rparen)
1140 (cperl-define-key ")" 'cperl-electric-rparen)
1141 (cperl-define-key ";" 'cperl-electric-semi)
1142 (cperl-define-key ":" 'cperl-electric-terminator)
1143 (cperl-define-key "\C-j" 'newline-and-indent)
1144 (cperl-define-key "\C-c\C-j" 'cperl-linefeed)
1145 (cperl-define-key "\C-c\C-t" 'cperl-invert-if-unless)
1146 (cperl-define-key "\C-c\C-a" 'cperl-toggle-auto-newline)
1147 (cperl-define-key "\C-c\C-k" 'cperl-toggle-abbrev)
1148 (cperl-define-key "\C-c\C-w" 'cperl-toggle-construct-fix)
1149 (cperl-define-key "\C-c\C-f" 'auto-fill-mode)
1150 (cperl-define-key "\C-c\C-e" 'cperl-toggle-electric)
1151 (cperl-define-key "\C-c\C-b" 'cperl-find-bad-style)
1152 (cperl-define-key "\C-c\C-p" 'cperl-pod-spell)
1153 (cperl-define-key "\C-c\C-d" 'cperl-here-doc-spell)
1154 (cperl-define-key "\C-c\C-n" 'cperl-narrow-to-here-doc)
1155 (cperl-define-key "\C-c\C-v" 'cperl-next-interpolated-REx)
1156 (cperl-define-key "\C-c\C-x" 'cperl-next-interpolated-REx-0)
1157 (cperl-define-key "\C-c\C-y" 'cperl-next-interpolated-REx-1)
1158 (cperl-define-key "\C-c\C-ha" 'cperl-toggle-autohelp)
1159 (cperl-define-key "\C-c\C-hp" 'cperl-perldoc)
1160 (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point)
1161 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
1162 (cperl-define-key [?\C-\M-\|] 'cperl-lineup
1164 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
1165 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
1166 (cperl-define-key "\177" 'cperl-electric-backspace)
1167 (cperl-define-key "\t" 'cperl-indent-command)
1169 (cperl-define-key "\C-c\C-hF" 'cperl-info-on-command
1173 (cperl-define-key "\C-hf"
1177 (cperl-define-key "\C-hv"
1181 (cperl-define-key "\C-c\C-hf"
1185 (cperl-define-key "\C-c\C-hv"
1189 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
1191 (cperl-define-key "\C-c\C-hv"
1199 ;;;;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
1200 (cperl-define-key "\e;" 'cperl-indent-for-comment)
1201 (cperl-define-key "\e\C-\\" 'cperl-indent-region))
1222 (easy-menu-define
1235 cperl-use-syntax-table-text-property]
1237 cperl-use-syntax-table-text-property]
1239 cperl-use-syntax-table-text-property]
1241 cperl-use-syntax-table-text-property]
1243 cperl-use-syntax-table-text-property]
1245 cperl-use-syntax-table-text-property]
1316 ;;["Update classes" (cperl-tags-hier-init t) tags-table-list]
1355 ["Electric keywords" cperl-toggle-abbrev t]
1458 (defvar cperl-mode-syntax-table nil
1459 "Syntax table in use in CPerl mode buffers.")
1461 (defvar cperl-string-syntax-table nil
1462 "Syntax table in use in CPerl mode string-like chunks.")
1470 (if cperl-mode-syntax-table
1472 (setq cperl-mode-syntax-table (make-syntax-table))
1473 (modify-syntax-entry ?\\ "\\" cperl-mode-syntax-table)
1474 (modify-syntax-entry ?/ "." cperl-mode-syntax-table)
1475 (modify-syntax-entry ?* "." cperl-mode-syntax-table)
1476 (modify-syntax-entry ?+ "." cperl-mode-syntax-table)
1477 (modify-syntax-entry ?- "." cperl-mode-syntax-table)
1478 (modify-syntax-entry ?= "." cperl-mode-syntax-table)
1479 (modify-syntax-entry ?% "." cperl-mode-syntax-table)
1480 (modify-syntax-entry ?< "." cperl-mode-syntax-table)
1481 (modify-syntax-entry ?> "." cperl-mode-syntax-table)
1482 (modify-syntax-entry ?& "." cperl-mode-syntax-table)
1483 (modify-syntax-entry ?$ "\\" cperl-mode-syntax-table)
1484 (modify-syntax-entry ?\n ">" cperl-mode-syntax-table)
1485 (modify-syntax-entry ?# "<" cperl-mode-syntax-table)
1486 (modify-syntax-entry ?' "\"" cperl-mode-syntax-table)
1487 (modify-syntax-entry ?` "\"" cperl-mode-syntax-table)
1489 (modify-syntax-entry ?_ "w" cperl-mode-syntax-table))
1490 (modify-syntax-entry ?: "_" cperl-mode-syntax-table)
1491 (modify-syntax-entry ?| "." cperl-mode-syntax-table)
1492 (setq cperl-string-syntax-table (copy-syntax-table cperl-mode-syntax-table))
1493 (modify-syntax-entry ?$ "." cperl-string-syntax-table)
1494 (modify-syntax-entry ?\{ "." cperl-string-syntax-table)
1495 (modify-syntax-entry ?\} "." cperl-string-syntax-table)
1496 (modify-syntax-entry ?# "." cperl-string-syntax-table)) ; (?# comment )
1695 (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f])
1696 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
1701 (define-abbrev-table 'cperl-mode-abbrev-table '(
1723 (setq local-abbrev-table cperl-mode-abbrev-table)
1725 (abbrev-mode 1))
1726 (set-syntax-table cperl-mode-syntax-table)
1823 (if cperl-use-syntax-table-text-property
1843 ;; used to ignore syntax-table text-properties. (t) is a hack
1942 phony (eq (get-text-property (point) 'syntax-table)
2142 (and abbrev-mode ; later it is too late, may be after `for'
2143 (expand-abbrev))
2217 (and cperl-use-syntax-table-text-property
2292 (or (not cperl-use-syntax-table-text-property)
2350 (and cperl-use-syntax-table-text-property
2463 (setq res (expand-abbrev))
3026 (what (cadr what)) ; Load from table
3417 (put-text-property at (1+ at) 'syntax-table how)
3418 (put-text-property at (1+ at) 'rear-nonsticky '(syntax-table)))))
3425 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
3428 (if cperl-use-syntax-table-text-property
3440 'syntax-table cperl-string-syntax-table))
3453 (defun cperl-cached-syntax-table (st)
3454 "Get a syntax table cached in ST, or create and cache into ST a syntax table.
3455 All the entries of the syntax table are \".\", except for a backslash, which
3459 (setcar st (make-syntax-table))
3476 cached syntax table in ST-L. If ERR-L is non-nil, will store the
3491 (setq st (cperl-cached-syntax-table st-l))
3495 ;; Prepare the syntax table:
3508 (setq reset-st (syntax-table))
3509 (set-syntax-table st)
3513 (set-syntax-table reset-st)
3552 (set-syntax-table reset-st))
3580 (setq st (cperl-cached-syntax-table st-l))
3583 (setq reset-st (syntax-table))
3584 (set-syntax-table st)
3594 (set-syntax-table reset-st))
3703 (setq st (cperl-cached-syntax-table st-l))
3706 (setq reset-st (syntax-table) p (point))
3707 (set-syntax-table st)
3709 (set-syntax-table reset-st)
3740 (set-syntax-table reset-st))))
3850 (if cperl-use-syntax-table-text-property
3893 '(syntax-type t in-pod t syntax-table t
3973 max e '(syntax-type t in-pod t syntax-table t
4264 cperl-use-syntax-table-text-property
4591 (if (and cperl-use-syntax-table-text-property
4595 'syntax-table cperl-st-punct))
4695 (if (and cperl-use-syntax-table-text-property
4699 'syntax-table cperl-st-punct))
4725 (if cperl-use-syntax-table-text-property
4728 'syntax-table cperl-st-punct))
4753 (if cperl-use-syntax-table-text-property
4757 'syntax-table cperl-st-cfence)
4761 'syntax-table cperl-st-cfence))))
4829 (put-text-property (1- bb) bb 'syntax-table cperl-st-word)
4867 ;; because it resets the syntax-table from font-lock-syntax-table to
4868 ;; cperl-mode-syntax-table.
4869 ;; (set-syntax-table cperl-mode-syntax-table)
5385 (not (eq (get-text-property (point) 'syntax-table)
5402 'syntax-table)
5583 (null (get-text-property (match-beginning 1) 'syntax-table))
5898 ;; "#include" "#define" "#undef")
6893 (defun cperl-toggle-abbrev ()
6896 (abbrev-mode (if abbrev-mode 0 1))
6898 (if abbrev-mode "" "not ")))
6960 (set-syntax-table cperl-mode-syntax-table)
6963 (if cperl-use-syntax-table-text-property-for-tags
7027 (if (and cperl-use-syntax-table-text-property-for-tags
7134 (visit-tags-table-buffer)
7135 (visit-tags-table-buffer tags-file-name)))
7193 (if (fboundp 'initialize-new-tags-table) ; Do we need something special in XEmacs?
7194 (initialize-new-tags-table))))))
7212 ;; Suppose we are in a tag table cooked by cperl.
7273 (call-interactively 'visit-tags-table))
7277 (or tags-table-list
7278 (call-interactively 'visit-tags-table))
7285 tags-table-list)
8178 cperl-use-syntax-table-text-property)
8296 (or cperl-use-syntax-table-text-property
9041 (if (and cperl-use-syntax-table-text-property