| /macosx-10.10.1/emacs-93/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.10.1/emacs-93/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.10.1/vim-55/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.10.1/emacs-93/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.10.1/emacs-93/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.10.1/emacs-93/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.10.1/emacs-93/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.10.1/emacs-93/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.10.1/emacs-93/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.10.1/emacs-93/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.10.1/emacs-93/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...] |