Mercurial > hg > xemacs-beta
view lisp/msw-init.el @ 2671:5402bf7d11a5
[xemacs-hg @ 2005-03-17 09:26:07 by michaels]
2005-03-17 Mike Sperber <mike@xemacs.org>
* files.el: Merge the following changes from GNU Emacs:
2005-01-04 Andreas Schwab <schwab@suse.de>
* files.el (insert-directory): Only look for error lines in
inserted text. Don't move too far after processing --dired markers.
2004-12-27 Richard M. Stallman <rms@gnu.org>
* files.el (insert-directory-ls-version): New variable.
(insert-directory): When ls returns an error, test the version
number to decide what the return code means.
With --dired output format, detect and distinguish lines
that are really error messages.
(insert-directory-adj-pos): New function.
2004-09-25 Stefan Monnier <monnier@iro.umontreal.ca>
* files.el (insert-directory): Obey --dired even with symlinks.
2004-05-25 Luc Teirlinck <teirllm@auburn.edu>
(insert-directory): Check that lines were really inserted by
the --dired switch, before erasing them.
2004-04-17 Richard M. Stallman <rms@gnu.org>
* files.el (insert-directory): Delete any error msg output by the
`insert-directory-program'.
| author | michaels |
|---|---|
| date | Thu, 17 Mar 2005 09:26:09 +0000 |
| parents | f3244b2b4053 |
| children | e34711681f30 |
line wrap: on
line source
;;; msw-init.el --- initialization code for mswindows ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc. ;; Copyright (C) 1995 Board of Trustees, University of Illinois. ;; Copyright (C) 1995, 1996 Ben Wing. ;; Author: various ;; Rewritten for mswindows by: Jonathan Harris ;; This file is part of XEmacs. ;; XEmacs is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the ;; Free Software Foundation, 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. (defvar mswindows-win-initted nil) (defvar mswindows-pre-win-initted nil) (defvar mswindows-post-win-initted nil) (defun init-pre-mswindows-win () "Initialize mswindows GUI at startup (pre). Don't call this." (unless mswindows-pre-win-initted (setq mswindows-pre-win-initted t))) (defun init-mswindows-win () "Initialize mswindows GUI at startup. Don't call this." (unless mswindows-win-initted (init-pre-mswindows-win) (make-mswindows-device) (init-post-mswindows-win (selected-console)) (setq mswindows-win-initted t))) (defun init-post-mswindows-win (console) "Initialize mswindows GUI at startup (post). Don't call this." (unless mswindows-post-win-initted ;; Old-style mswindows bindings. The new-style mswindows bindings ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. (global-set-key '(shift delete) 'kill-primary-selection) (global-set-key '(shift insert) 'yank-clipboard-selection) (global-set-key '(control insert) 'copy-primary-selection) (global-set-key '(meta f4) 'save-buffers-kill-emacs) (setq mswindows-post-win-initted t)))