(and (null noerror)
(signal 'file-error (list "Cannot open load file" filename)))
;; now use the internal load to actually load the file.
(and (null noerror)
(signal 'file-error (list "Cannot open load file" filename)))
;; now use the internal load to actually load the file.
3. The matching value for this filename from
`file-coding-system-alist', if any.
4. `buffer-file-coding-system-for-read', if non-nil.
3. The matching value for this filename from
`file-coding-system-alist', if any.
4. `buffer-file-coding-system-for-read', if non-nil.
If a local value for `buffer-file-coding-system' in the current buffer
does not exist, it is set to the coding system which was actually used
If a local value for `buffer-file-coding-system' in the current buffer
does not exist, it is set to the coding system which was actually used
(if (consp coding-system)
(setq return-val coding-system)
(if (null (find-coding-system coding-system))
(if (consp coding-system)
(setq return-val coding-system)
(if (null (find-coding-system coding-system))