Lines Matching +defs:read +defs:line
58 ;; msgstr[1] line, so that the translator just needs to press RET to edit
529 ;; Handle missing 'read-event' function.
531 (fset 'po-read-event
532 (cond ((fboundp 'read-event)
534 'read-event)
540 'read-char))))
542 ;; Handle missing 'force-mode-line-update' function.
544 (if (fboundp 'force-mode-line-update)
545 (fset 'po-force-mode-line-update
546 (symbol-function 'force-mode-line-update))
548 (defun po-force-mode-line-update ()
549 "Force the mode-line of the current buffer to be redisplayed."
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)
702 ;; A few counters are usefully shown in the Emacs mode line.
707 (defvar po-mode-line-string)
714 ;; ENTRY-MARKER points to the msgid line if a comment is being edited, or to
715 ;; the msgstr line if the msgstr is being edited. EDIT-BUFFER is the
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.")
1045 ;; The following line does not work, and I wonder why.
1163 (set (make-local-variable 'po-read-only) buffer-read-only)
1164 (setq buffer-read-only t)
1177 (make-local-variable 'po-mode-line-string)
1220 (defvar po-mode-line-entry '(po-mode-flag (" " po-mode-line-string))
1221 "Mode line format entry displaying MODE-LINE-STRING.")
1223 ;; Insert MODE-LINE-ENTRY in mode line, but on first load only.
1224 (or (member po-mode-line-entry mode-line-format)
1225 ;; mode-line-format usually contains global-mode-string, but some
1227 (let ((prev-entry (or (member 'global-mode-string mode-line-format)
1228 (member " " mode-line-format)
1229 (last mode-line-format))))
1230 (setcdr prev-entry (cons po-mode-line-entry (cdr prev-entry)))))
1232 (defun po-update-mode-line-string ()
1233 "Compute a new statistics string to display in mode line."
1234 (setq po-mode-line-string
1242 (po-force-mode-line-update))
1259 Then, update the mode line counters."
1262 (po-update-mode-line-string))
1269 "Prepare counters for mode line display. If FLAG, also echo entry position."
1320 (po-update-mode-line-string))
1326 ;; should try to fit the msgid. Else, the first line of the msgid should
1347 (let ((buffer-read-only po-read-only)
1354 (previous-line 1)
1364 (previous-line 1)
1366 (beginning-of-line))
1367 (beginning-of-line)
1389 (let* ((buffer-read-only po-read-only)
1474 (end-of-line)
1497 (let ((buffer-read-only po-read-only))
1509 (next-line 1))
1515 (let ((buffer-read-only po-read-only))
1730 (po-update-mode-line-string))
1869 (let ((multi-line (re-search-forward "[^\n]\n+[^\n]" nil t)))
1877 (replace-match (if (or (not multi-line) (eobp))
1886 (insert (if multi-line "\"\"\n\"" "\""))
1907 (beginning-of-line)
1933 (let ((buffer-read-only po-read-only))
1954 (let ((buffer-read-only po-read-only))
2003 (let ((buffer-read-only po-read-only))
2017 (po-update-mode-line-string)
2020 (let ((buffer-read-only po-read-only))
2050 (forward-line 1))
2077 (let ((buffer-read-only po-read-only))
2080 (let ((buffer-read-only po-read-only))
2160 (setq buffer-read-only po-read-only)
2214 (forward-line 1)))
2224 (setq buffer-read-only nil)
2227 (setq buffer-read-only t))
2245 (forward-line -1)
2320 (set (make-local-variable 'indent-line-function)
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? ")
2601 (let (current name line path file)
2605 line (po-match-string 3)
2616 (cons (list (concat current ":" line)
2618 (string-to-number line))
2627 (goto-line (car (cdr (cdr triplet))))
2661 (completing-read (_"Which source context? ") po-reference-alist nil t)
2780 line string)
2784 (setq line (count-lines (point-min) start))
2787 (let ((buffer-read-only po-read-only))
2791 line))
2795 (po-update-mode-line-string))
2809 (let ((keyword (list (read-from-minibuffer (_"Keyword: ")))))
2813 (keyword (completing-read (format (_"Mark with keywoard? [%s] ")
2834 (string-equal mode-line-process "[bash]"))
2966 ;; "to use \\ characters at end-of-line.";
2986 (end-of-line)
2992 (beginning-of-line)
2993 (looking-at "^# *\\(include\\|line\\)"))
2994 ;; Disregard lines being #include or #line directives.
2995 (end-of-line))
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? "))