From d46bac56adeb127a91b7fef565ac978590a46922 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Tue, 14 Jul 1992 19:42:01 +0000 Subject: [PATCH] *** empty log message *** --- lisp/emacs-lisp/copyright.el | 6 +++++- lisp/emulation/vi.el | 7 +++++++ lisp/emulation/vip.el | 32 ++++++++++++++++++++------------ lisp/emulation/ws-mode.el | 2 +- lisp/unused.el | 7 +++++++ lisp/window.el | 5 +++++ lisp/x-menu.el | 4 ++++ lisp/xscheme.el | 4 ++-- 8 files changed, 51 insertions(+), 16 deletions(-) diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index 3d111ba2c7e..8b03a68e01d 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -1,7 +1,9 @@ ;;; upd-copyr.el --- update the copyright notice in a GNU Emacs elisp file +;; Author: Roland McGrath +;; Last-Modified: 03 Jun 1991 + ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc. -;;; Written by Roland McGrath. ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -18,6 +20,8 @@ ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA ;;; 02139, USA. +;;; Code: + (defconst current-year (substring (current-time-string) -4) "String representing the current year.") diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index 37293e9008f..29012755a4d 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el @@ -1,5 +1,11 @@ ;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs. +;; Author: Neal Ziring +;; Felix S. T. Wu +;; Last-Modified: 7 Jan 1987 + +;;; Commentary: + ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring) ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu) ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33) @@ -26,6 +32,7 @@ ; 2). In operator handling, should allow other point moving Emacs commands ; (such as ESC <, ESC >) to be used as arguments. ; +;;; Code: (defun vi-switch-mode (arg mode-char) "Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}" diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 0e3d700a814..41093146c64 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -1,13 +1,21 @@ -;; VIP: A VI Package for GNU Emacs (version 3.5 of September 15, 1987) +;;; vip.el --- a VI Package for GNU Emacs -;; Author: Masahiko Sato (ms@sail.stanford.edu). In Japan, the author's -;; address is: masahiko@sato.riec.tohoku.junet +;; Author: Masahiko Sato +;; Version: 3.5 +;; Last-Modified: 15 Sep 1987 + +;;; Commentary: + +;; In Japan, the author's address is: masahiko@sato.riec.tohoku.junet +;; ;; Send suggestions and bug reports to one of the above addresses. ;; When you report a bug, be sure to include the version number of VIP and ;; Emacs you are using. ;; Execute info command by typing "M-x info" to get information on VIP. +;;; Code: + ;; external variables (defvar vip-emacs-local-map nil @@ -1653,9 +1661,9 @@ STRING. Search will be forward if FORWARD, otherwise backward." (let ((val (vip-p-val arg)) (text (if vip-use-register (if (and (<= ?1 vip-use-register) (<= vip-use-register ?9)) - (nth (- vip-use-register 49) kill-ring-yank-pointer) + (current-kill (- vip-use-register ?1) 'do-not-rotate) (get-register vip-use-register)) - (car kill-ring-yank-pointer)))) + (current-kill 0)))) (if (null text) (if vip-use-register (let ((reg vip-use-register)) @@ -1677,9 +1685,9 @@ STRING. Search will be forward if FORWARD, otherwise backward." (let ((val (vip-p-val arg)) (text (if vip-use-register (if (and (<= ?1 vip-use-register) (<= vip-use-register ?9)) - (nth (- vip-use-register 49) kill-ring-yank-pointer) + (current-kill (- vip-use-register ?1) 'do-not-rotate) (get-register vip-use-register)) - (car kill-ring-yank-pointer)))) + (current-kill 0)))) (if (null text) (if vip-use-register (let ((reg vip-use-register)) @@ -2603,7 +2611,7 @@ a token has type \(command, address, end-mark\) and value." (defun ex-goto () "ex goto command" (if (null ex-addresses) - (setq ex-addresses (cons (dot) nil))) + (setq ex-addresses (cons (point) nil))) (push-mark (point)) (goto-char (car ex-addresses)) (beginning-of-line)) @@ -2624,7 +2632,7 @@ a token has type \(command, address, end-mark\) and value." (with-output-to-temp-buffer "*copy text*" (princ (if (or del-flag ex-g-flag ex-g-variant) - (car kill-ring-yank-pointer) + (current-kill 0) (buffer-substring (point) (mark))))) (condition-case nil (progn @@ -2637,7 +2645,7 @@ a token has type \(command, address, end-mark\) and value." (goto-char (point-min)) (goto-char address) (forward-line 1)) - (insert (car kill-ring-yank-pointer)))) + (insert (current-kill 0)))) (defun ex-delete () "ex delete" @@ -2956,7 +2964,7 @@ vip-s-string" (goto-char (min (point) (mark))) (while (< (point) limit) (end-of-line) - (setq eol-mark (dot-marker)) + (setq eol-mark (point-marker)) (beginning-of-line) (if opt-g (progn @@ -3072,4 +3080,4 @@ vip-s-string" (if (file-exists-p "~/.vip") (load "~/.vip")) -;; End of VIP +;;; vip.el ends here diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el index 2dd39df74b7..a37d5b7cff0 100644 --- a/lisp/emulation/ws-mode.el +++ b/lisp/emulation/ws-mode.el @@ -1,7 +1,7 @@ ;;; ws-mode.el --- WordStar emulation mode for GNU Emacs ;; Author: Juergen Nickelsen -;; Created: 13 Feb 1991 +;; Last-Modified: 13 Feb 1991 ;; Version: 0.7 ;; Copyright (C) 1991 Free Software Foundation, Inc. diff --git a/lisp/unused.el b/lisp/unused.el index 9b7eea4304e..88b7acf7131 100644 --- a/lisp/unused.el +++ b/lisp/unused.el @@ -1,8 +1,15 @@ ;;; unused.el --- editing commands in GNU Emacs that turned out not to be used. +;; Maintainer: FSF +;; Last-Modified: 14 Dec 1985 + +;;; Commentary: + ;; These were added with an eye to making possible a more CCA-compatible ;; command set; but that turned out not to be interesting. +;;; Code: + (defun mark-beginning-of-buffer () "Set mark at the beginning of the buffer." (interactive) diff --git a/lisp/window.el b/lisp/window.el index 25d90e777cf..8369789a9e7 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -1,4 +1,8 @@ ;;; windows.el --- GNU Emacs window commands aside from those written in C. + +;; Maintainer: FSF +;; Last-Modified: 21 Dec 1987 + ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -17,6 +21,7 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; Code: (defun count-windows (&optional minibuf) "Returns the number of visible windows. diff --git a/lisp/x-menu.el b/lisp/x-menu.el index bc5c1aeda1d..a1d3fa78859 100644 --- a/lisp/x-menu.el +++ b/lisp/x-menu.el @@ -1,5 +1,8 @@ ;;; x-menu.el --- menu support for X +;; Maintainer: FSF +;; Last-Modified: 15 Sep 1987 + ;; Copyright (C) 1986 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,6 +21,7 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; Code: (defmacro caar (conscell) (list 'car (list 'car conscell))) diff --git a/lisp/xscheme.el b/lisp/xscheme.el index dea0a6befb7..87ef6d6c668 100644 --- a/lisp/xscheme.el +++ b/lisp/xscheme.el @@ -1,7 +1,7 @@ ;;; xscheme.el --- run Scheme under Emacs -;;; Maintainer: FSF -;;; Last-Modified: 21 Jan 1987 +;; Maintainer: FSF +;; Last-Modified: 21 Jan 1987 ;; Copyright (C) 1986, 1987, 1989, 1990 Free Software Foundation, Inc. -- 2.11.4.GIT