From 6a05d05fafe43d1546cef84b004372b784d3792f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 16 Jul 2001 11:39:42 +0000 Subject: [PATCH] Fixes to follow coding conventions. --- lisp/ChangeLog | 21 +++++++++++++++++++++ lisp/allout.el | 26 ++++++++++++++------------ lisp/emacs-lisp/easymenu.el | 4 ++-- lisp/emulation/vi.el | 7 ++++--- lisp/find-lisp.el | 10 +++++----- lisp/sun-curs.el | 3 ++- lisp/term/news.el | 2 +- lisp/term/w32-win.el | 2 +- lisp/term/xterm.el | 6 +++++- lisp/textmodes/sgml-mode.el | 4 ++-- 10 files changed, 57 insertions(+), 28 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 934069a0d8..12b0a4c19b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,24 @@ +2001-07-16 Pavel Jan,Bm(Bk + + * allout.el: A fix to follow coding conventions. + + * find-lisp.el: A fix to follow coding conventions. + + * term/w32-win.el: A fix to follow coding conventions. + + * textmodes/sgml-mode.el: A fix to follow coding conventions. + + * term/xterm.el: A fix to follow coding conventions. + + * term/news.el: A fix to follow coding conventions. + + * emulation/vi.el: A fix to follow coding conventions, Maintainer: + header line fixed. + + * sun-curs.el: Fix Maintainer: header line. + + * emacs-lisp/easymenu.el: Address of the author added. + 2001-07-16 Gerd Moellmann * dired.el (dired-insert-set-properties): Fix invalid mouse-face diff --git a/lisp/allout.el b/lisp/allout.el index 0caae6fc28..d12ac29ba5 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -1,11 +1,11 @@ -;;; allout.el --- Extensive outline mode for use alone and with other modes. +;;; allout.el --- extensive outline mode for use alone and with other modes ;; Copyright (C) 1992, 1993, 1994, 2001 Free Software Foundation, Inc. ;; Author: Ken Manheimer ;; Maintainer: Ken Manheimer ;; Created: Dec 1991 - first release to usenet -;; Version: $Id: allout.el,v 1.27 2001/02/26 12:07:48 gerd Exp $|| +;; Version: $Id: allout.el,v 1.28 2001/07/02 10:45:54 eliz Exp $|| ;; Keywords: outline mode wp languages ;; This file is part of GNU Emacs. @@ -25,7 +25,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;;_* Commentary: +;;; Commentary: ;; Allout outline mode provides extensive outline formatting and ;; and manipulation beyond standard emacs outline mode. It provides @@ -60,6 +60,8 @@ ;; Ken Manheimer klm@python.org +;;; Code: + ;;;_* Provide (provide 'outline) (provide 'allout) @@ -507,7 +509,7 @@ behavior." ;;;_ : Version ;;;_ = outline-version (defvar outline-version - (let ((rcs-rev "$Revision: 1.27 $")) + (let ((rcs-rev "$Revision: 1.28 $")) (condition-case err (save-match-data (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev) @@ -1982,7 +1984,7 @@ DONT-COMPLAIN is non-nil." (progn (goto-char last-good) (if (interactive-p) (outline-end-of-prefix)) (if (not dont-complain) - (error "Can't ascend past outermost level.") + (error "Can't ascend past outermost level") (if (interactive-p) (outline-end-of-prefix)) nil)) (if (interactive-p) (outline-end-of-prefix)) @@ -2126,7 +2128,7 @@ Returns resulting position, else nil if none found." (if (not (interactive-p)) nil (outline-end-of-prefix) - (error "Hit %s level %d topic, traversed %d of %d requested." + (error "Hit %s level %d topic, traversed %d of %d requested" (if backward "first" "last") (outline-recent-depth) (- (abs start-arg) arg) @@ -3143,7 +3145,7 @@ itself. The are STARTING-DEPTH, STARTING-POINT, and INDEX." (and on-starting-call moving-outwards (> 0 (+ starting-depth relative-depth)) - (error "Attempt to shift topic out beyond level 1.")) ;;; ====> + (error "Attempt to shift topic out beyond level 1")) ;;; ====> (cond ((= starting-depth new-depth) ;; We're at depth to work on this one: @@ -3718,7 +3720,7 @@ expose this topic and its siblings." (if (<= (outline-current-depth) 0) ;; Outside any topics - try to get to the first: (if (not (outline-next-heading)) - (error "No topics.") + (error "No topics") ;; got to first, outermost topic - set to expose it and siblings: (message "Above outermost topic - exposing all.") (outline-flag-region (point-min)(point-max) ?\n)) @@ -3740,7 +3742,7 @@ siblings, even if the target topic is already closed." (let ((from (point)) (orig-eol (progn (end-of-line) (if (not (outline-goto-prefix)) - (error "No topics found.") + (error "No topics found") (end-of-line)(point))))) (outline-flag-current-subtree ?\r) (goto-char from) @@ -4025,7 +4027,7 @@ Examples: (list 'save-excursion '(if (not (or (outline-goto-prefix) (outline-next-heading))) - (error "outline-new-exposure: Can't find any outline topics.")) + (error "outline-new-exposure: Can't find any outline topics")) (list 'outline-expose-topic (list 'quote spec)))) ;;;_ > outline-exposure '() (defmacro outline-exposure (&rest spec) @@ -4036,7 +4038,7 @@ and retains start position." (list 'save-excursion '(if (not (or (outline-goto-prefix) (outline-next-heading))) - (error "Can't find any outline topics.")) + (error "Can't find any outline topics")) (cons 'outline-old-expose-topic (mapcar (function (lambda (x) (list 'quote x))) spec)))) @@ -4767,4 +4769,4 @@ so pass them along when appropriate." ;;;outline-layout: (0 : -1 -1 0) ;;;End: -;; allout.el ends here +;;; allout.el ends here diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 4364381dce..245feb7898 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -1,9 +1,9 @@ -;;; easymenu.el --- support the easymenu interface for defining a menu. +;;; easymenu.el --- support the easymenu interface for defining a menu ;; Copyright (C) 1994, 1996, 1998, 1999, 2000 Free Software Foundation, Inc. ;; Keywords: emulations -;; Author: rms +;; Author: Richard Stallman ;; This file is part of GNU Emacs. diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index dbc4ade3ef..1509a78601 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el @@ -1,14 +1,15 @@ -;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs. +;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs ; This file is in the public domain because the authors distributed it ; without a copyright notice before the US signed the Bern Convention. +;; This file is part of GNU Emacs. + ;; Author: Neal Ziring ;; Felix S. T. Wu -;; Maintainer: none ;; Keywords: emulations -;;; Commentary: +;;; 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) diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el index b59978a54f..937a82348f 100644 --- a/lisp/find-lisp.el +++ b/lisp/find-lisp.el @@ -1,9 +1,9 @@ -;;; find-lisp.el --- Emulation of find in Emacs Lisp +;;; find-lisp.el --- emulation of find in Emacs Lisp -;; Author: Peter Breton +;; Author: Peter Breton ;; Created: Fri Mar 26 1999 ;; Keywords: unix -;; Time-stamp: <2000-10-04 00:17:29 pbreton> +;; Time-stamp: <2001-07-16 12:42:35 pavel> ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. @@ -356,8 +356,8 @@ It is a function which takes two arguments, the directory and its parent." (provide 'find-lisp) -;;; find-lisp.el ends here - ;; Local Variables: ;; autocompile: t ;; End: + +;;; find-lisp.el ends here diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el index 934114232c..3eedae9a8b 100644 --- a/lisp/sun-curs.el +++ b/lisp/sun-curs.el @@ -3,7 +3,6 @@ ;; Copyright (C) 1987 Free Software Foundation, Inc. ;; Author: Jeff Peck -;; Maintainer: none ;; Keywords: hardware ;; This file is part of GNU Emacs. @@ -23,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; diff --git a/lisp/term/news.el b/lisp/term/news.el index af8635fb06..9830aed253 100644 --- a/lisp/term/news.el +++ b/lisp/term/news.el @@ -33,7 +33,7 @@ ;; The terminal initialization should already have set up some keys (setq news-fkey-prefix (lookup-key function-key-map "\eO")) (if (not (keymapp news-fkey-prefix)) - (error "What? Your news termcap/terminfo has no keycaps in it.")) + (error "What? Your news termcap/terminfo has no keycaps in it")) ;; Termcap or terminfo will set these ;; (define-key news-fkey-prefix "P" [f1]) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 50d17d6705..fdb9e1916c 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -1,4 +1,4 @@ -;;; w32-win.el --- parse switches controlling interface with W32 window system. +;;; w32-win.el --- parse switches controlling interface with W32 window system ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 05b5b7ba0f..6f0f779df4 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -22,7 +22,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;;; Code: +;;; Commentary: + +;;; Code: (define-key function-key-map "\e[A" [up]) (define-key function-key-map "\e[B" [down]) @@ -45,3 +47,5 @@ (define-key function-key-map "\e[23~" [f11]) (define-key function-key-map "\e[24~" [f12]) (define-key function-key-map "\e[29~" [print]) + +;;; xterm.el ends here diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index d307ebe76e..5b9e7a6355 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -5,7 +5,6 @@ ;; Author: James Clark ;; Adapted-By: ESR, Daniel Pfeiffer , ;; F.Potorti@cnuce.cnr.it -;; Maintainer: ??? ;; Keywords: wp, hypermedia, comm, languages ;; This file is part of GNU Emacs. @@ -363,7 +362,7 @@ varables of same name)." (setq face (funcall skeleton-transformation face)) (setq facemenu-end-add-face (concat "")) (concat "<" face ">")) - (error "Face not configured for %s mode." mode-name))) + (error "Face not configured for %s mode" mode-name))) ;;;###autoload @@ -1386,4 +1385,5 @@ Can be used as a value for `html-mode-hook'." \n)) (provide 'sgml-mode) + ;;; sgml-mode.el ends here -- 2.20.1