+2001-07-13 Pavel Jan
\e,Bm
\e(Bk <Pavel@Janik.cz>
+
+ * 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 <monnier@cs.yale.edu>
* info.el (Info-build-node-completions):
(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.
(provide 'arc-mode)
-;; arc-mode.el ends here.
+;;; arc-mode.el ends here
-;;; 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.
;;(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)
-;;; 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.
(provide 'cdl)
-;;; cdl.el ends here.
+;;; cdl.el ends here
;; Copyright (C) 1988, 90, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
;; Free Software Foundation, Inc.
-;; Author: Olin Shivers <shivers@cs.cmu.edu> then
+;; Author: Olin Shivers <shivers@cs.cmu.edu>
;; Simon Marshall <simon@gnu.org>
;; Maintainer: FSF
;; Keywords: processes
\f
(provide 'comint)
-;; comint.el ends here
+;;; comint.el ends here
-;;; 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.
;;
(unless purify-flag
(provide 'cus-start))
-;;; cus-start.el ends here.
+;;; cus-start.el ends here
-;;; 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 <shivers@cs.cmu.edu> then
+;; Author: Olin Shivers <shivers@cs.cmu.edu>
;; Simon Marshall <simon@gnu.org>
;; Maintainer: FSF
;; Keywords: processes
(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)
(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)
(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)
;; 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
(provide 'skeleton)
-;; skeleton.el ends here
+;;; skeleton.el ends here
(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)
-;; @(#) xml.el --- XML parser
+;;; xml.el --- XML parser
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
(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))
(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
)
(error "XML: Invalid attribute list")
))))
(t ;; This is not a tag.
- (error "XML: Invalid character."))
+ (error "XML: Invalid character"))
))
(defun xml-parse-attlist (end)
;; 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
))
;; 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)
;; 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
projects / emacs.git / commitdiff