Commit 6a05d05f authored by Pavel Janík's avatar Pavel Janík
Browse files

Fixes to follow coding conventions.

parent bfb01a95
2001-07-16 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* 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 <gerd@gnu.org>
 
* dired.el (dired-insert-set-properties): Fix invalid mouse-face
......
;;; 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 <klm@python.org>
;; Maintainer: Ken Manheimer <klm@python.org>
;; 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
;;; 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 <rms@gnu.org>
;; This file is part of GNU Emacs.
......
;;; 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 <nz@rsch.wisc.edu>
;; Felix S. T. Wu <wu@crys.wisc.edu>
;; 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)
......
;;; 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
......@@ -3,7 +3,6 @@
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; Author: Jeff Peck <peck@sun.com>
;; 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:
;;;
......
......@@ -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])
......
;;; 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.
......
......@@ -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
......@@ -5,7 +5,6 @@
;; Author: James Clark <jjc@jclark.com>
;; Adapted-By: ESR, Daniel Pfeiffer <occitan@esperanto.org>,
;; 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 "</" face ">"))
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment