Mercurial > emacs
comparison lisp/international/mule.el @ 65680:ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* woman.el (woman-file-name):
* wid-edit.el (widget-file-prompt-value)
(widget-coding-system-prompt-value):
* w32-fns.el (set-w32-system-coding-system):
* vc.el (vc-version-diff, vc-annotate):
* textmodes/reftex-auc.el (reftex-arg-cite)
(reftex-arg-index-tag):
* textmodes/refer.el (refer-get-bib-files):
* textmodes/artist.el (artist-figlet-choose-font):
* terminal.el (terminal-emulator):
* replace.el (occur-read-primary-args):
* rect.el (string-rectangle, string-insert-rectangle):
* ps-print.el (ps-print-preprint):
* progmodes/pascal.el (pascal-goto-defun):
* progmodes/etags.el (visit-tags-table, visit-tags-table-buffer):
* progmodes/compile.el (compilation-find-file):
* printing.el (pr-interactive-n-up):
* play/animate.el (animate-birthday-present):
* net/rcompile.el (remote-compile):
* man.el (man, Man-goto-section, Man-follow-manual-reference):
* mail/rmailsum.el (rmail-summary-search-backward)
(rmail-summary-search):
* mail/rmailout.el (rmail-output-read-rmail-file-name)
(rmail-output-read-file-name):
* mail/rmail.el (rmail-search, rmail-search-backwards):
* mail/mailabbrev.el (merge-mail-abbrevs, rebuild-mail-abbrevs):
* locate.el (locate):
* international/quail.el (quail-show-keyboard-layout):
* international/mule.el (set-buffer-file-coding-system)
(revert-buffer-with-coding-system, set-file-name-coding-system)
(set-terminal-coding-system, set-keyboard-coding-system)
(set-next-selection-coding-system):
* international/mule-diag.el (describe-coding-system)
(describe-font, describe-fontset):
* international/mule-cmds.el (universal-coding-system-argument)
(search-unencodable-char, describe-input-method)
(set-language-environment, describe-language-environment):
* international/codepage.el (codepage-setup):
* international/code-pages.el (codepage-setup):
* info.el (Info-search, Info-follow-reference)
(Info-search-backward):
* emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-clear-cache, ad-activate)
(ad-deactivate, ad-update, ad-unadvise, ad-read-advice-name)
(ad-enable-advice, ad-disable-advice, ad-remove-advice)
(ad-read-regexp):
* ediff-util.el (ediff-toggle-regexp-match):
* ediff-ptch.el (ediff-prompt-for-patch-file):
* dired-aux.el (dired-diff):
* diff.el (diff):
* cus-edit.el (custom-variable-prompt):
* calendar/timeclock.el (timeclock-ask-for-project):
* calc/calcalg3.el (calc-get-fit-variables):
* calc/calc-store.el (calc-edit-variable)
(calc-permanent-variable):
* vc-mcvs.el (vc-mcvs-register):
* shadowfile.el (shadow-define-literal-group):
* woman.el (woman-file-name):
* vc.el (vc-version-diff, vc-merge):
* textmodes/reftex-index.el (reftex-index-complete-tag):
* format.el (format-decode-buffer, format-decode-region):
* emulation/viper-cmd.el (viper-read-string-with-history):
* emacs-lisp/debug.el (cancel-debug-on-entry):
* emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* ediff.el (ediff-merge-revisions)
(ediff-merge-revisions-with-ancestor, ediff-revision):
* completion.el (interactive-completion-string-reader):
* calc/calc-prog.el (calc-user-define-formula):
Follow convention for reading with the minibuffer.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Sat, 24 Sep 2005 13:44:02 +0000 |
parents | 62fe32ed4496 |
children | 27a95070b049 2a679c81f552 ee12d75eb214 |
comparison
equal
deleted
inserted
replaced
65679:56406afc87de | 65680:ed770a0a7846 |
---|---|
1157 This marks the buffer modified so that the succeeding \\[save-buffer] | 1157 This marks the buffer modified so that the succeeding \\[save-buffer] |
1158 surely saves the buffer with CODING-SYSTEM. From a program, if you | 1158 surely saves the buffer with CODING-SYSTEM. From a program, if you |
1159 don't want to mark the buffer modified, specify t for NOMODIFY. | 1159 don't want to mark the buffer modified, specify t for NOMODIFY. |
1160 If you know exactly what coding system you want to use, | 1160 If you know exactly what coding system you want to use, |
1161 just set the variable `buffer-file-coding-system' directly." | 1161 just set the variable `buffer-file-coding-system' directly." |
1162 (interactive "zCoding system for saving file (default, nil): \nP") | 1162 (interactive "zCoding system for saving file (default nil): \nP") |
1163 (check-coding-system coding-system) | 1163 (check-coding-system coding-system) |
1164 (if (and coding-system buffer-file-coding-system (null force)) | 1164 (if (and coding-system buffer-file-coding-system (null force)) |
1165 (setq coding-system | 1165 (setq coding-system |
1166 (merge-coding-systems coding-system buffer-file-coding-system))) | 1166 (merge-coding-systems coding-system buffer-file-coding-system))) |
1167 (setq buffer-file-coding-system coding-system) | 1167 (setq buffer-file-coding-system coding-system) |
1181 leaves the end-of-line conversion unspecified, FORCE controls what to | 1181 leaves the end-of-line conversion unspecified, FORCE controls what to |
1182 do. If FORCE is nil, get the unspecified aspect (or aspects) from the | 1182 do. If FORCE is nil, get the unspecified aspect (or aspects) from the |
1183 buffer's previous `buffer-file-coding-system' value (if it is | 1183 buffer's previous `buffer-file-coding-system' value (if it is |
1184 specified there). Otherwise, determine it from the file contents as | 1184 specified there). Otherwise, determine it from the file contents as |
1185 usual for visiting a file." | 1185 usual for visiting a file." |
1186 (interactive "zCoding system for visited file (default, nil): \nP") | 1186 (interactive "zCoding system for visited file (default nil): \nP") |
1187 (check-coding-system coding-system) | 1187 (check-coding-system coding-system) |
1188 (if (and coding-system buffer-file-coding-system (null force)) | 1188 (if (and coding-system buffer-file-coding-system (null force)) |
1189 (setq coding-system | 1189 (setq coding-system |
1190 (merge-coding-systems coding-system buffer-file-coding-system))) | 1190 (merge-coding-systems coding-system buffer-file-coding-system))) |
1191 (let ((coding-system-for-read coding-system)) | 1191 (let ((coding-system-for-read coding-system)) |
1193 | 1193 |
1194 (defun set-file-name-coding-system (coding-system) | 1194 (defun set-file-name-coding-system (coding-system) |
1195 "Set coding system for decoding and encoding file names to CODING-SYSTEM. | 1195 "Set coding system for decoding and encoding file names to CODING-SYSTEM. |
1196 It actually just set the variable `file-name-coding-system' (which | 1196 It actually just set the variable `file-name-coding-system' (which |
1197 see) to CODING-SYSTEM." | 1197 see) to CODING-SYSTEM." |
1198 (interactive "zCoding system for file names (default, nil): ") | 1198 (interactive "zCoding system for file names (default nil): ") |
1199 (check-coding-system coding-system) | 1199 (check-coding-system coding-system) |
1200 (if (and coding-system | 1200 (if (and coding-system |
1201 (coding-system-get coding-system 'ascii-incompatible)) | 1201 (coding-system-get coding-system 'ascii-incompatible)) |
1202 (error "%s is not ASCII-compatible" coding-system)) | 1202 (error "%s is not ASCII-compatible" coding-system)) |
1203 (setq file-name-coding-system coding-system)) | 1203 (setq file-name-coding-system coding-system)) |
1217 (interactive | 1217 (interactive |
1218 (list (let ((default (if (and (not (terminal-coding-system)) | 1218 (list (let ((default (if (and (not (terminal-coding-system)) |
1219 default-terminal-coding-system) | 1219 default-terminal-coding-system) |
1220 default-terminal-coding-system))) | 1220 default-terminal-coding-system))) |
1221 (read-coding-system | 1221 (read-coding-system |
1222 (format "Coding system for terminal display (default, %s): " | 1222 (format "Coding system for terminal display (default %s): " |
1223 default) | 1223 default) |
1224 default)))) | 1224 default)))) |
1225 (if (and (not coding-system) | 1225 (if (and (not coding-system) |
1226 (not (terminal-coding-system))) | 1226 (not (terminal-coding-system))) |
1227 (setq coding-system default-terminal-coding-system)) | 1227 (setq coding-system default-terminal-coding-system)) |
1246 (interactive | 1246 (interactive |
1247 (list (let ((default (if (and (not (keyboard-coding-system)) | 1247 (list (let ((default (if (and (not (keyboard-coding-system)) |
1248 default-keyboard-coding-system) | 1248 default-keyboard-coding-system) |
1249 default-keyboard-coding-system))) | 1249 default-keyboard-coding-system))) |
1250 (read-coding-system | 1250 (read-coding-system |
1251 (format "Coding system for keyboard input (default, %s): " | 1251 (format "Coding system for keyboard input (default %s): " |
1252 default) | 1252 default) |
1253 default)))) | 1253 default)))) |
1254 (if (and (not coding-system) | 1254 (if (and (not coding-system) |
1255 (not (keyboard-coding-system))) | 1255 (not (keyboard-coding-system))) |
1256 (setq coding-system default-keyboard-coding-system)) | 1256 (setq coding-system default-keyboard-coding-system)) |
1319 "Make CODING-SYSTEM used for the next communication with other X clients. | 1319 "Make CODING-SYSTEM used for the next communication with other X clients. |
1320 This setting is effective for the next communication only." | 1320 This setting is effective for the next communication only." |
1321 (interactive | 1321 (interactive |
1322 (list (read-coding-system | 1322 (list (read-coding-system |
1323 (if last-next-selection-coding-system | 1323 (if last-next-selection-coding-system |
1324 (format "Coding system for the next X selection (default, %S): " | 1324 (format "Coding system for the next X selection (default %S): " |
1325 last-next-selection-coding-system) | 1325 last-next-selection-coding-system) |
1326 "Coding system for the next X selection: ") | 1326 "Coding system for the next X selection: ") |
1327 last-next-selection-coding-system))) | 1327 last-next-selection-coding-system))) |
1328 (if coding-system | 1328 (if coding-system |
1329 (setq last-next-selection-coding-system coding-system) | 1329 (setq last-next-selection-coding-system coding-system) |