;; Process window-system specific command line parameters.
(setq command-line-args
(funcall
- (gui-method handle-args-function (or initial-window-system t))
+ (gui-method handle-args-function initial-window-system)
command-line-args))
;; Initialize the window system. (Open connection, etc.)
(funcall
- (gui-method window-system-initialization (or initial-window-system t)))
+ (gui-method window-system-initialization initial-window-system))
(put initial-window-system 'window-system-initialized t))
;; If there was an error, print the error message and exit.
(error
(let (warned)
(dolist (dir load-path)
(and (not warned)
- (string-match-p
- (format "/%s/?\\'"
- (regexp-quote
- (file-name-nondirectory
- (directory-file-name user-emacs-directory)))) dir)
(string-equal (file-name-as-directory (expand-file-name dir))
(expand-file-name user-emacs-directory))
(setq warned t)
(title (with-temp-buffer
(insert-file-contents
(expand-file-name tut tutorial-directory)
- nil 0 256)
+ ;; Read the entire file, to make sure any
+ ;; coding cookies and other local variables
+ ;; get acted upon.
+ nil)
(search-forward ".")
(buffer-substring (point-min) (1- (point))))))
;; If there is a specific tutorial for the current language