/macosx-10.9.5/emacs-92/emacs/lisp/ |
H A D | macros.el | 89 (goto-char beg) 91 (let ((char (following-char))) 92 (cond ((= char 0) 95 ((< char 27) 97 (insert "\\C-" (+ 96 char))) 98 ((= char ?\C-\\) 101 ((< char 32) 103 (insert "\\C-" (+ 64 char))) 104 ((< char 12 [all...] |
H A D | case-table.el | 45 (let ((description (make-char-table 'case-table))) 46 (map-char-table 54 (char-to-string (downcase key)))) 55 ((/= key (upcase key)) 57 (char-to-string (upcase key)))) 66 (defun get-upcase-table (case-table) 67 "Return the upcase table of CASE-TABLE." 68 (or (char-table-extra-slot case-table 0) 75 (char [all...] |
H A D | tmm.el | 125 (defcustom tmm-shortcut-style '(downcase upcase) 127 Must be either one of the symbols `downcase' or `upcase', 130 (const upcase) 131 (repeat (choice (const downcase) (const upcase)))) 136 If you use only one of `downcase' or `upcase' for `tmm-shortcut-style', 296 (pos 0) (word 0) char) 308 (while shortcut-style ; try upcase and downcase variants 309 (setq char (funcall (car shortcut-style) (aref str pos))) 310 (if (not (memq char tmm-short-cuts)) (throw 'done char)) [all...] |
H A D | completion.el | 427 ((eq case-type :up) (upcase string)) 495 ;; char., however, we wanted to have completion symbols include pointer 534 (dolist (char symbol-chars) 535 (modify-syntax-entry char "_" table)) 536 (dolist (char symbol-chars-ignore) 537 (modify-syntax-entry char "w" table))) 556 (when (memq (char-syntax (following-char)) '(?w ?_)) 557 ;; Cursor is on following-char and after preceding-char [all...] |
H A D | isearch.el | 312 (char-table-p (nth 1 map)) 318 (set-char-table-default table (car l) 'isearch-printing-char) 322 (define-key map [t] 'isearch-other-control-char) 328 (define-key map (make-string 1 i) 'isearch-other-control-char) 334 (define-key map (vector i) 'isearch-printing-char) 337 ;; To handle local bindings with meta char prefix keys, define 339 ;; keys as well, one full keymap per char of the prefix key. It 343 (define-key map (char-to-string meta-prefix-char) met [all...] |
H A D | simple.el | 425 (not (get-char-property (1- (point)) 'modification-hooks)) 426 (not (get-char-property (1- (point)) 'insert-behind-hooks)) 428 (not (get-char-property (point) 'insert-in-front-hooks))) 430 (not (get-char-property (1- (point)) 'intangible)) 432 (not (get-char-property (1- (point)) 'read-only)) 434 (not (get-char-property (1- (point)) 'invisible)) 436 ;; properties as the char before it (if any). 442 (if flag (backward-char 1)) 444 ;; Set last-command-char to tell self-insert what to insert. 445 (let ((last-command-char [all...] |
H A D | calculator.el | 339 (defvar calculator-char-radix 641 * \"??\": (? is D/B/O/H) 1st char for input radix, 2nd for display. 857 (char-to-string 859 calculator-char-radix))) 863 (char-to-string 865 calculator-char-radix))) 867 (char-to-string 869 calculator-char-radix)))))) 903 (let* ((ch (upcase (aref str i))) 1025 (defun calculator-standard-displayer (num char) [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/mail/ |
H A D | mail-utils.el | 73 (upcase (format "=%02x" 82 (defun mail-unquote-printable-hexdigit (char) 83 (setq char (upcase char)) 84 (if (>= char ?A) 85 (+ (- char ?A) 10) 86 (- char ?0))) 127 (goto-char (point-min)) 133 (goto-char (matc [all...] |
H A D | mail-extr.el | 512 (let ((char (nth 0 item)) 515 (while (<= char bound) 516 (modify-syntax-entry char syntax syntax-table) 517 (setq char (1+ char)))))))) 608 ;; regexp char classes). 623 (goto-char (point-min)) 626 (delete-char -1) 628 (forward-char 1)))))) 630 (defsubst mail-extr-nuke-char [all...] |
/macosx-10.9.5/vim-53/runtime/syntax/ |
H A D | monk.vim | 84 syn keyword monkFunc inexact->exact number->string string->number char=? 85 syn keyword monkFunc char-ci=? char<? char-ci<? char>? char-ci>? char<=? 86 syn keyword monkFunc char-ci<=? char>=? char [all...] |
H A D | readline.vim | 81 \ beginning-of-line end-of-line forward-char 82 \ backward-char forward-word backward-word 93 \ delete-char backward-delete-char 94 \ forward-backward-delete-char quoted-insert 96 \ transpose-words upcase-word downcase-word 106 \ menu-complete delete-char-or-list 115 \ vi-complete vi-char-search vi-redo 123 \ vi-search-again vi-put vi-change-char 127 \ delete-char [all...] |
H A D | lisp.vim | 106 syn keyword lispFunc alpha-char-p function pushnew 121 syn keyword lispFunc array-dimensions get-output-stream-string read-char 122 syn keyword lispFunc array-displacement get-properties read-char-no-hang 129 syn keyword lispFunc array-total-size graphic-char-p reader-error 142 syn keyword lispFunc base-char if-exists remove-duplicates 155 syn keyword lispFunc bit-orc2 int-char restart-name 176 syn keyword lispFunc boole-xor lcm set-char-bit 182 syn keyword lispFunc broadcast-stream-streams least-negative-normalized-double-float set-syntax-from-char 202 syn keyword lispFunc char list simple-condition-format-arguments 203 syn keyword lispFunc char [all...] |
H A D | scheme.vim | 90 syn keyword schemeFunc inexact->exact number->string string->number char=? 91 syn keyword schemeFunc char-ci=? char<? char-ci<? char>? char-ci>? char<=? 92 syn keyword schemeFunc char-ci<=? char>=? char [all...] |
H A D | tcsh.vim | 83 syn keyword tcshBindkeyFuncs contained backward-char backward-delete-char 88 \ copy-prev-word copy-region-as-kill dabbrev-expand delete-char 89 \ delete-char-or-eof delete-char-or-list 90 \ delete-char-or-list-or-eof delete-word digit digit-argument 93 \ expand-variables forward-char forward-word 102 \ stuff-char toggle-literal-history transpose-chars 105 \ undefined-key universal-argument up-history upcase-word 108 \ vi-delprev vi-delmeta vi-endword vi-eword vi-char [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/emulation/ |
H A D | viper-util.el | 83 (fset 'viper-int-to-char (symbol-function 'int-to-char)) 101 (fset 'viper-int-to-char (symbol-function 'identity)) 112 ;; CHAR is supposed to be a char or an integer (positive or negative) 117 (defun viper-memq-char (char list) 118 (cond ((and (integerp char) (>= char 0)) 119 (memq (viper-int-to-char char) lis [all...] |
H A D | viper-cmd.el | 95 (consp (viper-memq-char com ,nms) 225 viper-del-backward-char-in-insert 226 viper-del-backward-char-in-replace 227 viper-delete-backward-char 229 viper-delete-char)) 286 ;; viper-delete-backward-char, etc., since they either don't change 296 (goto-char viper-last-posn-in-replace-region) 298 (delete-char viper-replace-chars-to-delete) 376 (or (bolp) (viper-beginning-of-field) (backward-char 1)))) 437 "\C-h" 'viper-del-backward-char [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/gnus/ |
H A D | mm-url.el | 298 (goto-char (point-min)) 319 (goto-char (point-min)) 365 (goto-char (point-min)) 377 (goto-char (point-min)) 383 (if (mm-char-or-char-int-p c) c 32)) 388 (setq elem (char-to-string elem))) 412 (lambda (char) 414 ((= char ? ) "+") 415 ((memq char m [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/eshell/ |
H A D | em-pred.el | 126 (mapcar 'upcase lst))) 151 (forward-char) 152 (if (eq (char-before) ?s) 176 %x file type == `x' (as by ls -l; so `c' = char device, etc.) 284 (when (eq (char-after) ?\() 285 (forward-char) 305 (goto-char (1+ end)) 323 (let ((char (char-after))) 325 ((eq char [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/textmodes/ |
H A D | ispell.el | 110 ;; ispell-parsing-keyword mode-arg extended-char-arg 419 (defcustom ispell-format-word-function (function upcase) 778 (goto-char (point-min)) 791 (goto-char (point-min)) 816 (goto-char (point-min)) 1166 (fboundp 'int-char)) 1167 (fset 'ispell-int-char 'int-char) 1169 (fset 'ispell-int-char 'identity)) 1200 (put 'ispell-unified-chars-table 'char [all...] |
H A D | reftex-index.el | 69 key def-char def-tag full-entry) 85 (setq def-char (if use-default (car reftex-index-default-macro))) 94 (reftex-index def-char full-entry def-tag sel))))) 96 (defun reftex-index (&optional char key tag sel no-insert) 110 (let* ((char (or char 111 (reftex-select-with-char reftex-query-index-macro-prompt 113 (macro (nth 1 (assoc char reftex-key-to-index-macro-alist))) 115 (error "No index macro associated with %c" char))) 247 (setq rpl (reftex-select-with-char promp [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/emacs-lisp/ |
H A D | lisp-mode.el | 164 (if (eq (char-after startpos) ?|) 170 (goto-char listbeg) 180 (goto-char (match-end 1)) 182 (goto-char listbeg) 183 (forward-char 1) 264 (define-key map "\177" 'backward-delete-char-untabify) 268 ;;;(define-key map [backspace] 'backward-delete-char-untabify) 490 (end (or (next-single-char-property-change (point) 'printed-value) (point))) 501 (goto-char (min (point-max) point))))))) 503 (defun prin1-char (cha [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/play/ |
H A D | mpuz.el | 347 (goto-char (point-min))) 351 (let ((char (if (mpuz-digit-solved-p digit) 362 (insert char) 364 (delete-char 1)) 432 (let (letter-char digit digit-char message) 433 (setq letter-char (upcase last-command-char) 434 digit (mpuz-to-digit (- letter-char [all...] |
H A D | decipher.el | 232 (defvar decipher-char nil 234 (defvar decipher--prev-char) 252 (goto-char (point-max)) 256 (goto-char (point-min)) 275 (upcase-region begin (point))) ;Convert ciphertext to uppercase 326 (defmacro decipher-last-command-char () 327 ;; Return the char which ran this command (for compatibility with XEmacs) 340 (let ((first-char (following-char))) 342 ((= ?: first-char) [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/progmodes/ |
H A D | idlwave.el | 166 (unless (fboundp 'char-valid-p) 167 (defalias 'char-valid-p 'characterp)) 501 (const upcase) 507 (defcustom idlwave-completion-case '((routine . upcase) 508 (keyword . upcase) 521 upcase upcase whole word, like `BOX_CURSOR' 758 (defcustom idlwave-abbrev-start-char "\\" 828 If `idlwave-reserved-word-upcase' is non-nil, reserved words will always be 833 (defcustom idlwave-reserved-word-upcase ni [all...] |
/macosx-10.9.5/emacs-92/emacs/lisp/net/ |
H A D | rcirc.el | 468 (goto-char (point-max)) 785 (goto-char rcirc-prompt-end-marker) 827 (goto-char rcirc-prompt-start-marker) 929 (goto-char (point-max)) 934 (goto-char (point-max)) 938 (delete-backward-char 1)) 988 (goto-char (point-max)) 998 (and (> pos 0) (goto-char pos)) 1032 (goto-char (point-max)) 1036 (goto-char ( [all...] |