Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d46bac56
Commit
d46bac56
authored
Jul 14, 1992
by
Eric S. Raymond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
6cf0d154
Changes
8
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
51 additions
and
16 deletions
+51
-16
lisp/emacs-lisp/copyright.el
lisp/emacs-lisp/copyright.el
+5
-1
lisp/emulation/vi.el
lisp/emulation/vi.el
+7
-0
lisp/emulation/vip.el
lisp/emulation/vip.el
+20
-12
lisp/emulation/ws-mode.el
lisp/emulation/ws-mode.el
+1
-1
lisp/unused.el
lisp/unused.el
+7
-0
lisp/window.el
lisp/window.el
+5
-0
lisp/x-menu.el
lisp/x-menu.el
+4
-0
lisp/xscheme.el
lisp/xscheme.el
+2
-2
No files found.
lisp/emacs-lisp/copyright.el
View file @
d46bac56
;;; upd-copyr.el --- update the copyright notice in a GNU Emacs elisp file
;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; 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."
)
...
...
lisp/emulation/vi.el
View file @
d46bac56
;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs.
;; Author: Neal Ziring <nz@rsch.wisc.edu>
;; Felix S. T. Wu <wu@crys.wisc.edu>
;; 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}"
...
...
lisp/emulation/vip.el
View file @
d46bac56
;;
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 <ms@sail.stanford.edu>
;; 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-poin
te
r
)
(
current-kill
(- vip-use-register
?1) 'do-not-rota
te)
(get-register vip-use-register))
(c
ar kill-ring-yank-pointer
))))
(c
urrent-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-poin
te
r
)
(
current-kill
(- vip-use-register
?1) 'do-not-rota
te)
(get-register vip-use-register))
(c
ar kill-ring-yank-pointer
))))
(c
urrent-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 (
do
t) nil)))
(setq ex-addresses (cons (
poin
t) 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)
(c
ar kill-ring-yank-pointer
)
(c
urrent-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 (c
ar kill-ring-yank-pointer
))))
(insert (c
urrent-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 (
do
t-marker))
(setq eol-mark (
poin
t-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
lisp/emulation/ws-mode.el
View file @
d46bac56
;;; ws-mode.el --- WordStar emulation mode for GNU Emacs
;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de>
;;
Creat
ed: 13 Feb 1991
;;
Last-Modifi
ed: 13 Feb 1991
;; Version: 0.7
;; Copyright (C) 1991 Free Software Foundation, Inc.
...
...
lisp/unused.el
View file @
d46bac56
;;; 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
)
...
...
lisp/window.el
View file @
d46bac56
;;; 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.
...
...
lisp/x-menu.el
View file @
d46bac56
;;; 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
)))
...
...
lisp/xscheme.el
View file @
d46bac56
;;; 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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment