Lines Matching +defs:decode +defs:char
140 (defsubst gnus-goto-char (point)
141 (and point (goto-char point)))
252 (goto-char (or (text-property-any (point) eol 'gnus-position t)
256 (defun gnus-decode-newsgroups (newsgroups group &optional method)
259 (gnus-group-name-decode group (gnus-group-name-charset
267 (goto-char (point-min))
270 (delete-char 1))
271 (goto-char (next-single-property-change (point) prop nil (point-max))))))
374 (let ((now (decode-time (current-time))))
379 (let ((now (decode-time (current-time))))
385 (let ((now (decode-time (current-time)))
558 (goto-char (window-start))
564 (goto-char orig)
574 (defun gnus-read-event-char (&optional prompt)
787 (goto-char beg)
798 (goto-char beg)
974 (goto-char (point-min))
1010 (goto-char (point-min))
1023 (goto-char (point-max))
1024 (forward-char -2)
1026 (goto-char (point-max))
1030 (goto-char (point-max))
1036 (goto-char (point-max))
1047 (goto-char (point-min))
1049 (while (search-forward "\n\^_" nil t) ;single char
1051 (goto-char (point-max))
1158 (goto-char (point-max))
1160 (delete-char 1)))))
1292 (defvar gnus-directory-sep-char-regexp "/"
1321 (char-to-string code))
1324 (t (char-to-string code))))
1396 (goto-char (point-max)))
1417 CHOICE is a list of the choice char and help message at IDX."
1425 (mapconcat (lambda (s) (char-to-string (car s)))
1427 (setq tchar (read-char))
1456 (delete-char -1) ; the `\n' takes a char