xemacs-beta: lisp/msw-init.el annotate

annotate lisp/msw-init.el @ 5914:bd4d2c8ef9cc

Use the existing C-level line number cache within #'line-number. src/ChangeLog addition: 2015-05-15 Aidan Kehoe <kehoea@parhasard.net> * buffer.c: * buffer.c (Fline_number): New C implementation, using the line number cache of line-number.c, with a new optional BUFFER argument. * buffer.c (syms_of_buffer): Make it available to Lisp. * line-number.c (buffer_line_number): New argument, RESPECT-NARROWING, describing whether to count from the beginning of the visible region or from the beginning of the buffer. * line-number.h: * line-number.h (buffer_line_number): Update its declaration. * redisplay.c (window_line_number): Call it with the new argument. lisp/ChangeLog addition: 2015-05-15 Aidan Kehoe <kehoea@parhasard.net> * simple.el: * simple.el (line-number): Moved to buffer.c; we have an existing line number cache in C, it's a shame not to have it available.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Fri, 15 May 2015 18:11:47 +0100
parents	308d34e9f07d
children

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 ;;; msw-init.el --- initialization code for mswindows
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2 ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 ;; Copyright (C) 1995 Board of Trustees, University of Illinois.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4 ;; Copyright (C) 1995, 1996 Ben Wing.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 ;; Author: various
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 ;; Rewritten for mswindows by: Jonathan Harris
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	11 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	12 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	13 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	14 ;; option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	19 ;; for more details.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	24 (defvar make-device-early-mswindows-entry-point-called-p nil
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	25 "Whether `make-device-early-mswindows-entry-point' has been called")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	27 (defvar make-device-late-mswindows-entry-point-called-p nil
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	28 "Whether `make-device-late-mswindows-entry-point' has been called")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	30 (defun make-device-early-mswindows-entry-point ()
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	31 "Lisp code called before an `mswindows' device is created."
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	32 (unless make-device-early-mswindows-entry-point-called-p
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33 ;; Old-style mswindows bindings. The new-style mswindows bindings
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs.
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	35 (global-set-key '(shift delete) 'kill-primary-selection)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	36 (global-set-key '(shift insert) 'yank-clipboard-selection)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	37 (global-set-key '(control insert) 'copy-primary-selection)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	38
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	39 (global-set-key '(meta f4) 'save-buffers-kill-emacs)
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	40 (setq make-device-early-mswindows-entry-point-called-p t)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	41
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	42 (defun make-device-late-mswindows-entry-point (device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	43 "Lisp code called after an `mswindows' device is created."
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	44 (unless make-device-late-mswindows-entry-point-called-p
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 832 diff changeset	45 (setq make-device-late-mswindows-entry-point-called-p t)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	46

Mercurial > hg > xemacs-beta

annotate lisp/msw-init.el @ 5914:bd4d2c8ef9cc