Lines Matching defs:chars
247 (defun compose-chars (&rest args)
312 (defun compose-chars-after (pos &optional limit object)
334 This function is the default value of `compose-chars-after-function'."
353 (defun compose-last-chars (args)
356 \(compose-last-chars N COMPONENTS),
359 \(which see). If it is nil, `compose-chars-after' is called,
362 The global keymap binds special event `compose-last-chars' to this
363 function. Input method may generate an event (compose-last-chars N COMPONENTS)
366 (let ((chars (nth 1 args)))
367 (if (and (numberp chars)
368 (>= (- (point) (point-min)) chars))
370 (compose-region (- (point) chars) (point) (nth 2 args))
371 (compose-chars-after (- (point) chars) (point))))))
373 ;;;###autoload(global-set-key [compose-last-chars] 'compose-last-chars)