;;; dos-fns.el --- MS-Dos specific functions.
-;; Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1991, 1993, 1995, 1996 Free Software Foundation, Inc.
;; Maintainer: Morten Welinder (terra@diku.dk)
;; Keywords: internal
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
-(setq-default mode-line-format
- (list (purecopy "")
- 'mode-line-modified
- 'mode-line-buffer-identification
- (purecopy " ")
- 'global-mode-string
- (purecopy " %[(")
- (purecopy "%t:")
- 'mode-name 'mode-line-process 'minor-mode-alist
- (purecopy "%n")
- (purecopy ")%]--")
- (purecopy '(line-number-mode "L%l--"))
- (purecopy '(-3 . "%p"))
- (purecopy "-%-")))
+;;; Add %t: into the mode line format just after the open-paren.
+(let ((tail (member " %[(" mode-line-format)))
+ (setcdr tail (cons (purecopy "%t:")
+ (cdr tail))))
+
+;; Use ";" instead of ":" as a path separator (from files.el).
+(setq path-separator ";")
+
+;; Set the null device (for compile.el).
+(setq grep-null-device "NUL")
+
+;; Set the grep regexp to match entries with drive letters.
+(setq grep-regexp-alist
+ '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3)))
+
+;; This overrides a trivial definition in files.el.
+(defun convert-standard-filename (filename)
+ "Convert a standard file's name to something suitable for the current OS.
+This function's standard definition is trivial; it just returns the argument.
+However, on some systems, the function is redefined
+with a definition that really does change some file names."
+ (if (or (msdos-long-file-names)
+ (not (stringp filename))
+ (member (file-name-nondirectory filename) '("" "." "..")))
+ filename
+ (let* ((dir (file-name-directory filename))
+ (string (copy-sequence (file-name-nondirectory filename)))
+ (lastchar (aref string (1- (length string))))
+ i firstdot)
+ ;; Change a leading period to a leading underscore.
+ (if (= (aref string 0) ?.)
+ (aset string 0 ?_))
+ ;; Get rid of invalid characters.
+ (while (setq i (string-match
+ "[^-a-zA-Z0-9_.%~^$!#&{}@`'()\200-\376]"
+ string))
+ (aset string i ?_))
+ ;; If we don't have a period,
+ ;; and we have a dash or underscore that isn't the first char,
+ ;; change that to a period.
+ (if (and (not (string-match "\\." string))
+ (setq i (string-match "[-_]" string 1)))
+ (aset string i ?\.))
+ ;; If we don't have a period in the first 8 chars, insert one.
+ (if (> (or (string-match "\\." string)
+ (length string))
+ 8)
+ (setq string
+ (concat (substring string 0 8)
+ "."
+ (substring string 8))))
+ (setq firstdot (or (string-match "\\." string) (1- (length string))))
+ ;; Truncate to 3 chars after the first period.
+ (if (> (length string) (+ firstdot 4))
+ (setq string (substring string 0 (+ firstdot 4))))
+ ;; Change all periods except the first one into underscores.
+ (while (string-match "\\." string (1+ firstdot))
+ (setq i (string-match "\\." string (1+ firstdot)))
+ (aset string i ?_))
+ ;; If the last character of the original filename was `~',
+ ;; make sure the munged name ends with it also.
+ (if (equal lastchar ?~)
+ (aset string (1- (length string)) lastchar))
+ (concat dir string))))
(defvar file-name-buffer-file-type-alist
'(
(defsubst intdos (regs)
(int86 33 regs))
-;;; Fix interface to (X-specific) mouse.el
-(defalias 'window-frame 'ignore)
-(defalias 'x-set-selection 'ignore)
-(fset 'x-get-selection '(lambda (&rest rest) ""))
-(fmakunbound 'font-menu-add-default)
-(global-unset-key [C-down-mouse-1])
-(global-unset-key [C-down-mouse-2])
-(global-unset-key [C-down-mouse-3])
+;; Extra stub to functions in src/frame.c
+;; Emacs aborts during dump if the following don't have a doc string.
+(defun window-frame (window)
+ "Return the frame that WINDOW resides on."
+ (selected-frame))
+(defun raise-frame (frame)
+ "Raise FRAME to the top of the desktop."
+ nil)
+(defun select-frame (frame &optional no-enter)
+ "Select FRAME for input events."
+ (selected-frame))
+
+;; Support for printing under MS-DOS, see lpr.el and ps-print.el.
+(defvar dos-printer "PRN"
+ "*The name of a local MS-DOS device to which data is sent for printing.
+\(Note that PostScript files are sent to `dos-ps-printer', which see.\)
+
+Typical non-default settings would be \"LPT1\" to \"LPT3\" for
+parallel printers, or \"COM1\" to \"COM4\" or \"AUX\" for serial
+printers. You can also set it to a name of a file, in which
+case the output gets appended to that file.
+If you want to discard the printed output, set this to \"NUL\".")
+
+(defun dos-print-region-function (start end
+ &optional lpr-prog
+ delete-text buf display rest)
+ "MS-DOS-specific function to print the region on a printer.
+Writes the region to the device or file which is a value of
+`dos-printer' \(which see\). Ignores any arguments beyond
+START and END."
+
+ (write-region start end dos-printer t 0)
+ ;; Make each print-out start on a new page, but don't waste
+ ;; paper if there was a form-feed at the end of this file.
+ (if (not (char-equal (char-after (1- end)) ?\C-l))
+ (write-region "\f" nil dos-printer t 0)))
+
+;; Set this to nil if you have a port of the `lpr' program and
+;; you want to use it for printing. If the default setting is
+;; in effect, `lpr-command' and its switches are ignored when
+;; printing with `lpr-xxx' and `print-xxx'.
+(setq print-region-function 'dos-print-region-function)
+
+;; Set this to nil if you have a port of the `pr' program
+;; (e.g., from GNU Textutils), or if you have an `lpr'
+;; program (see above) that can print page headers.
+;; If `lpr-headers-switches' is non-nil (the default) and
+;; `print-region-function' is set to `dos-print-region-function',
+;; then requests to print page headers will be silently
+;; ignored, and `print-buffer' and `print-region' produce
+;; the same output as `lpr-buffer' and `lpr-region', accordingly.
+(setq lpr-headers-switches "(page headers are not supported)")
+
+(defvar dos-ps-printer "PRN"
+ "*Method for printing PostScript files under MS-DOS.
+
+If the value is a string, then it is taken as the name of the
+device to which PostScript files are written. By default it
+is the default printer device; typical non-default settings
+would be \"LPT1\" to \"LPT3\" for parallel printers, or \"COM1\"
+to \"COM4\" or \"AUX\" for serial printers. You can also set it
+to a name of a file, in which case the output gets appended
+to that file. \(Note that `ps-print' package already has
+facilities for printing to a file, so you might as well use
+them instead of changing the setting of this variable.\) If
+you want to silently discard the printed output, set this to \"NUL\".
+
+If the value is anything but a string, PostScript files will be
+piped to the program given by `ps-lpr-command', with switches
+given by `ps-lpr-switches', which see.")
+
+(setq ps-lpr-command "gs")
+
+(setq ps-lpr-switches '("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60"
+ "-sOutputFile=LPT1" "-"))
+
+;; Backward compatibility for obsolescent functions which
+;; set screen size.
+
+(defun mode25 ()
+ "Changes the number of screen rows to 25."
+ (interactive)
+ (set-frame-size (selected-frame) 80 25))
+
+(defun mode4350 ()
+ "Changes the number of rows to 43 or 50.
+Emacs always tries to set the screen height to 50 rows first.
+If this fails, it will try to set it to 43 rows, on the assumption
+that your video hardware might not support 50-line mode."
+ (interactive)
+ (set-frame-size (selected-frame) 80 50)
+ (if (eq (frame-height (selected-frame)) 50)
+ nil ; the original built-in function returned nil
+ (set-frame-size (selected-frame) 80 43)))
+
+(provide 'dos-fns)
+
+; dos-fns.el ends here