Mercurial > emacs
comparison lisp/w32-fns.el @ 41325:65bad70edb17
(w32-system-coding-system): Change to an alias for
locale-coding-system.
(set-w32-system-coding-system): Document the above change.
Set locale-coding-system instead.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Tue, 20 Nov 2001 22:14:20 +0000 |
parents | de4e98791121 |
children | 094039817cba |
comparison
equal
deleted
inserted
replaced
41324:fe2a51b64eb6 | 41325:65bad70edb17 |
---|---|
289 | 289 |
290 (defun set-w32-system-coding-system (coding-system) | 290 (defun set-w32-system-coding-system (coding-system) |
291 "Set the coding system used by the Windows System to CODING-SYSTEM. | 291 "Set the coding system used by the Windows System to CODING-SYSTEM. |
292 This is used for things like passing font names with non-ASCII | 292 This is used for things like passing font names with non-ASCII |
293 characters in them to the system. For a list of possible values of | 293 characters in them to the system. For a list of possible values of |
294 CODING-SYSTEM, use \\[list-coding-systems]." | 294 CODING-SYSTEM, use \\[list-coding-systems]. |
295 | |
296 This function is provided for backward compatibility, since | |
297 w32-system-coding-system is now an alias for `locale-coding-system'." | |
295 (interactive | 298 (interactive |
296 (list (let ((default w32-system-coding-system)) | 299 (list (let ((default locale-coding-system)) |
297 (read-coding-system | 300 (read-coding-system |
298 (format "Coding system for system calls (default, %s): " | 301 (format "Coding system for system calls (default, %s): " |
299 default) | 302 default) |
300 default)))) | 303 default)))) |
301 (check-coding-system coding-system) | 304 (check-coding-system coding-system) |
302 (setq w32-system-coding-system coding-system)) | 305 (setq locale-coding-system coding-system)) |
303 ;; Set system coding system initially to iso-latin-1 | 306 |
304 (set-w32-system-coding-system 'iso-latin-1) | 307 ;; locale-coding-system was introduced to do the same thing as |
308 ;; w32-system-coding-system. Use that instead. | |
309 (defvaralias 'w32-system-coding-system 'locale-coding-system) | |
305 | 310 |
306 ;;; Set to a system sound if you want a fancy bell. | 311 ;;; Set to a system sound if you want a fancy bell. |
307 (set-message-beep nil) | 312 (set-message-beep nil) |
308 | 313 |
309 ;;; The "Windows" keys on newer keyboards bring up the Start menu | 314 ;;; The "Windows" keys on newer keyboards bring up the Start menu |