Mercurial > emacs
comparison lisp/startup.el @ 14283:b747e8369639
(command-line-1): Update copyright in startup banner.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 24 Jan 1996 22:02:17 +0000 |
| parents | 83f275dcd93a |
| children | 4e5b28d28a5f |
comparison
equal
deleted
inserted
replaced
| 14282:63fbb2aeb1f2 | 14283:b747e8369639 |
|---|---|
| 691 ;; The convention for this piece of code is that | 691 ;; The convention for this piece of code is that |
| 692 ;; each piece of output starts with one or two newlines | 692 ;; each piece of output starts with one or two newlines |
| 693 ;; and does not end with any newlines. | 693 ;; and does not end with any newlines. |
| 694 (insert (emacs-version) | 694 (insert (emacs-version) |
| 695 " | 695 " |
| 696 Copyright (C) 1995 Free Software Foundation, Inc.") | 696 Copyright (C) 1996 Free Software Foundation, Inc.") |
| 697 ;; If keys have their default meanings, | 697 ;; If keys have their default meanings, |
| 698 ;; use precomputed string to save lots of time. | 698 ;; use precomputed string to save lots of time. |
| 699 (if (and (eq (key-binding "\C-h") 'help-command) | 699 (if (and (eq (key-binding "\C-h") 'help-command) |
| 700 (eq (key-binding "\C-xu") 'advertised-undo) | 700 (eq (key-binding "\C-xu") 'advertised-undo) |
| 701 (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs) | 701 (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs) |