Commit a4723629 authored by Glenn Morris's avatar Glenn Morris
Browse files

(top-level): Require cl when compiling.

(view-hello-file): Use default-value rather than
default-enable-multibyte-characters.
parent 2fa20711
...@@ -31,6 +31,8 @@ ...@@ -31,6 +31,8 @@
;;; Code: ;;; Code:
(eval-when-compile (require 'cl)) ; letf
(defvar dos-codepage) (defvar dos-codepage)
(autoload 'widget-value "wid-edit") (autoload 'widget-value "wid-edit")
...@@ -281,9 +283,9 @@ wrong, use this command again to toggle back to the right mode." ...@@ -281,9 +283,9 @@ wrong, use this command again to toggle back to the right mode."
"Display the HELLO file, which lists many languages and characters." "Display the HELLO file, which lists many languages and characters."
(interactive) (interactive)
;; We have to decode the file in any environment. ;; We have to decode the file in any environment.
(let ((default-enable-multibyte-characters t) (letf (((default-value 'enable-multibyte-characters) t)
(coding-system-for-read 'iso-2022-7bit)) (coding-system-for-read 'iso-2022-7bit))
(view-file (expand-file-name "HELLO" data-directory)))) (view-file (expand-file-name "HELLO" data-directory))))
(defun universal-coding-system-argument (coding-system) (defun universal-coding-system-argument (coding-system)
"Execute an I/O command using the specified coding system." "Execute an I/O command using the specified coding system."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment