# HG changeset patch # User Pavel Jank # Date 995109668 0 # Node ID 153f1b1f2efd307a5440bc302ad94de360b39c85 # Parent 621d2afcdfc27ab5425b4132eb4efe2894bad786 Emacs lisp coding convention fixes. diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/ChangeLog --- a/lisp/ChangeLog Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/ChangeLog Sat Jul 14 11:21:08 2001 +0000 @@ -1,3 +1,19 @@ +2001-07-13 Pavel Jan,Bm(Bk + + * arc-mode.el: A fix to follow coding conventions. + + * bindings.el: Ditto. + + * cdl.el: Ditto. + + * comint.el: Ditto. + + * cus-start.el: Ditto. + + * shell.el: Ditto. + + * skeleton.el: Ditto. + 2001-07-13 Stefan Monnier * info.el (Info-build-node-completions): diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/arc-mode.el --- a/lisp/arc-mode.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/arc-mode.el Sat Jul 14 11:21:08 2001 +0000 @@ -692,7 +692,7 @@ (string-match "\\.[aA][rR][cC]$" (or buffer-file-name (buffer-name)))) 'arc) - (t (error "Buffer format not recognized."))))) + (t (error "Buffer format not recognized"))))) ;; ------------------------------------------------------------------------- (defun archive-summarize (&optional shut-up) "Parse the contents of the archive file in the current buffer. @@ -1744,4 +1744,4 @@ (provide 'arc-mode) -;; arc-mode.el ends here. +;;; arc-mode.el ends here diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/bindings.el --- a/lisp/bindings.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/bindings.el Sat Jul 14 11:21:08 2001 +0000 @@ -1,4 +1,4 @@ -;;; bindings.el --- define standard key bindings and some variables. +;;; bindings.el --- define standard key bindings and some variables ;; Copyright (C) 1985,86,87,92,93,94,95,96,99,2000, 2001 ;; Free Software Foundation, Inc. @@ -617,7 +617,7 @@ ;;(defun function-key-error () ;; (interactive) -;; (error "That function key is not bound to anything.")) +;; (error "That function key is not bound to anything")) (define-key global-map [menu] 'execute-extended-command) (define-key global-map [find] 'search-forward) diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/cdl.el --- a/lisp/cdl.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/cdl.el Sat Jul 14 11:21:08 2001 +0000 @@ -1,4 +1,4 @@ -;;; cdl.el --- Common Data Language (CDL) utility functions for Gnu Emacs +;;; cdl.el --- Common Data Language (CDL) utility functions for GNU Emacs ;; Copyright (C) 1993 Free Software Foundation, Inc. @@ -44,4 +44,4 @@ (provide 'cdl) -;;; cdl.el ends here. +;;; cdl.el ends here diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/comint.el --- a/lisp/comint.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/comint.el Sat Jul 14 11:21:08 2001 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1988, 90, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc. -;; Author: Olin Shivers then +;; Author: Olin Shivers ;; Simon Marshall ;; Maintainer: FSF ;; Keywords: processes @@ -3213,4 +3213,4 @@ (provide 'comint) -;; comint.el ends here +;;; comint.el ends here diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/cus-start.el --- a/lisp/cus-start.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/cus-start.el Sat Jul 14 11:21:08 2001 +0000 @@ -1,4 +1,4 @@ -;;; cus-start.el --- define customization properties of builtins. +;;; cus-start.el --- define customization properties of builtins ;; ;; Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc. ;; @@ -308,4 +308,4 @@ (unless purify-flag (provide 'cus-start)) -;;; cus-start.el ends here. +;;; cus-start.el ends here diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/shell.el --- a/lisp/shell.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/shell.el Sat Jul 14 11:21:08 2001 +0000 @@ -1,8 +1,8 @@ -;;; shell.el --- specialized comint.el for running the shell. +;;; shell.el --- specialized comint.el for running the shell ;; Copyright (C) 1988, 93, 94, 95, 96, 1997, 2000 Free Software Foundation, Inc. -;; Author: Olin Shivers then +;; Author: Olin Shivers ;; Simon Marshall ;; Maintainer: FSF ;; Keywords: processes @@ -678,7 +678,7 @@ (cond ((> num (length shell-dirstack)) (message "Directory stack not that deep.")) ((= num 0) - (error (message "Couldn't cd."))) + (error (message "Couldn't cd"))) (shell-pushd-dextract (let ((dir (nth (1- num) shell-dirstack))) (shell-process-popd arg) @@ -774,7 +774,7 @@ (setq shell-dirstack (cdr ds) shell-last-dir (car shell-dirstack)) (shell-dirstack-message)) - (error (message "Couldn't cd."))))))) + (error (message "Couldn't cd"))))))) ;;; For your typing convenience: (defalias 'dirs 'shell-resync-dirs) @@ -1003,7 +1003,7 @@ (cond ((null index) nil) ((>= index (length stack)) - (error "Directory stack not that deep.")) + (error "Directory stack not that deep")) (t (replace-match (file-name-as-directory (nth index stack)) t t) (message "Directory item: %d" index) diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/skeleton.el --- a/lisp/skeleton.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/skeleton.el Sat Jul 14 11:21:08 2001 +0000 @@ -480,7 +480,7 @@ ;; t) ;; '(save-excursion ;; (if (re-search-forward page-delimiter nil t) -;; (error "Not on last page."))) +;; (error "Not on last page"))) ;; comment-start "Local Variables:" comment-end \n ;; comment-start "mode: " str ;; & -5 | '(kill-line 0) & -1 | comment-end \n @@ -607,4 +607,4 @@ (provide 'skeleton) -;; skeleton.el ends here +;;; skeleton.el ends here diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/which-func.el --- a/lisp/which-func.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/which-func.el Sat Jul 14 11:21:08 2001 +0000 @@ -127,7 +127,7 @@ (defvar which-func-mode nil "Non-nil means display current function name in mode line. -This makes a difference only if `which-function-mode' is non-nil") +This makes a difference only if `which-function-mode' is non-nil.") (make-variable-buffer-local 'which-func-mode) ;;(put 'which-func-mode 'permanent-local t) diff -r 621d2afcdfc2 -r 153f1b1f2efd lisp/xml.el --- a/lisp/xml.el Fri Jul 13 18:34:08 2001 +0000 +++ b/lisp/xml.el Sat Jul 14 11:21:08 2001 +0000 @@ -1,4 +1,4 @@ -;; @(#) xml.el --- XML parser +;;; xml.el --- XML parser ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. @@ -164,7 +164,7 @@ (add-to-list 'xml result)))) ;; translation of rule [1] of XML specifications - (error "XML files can have only one toplevel tag."))) + (error "XML files can have only one toplevel tag"))) (goto-char end))) (if parse-dtd (cons dtd (reverse xml)) @@ -264,7 +264,7 @@ (goto-char (match-end 0)) (skip-chars-forward " \t\n") (if (> (point) end) - (error "XML: End tag for %s not found before end of region." + (error "XML: End tag for %s not found before end of region" node-name)) children ) @@ -273,7 +273,7 @@ (error "XML: Invalid attribute list") )))) (t ;; This is not a tag. - (error "XML: Invalid character.")) + (error "XML: Invalid character")) )) (defun xml-parse-attlist (end) @@ -291,18 +291,18 @@ ;; or a simple word ? (unless (looking-at "\"\\([^\"]+\\)\"") (unless (looking-at "'\\([^\"]+\\)'") - (error "XML: Attribute values must be given between quotes."))) + (error "XML: Attribute values must be given between quotes"))) ;; Each attribute must be unique within a given element (if (assoc name attlist) - (error "XML: each attribute must be unique within an element.")) + (error "XML: each attribute must be unique within an element")) (set 'attlist (append attlist (list (cons name (match-string-no-properties 1))))) (goto-char (match-end 0)) (skip-chars-forward " \t\n") (if (> (point) end) - (error "XML: end of attribute list not found before end of region.")) + (error "XML: end of attribute list not found before end of region")) ) attlist )) @@ -350,10 +350,10 @@ ;; External DTDs => don't know how to handle them yet (if (looking-at "SYSTEM") - (error "XML: Don't know how to handle external DTDs.")) + (error "XML: Don't know how to handle external DTDs")) (if (not (= (char-after) ?\[)) - (error "XML: Unknown declaration in the DTD.")) + (error "XML: Unknown declaration in the DTD")) ;; Parse the rest of the DTD (forward-char 1) @@ -384,7 +384,7 @@ ;; rule [45]: the element declaration must be unique (if (assoc element dtd) - (error "XML: elements declaration must be unique in a DTD (<%s>)." + (error "XML: elements declaration must be unique in a DTD (<%s>)" (symbol-name element))) ;; Store the element in the DTD