/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.225 by handa, Tue Jul 19 02:30:29 2005 UTC revision 1.226 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC
# Line 1159  surely saves the buffer with CODING-SYST Line 1159  surely saves the buffer with CODING-SYST
1159  don't want to mark the buffer modified, specify t for NOMODIFY.  don't want to mark the buffer modified, specify t for NOMODIFY.
1160  If you know exactly what coding system you want to use,  If you know exactly what coding system you want to use,
1161  just set the variable `buffer-file-coding-system' directly."  just set the variable `buffer-file-coding-system' directly."
1162    (interactive "zCoding system for saving file (default, nil): \nP")    (interactive "zCoding system for saving file (default nil): \nP")
1163    (check-coding-system coding-system)    (check-coding-system coding-system)
1164    (if (and coding-system buffer-file-coding-system (null force))    (if (and coding-system buffer-file-coding-system (null force))
1165        (setq coding-system        (setq coding-system
# Line 1183  do.  If FORCE is nil, get the unspecifie Line 1183  do.  If FORCE is nil, get the unspecifie
1183  buffer's previous `buffer-file-coding-system' value (if it is  buffer's previous `buffer-file-coding-system' value (if it is
1184  specified there).  Otherwise, determine it from the file contents as  specified there).  Otherwise, determine it from the file contents as
1185  usual for visiting a file."  usual for visiting a file."
1186    (interactive "zCoding system for visited file (default, nil): \nP")    (interactive "zCoding system for visited file (default nil): \nP")
1187    (check-coding-system coding-system)    (check-coding-system coding-system)
1188    (if (and coding-system buffer-file-coding-system (null force))    (if (and coding-system buffer-file-coding-system (null force))
1189        (setq coding-system        (setq coding-system
# Line 1195  usual for visiting a file." Line 1195  usual for visiting a file."
1195    "Set coding system for decoding and encoding file names to CODING-SYSTEM.    "Set coding system for decoding and encoding file names to CODING-SYSTEM.
1196  It actually just set the variable `file-name-coding-system' (which  It actually just set the variable `file-name-coding-system' (which
1197  see) to CODING-SYSTEM."  see) to CODING-SYSTEM."
1198    (interactive "zCoding system for file names (default, nil): ")    (interactive "zCoding system for file names (default nil): ")
1199    (check-coding-system coding-system)    (check-coding-system coding-system)
1200    (if (and coding-system    (if (and coding-system
1201             (coding-system-get coding-system 'ascii-incompatible))             (coding-system-get coding-system 'ascii-incompatible))
# Line 1219  or by the previous use of this command." Line 1219  or by the previous use of this command."
1219                                   default-terminal-coding-system)                                   default-terminal-coding-system)
1220                              default-terminal-coding-system)))                              default-terminal-coding-system)))
1221             (read-coding-system             (read-coding-system
1222              (format "Coding system for terminal display (default, %s): "              (format "Coding system for terminal display (default %s): "
1223                      default)                      default)
1224              default))))              default))))
1225    (if (and (not coding-system)    (if (and (not coding-system)
# Line 1248  or by the previous use of this command." Line 1248  or by the previous use of this command."
1248                                   default-keyboard-coding-system)                                   default-keyboard-coding-system)
1249                              default-keyboard-coding-system)))                              default-keyboard-coding-system)))
1250             (read-coding-system             (read-coding-system
1251              (format "Coding system for keyboard input (default, %s): "              (format "Coding system for keyboard input (default %s): "
1252                      default)                      default)
1253              default))))              default))))
1254    (if (and (not coding-system)    (if (and (not coding-system)
# Line 1321  This setting is effective for the next c Line 1321  This setting is effective for the next c
1321    (interactive    (interactive
1322     (list (read-coding-system     (list (read-coding-system
1323            (if last-next-selection-coding-system            (if last-next-selection-coding-system
1324                (format "Coding system for the next X selection (default, %S): "                (format "Coding system for the next X selection (default %S): "
1325                        last-next-selection-coding-system)                        last-next-selection-coding-system)
1326              "Coding system for the next X selection: ")              "Coding system for the next X selection: ")
1327            last-next-selection-coding-system)))            last-next-selection-coding-system)))

Legend:
Removed from v.1.225  
changed lines
  Added in v.1.226

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26