-;; This function has been moved to help-nomule.el and mule-help.el.
-;; TUTORIAL arg is XEmacs addition
-;(defun help-with-tutorial (&optional tutorial)
-; "Select the XEmacs learn-by-doing tutorial.
-;Optional arg TUTORIAL specifies the tutorial file; default is \"TUTORIAL\"."
-; (interactive)
-; (if (null tutorial)
-; (setq tutorial "TUTORIAL"))
-; (let ((file (expand-file-name (concat "~/" tutorial))))
-; (delete-other-windows)
-; (if (get-file-buffer file)
-; (switch-to-buffer (get-file-buffer file))
-; (switch-to-buffer (create-file-buffer file))
-; (setq buffer-file-name file)
-; (setq default-directory (expand-file-name "~/"))
-; (setq buffer-auto-save-file-name nil)
-; (insert-file-contents (expand-file-name tutorial data-directory))
-; (goto-char (point-min))
-; (search-forward "\n<<")
-; (delete-region (point-at-bol) (point-at-eol))
-; (let ((n (- (window-height (selected-window))
-; (count-lines (point-min) (point))
-; 6)))
-; (if (< n 12)
-; (newline n)
-; ;; Some people get confused by the large gap.
-; (newline (/ n 2))
-; (insert "[Middle of page left blank for didactic purposes. "
-; "Text continues below]")
-; (newline (- n (/ n 2)))))
-; (goto-char (point-min))
-; (set-buffer-modified-p nil))))