Lines Matching defs:char
124 ogonek-prefix-char /
131 (setq ogonek-prefix-char ?/)
170 (goto-char (point-min)))
204 (region-beginning) (region-end) from-code-name prefix-char)
205 (ogonek-prefixify-buffer from-code-name prefix-char)
211 (region-beginning) (region-end) prefix-char to-code-name)
212 (ogonek-prefixify-buffer prefix-char to-code-name)
224 ogonek-prefix-char /
231 (setq ogonek-prefix-char ?/)
268 (goto-char (point-min)))
284 (defcustom ogonek-prefix-char ?/
320 (char-to-string (eval default-prefix-var))))))
327 (string-to-char prefix-string)))
410 (defun ogonek-prefixify-region (start end from-encoding prefix-char)
420 (ogonek-read-prefix "Prefix character" 'ogonek-prefix-char))))
424 (recoding-pairs ; `ogonek-prefix-char' added for doubling
426 (cons prefix-char from-code)
427 (cons prefix-char to-code))))
429 (goto-char start)
431 (let ((pair (assoc (following-char) recoding-pairs)))
434 (forward-char 1)
436 (delete-char 1)
437 (insert ogonek-prefix-char)
442 (defun ogonek-prefixify-buffer (from-encoding prefix-char)
447 (ogonek-read-prefix "Prefix character" 'ogonek-prefix-char))))
449 (point-min) (point-max) from-encoding prefix-char))
451 (defun ogonek-deprefixify-region (start end prefix-char to-encoding)
462 "Prefix character" 'ogonek-prefix-char)
470 (cons prefix-char from-code)
471 (cons prefix-char to-code))))
473 (goto-char start)
475 (forward-char 1)
476 (if (or (not (= (preceding-char) prefix-char)) (= (point) end))
480 (let ((pair (assoc (following-char) recoding-pairs)))
482 ;; `following-char' is not a Polish character nor it is
483 ;; `prefix-char' since the one is among `recoding-pairs'
484 (forward-char 1)
487 (backward-char 1)
488 (delete-char 2)
493 (defun ogonek-deprefixify-buffer (prefix-char to-encoding)
497 (ogonek-read-prefix "Prefix character" 'ogonek-prefix-char)
500 (point-min) (point-max) prefix-char to-encoding))