Lines Matching +defs:new +defs:args
60 ;; We can't use `generate-new-buffer' because files.el
62 (get-buffer-create (generate-new-buffer-name " *load*"))))
610 FUNC is a function of two args, the start and end (inclusive) of a
653 (defun transform-make-coding-system-args (name type &optional doc-string props)
655 Transform XEmacs style args for `make-coding-system' to Emacs style.
739 "Define a new coding system CODING-SYSTEM (symbol).
908 (let ((args (transform-make-coding-system-args coding-system type
910 (setq coding-system (car args)
911 type (nth 1 args)
912 mnemonic (nth 2 args)
913 doc-string (nth 3 args)
914 flags (nth 4 args)
915 properties (nth 5 args)
916 eol-type (nth 6 args))))
1508 by encode-coding-string, generate a new temp buffer, insert the
1865 (find-new-buffer-file-coding-system last-coding-system-used))
1901 (defun find-new-buffer-file-coding-system (coding)
1908 new-coding new-eol)
1946 (setq new-coding (if (local-variable-p 'buffer-file-coding-system)
1949 (setq new-eol (if (local-variable-p 'buffer-file-coding-system)
1953 (let ((eol-type (coding-system-eol-type new-coding)))
1954 (if (and (numberp new-eol) (vectorp eol-type))
1955 (aref eol-type new-eol)
1956 new-coding)))))))
2061 (defun recode-region (start end new-coding coding)
2071 (or (and new-coding coding)
2074 (check-coding-system new-coding)
2078 (decode-coding-region (point-min) (point-max) new-coding)))
2080 (defun make-translation-table (&rest args)
2099 (while args
2100 (let ((elts (car args)))
2142 (setq args (cdr args)))
2163 (defun define-translation-table (symbol &rest args)
2179 (let ((table (if (and (char-table-p (car args))
2180 (eq (char-table-subtype (car args))
2182 (car args)
2183 (apply 'make-translation-table args)))
2256 (error "Bad args to define-translation-hash-table"))