Lines Matching defs:read
529 ;; Handle missing 'read-event' function.
531 (fset 'po-read-event
532 (cond ((fboundp 'read-event)
534 'read-event)
540 'read-char))))
621 (buffer-read-only nil)
656 (buffer-read-only nil)
684 ;; PO buffers are kept read-only to prevent random modifications. READ-ONLY
685 ;; holds the value of the read-only flag before PO mode was entered.
686 (defvar po-read-only)
725 ;; in a format suitable for read completion. Each directory includes
733 ;; be used for completing read, FILE is a string and LINE is a number.
984 "List of auxiliary PO files, in completing read format.")
1163 (set (make-local-variable 'po-read-only) buffer-read-only)
1164 (setq buffer-read-only t)
1347 (let ((buffer-read-only po-read-only)
1389 (let* ((buffer-read-only po-read-only)
1497 (let ((buffer-read-only po-read-only))
1515 (let ((buffer-read-only po-read-only))
1933 (let ((buffer-read-only po-read-only))
1954 (let ((buffer-read-only po-read-only))
2003 (let ((buffer-read-only po-read-only))
2020 (let ((buffer-read-only po-read-only))
2077 (let ((buffer-read-only po-read-only))
2080 (let ((buffer-read-only po-read-only))
2160 (setq buffer-read-only po-read-only)
2224 (setq buffer-read-only nil)
2227 (setq buffer-read-only t))
2347 read `po-subedit-ediff' documentation."
2366 read `po-subedit-ediff' documentation."
2379 (buffer-read-only po-read-only))
2422 (let ((buffer-read-only po-read-only))
2551 (name (car (assoc (completing-read (_"Which auxiliary file? ")
2586 (delete (list (completing-read (_"Directory to remove? ")
2661 (completing-read (_"Which source context? ") po-reference-alist nil t)
2787 (let ((buffer-read-only po-read-only))
2809 (let ((keyword (list (read-from-minibuffer (_"Keyword: ")))))
2813 (keyword (completing-read (format (_"Mark with keywoard? [%s] ")
3236 (po-read-event))))
3241 (let ((buffer-read-only po-read-only))
3350 (setq team (read-string (format "\
3384 (read-string (_"Subject? ")) nil)
3403 (coding-system-for-read buffer-file-coding-system)
3407 (read-string (_"Subject? "))