Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53
Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS
This commit is contained in:
Miles Bader
commit
64e9342958
328 changed files with 7098 additions and 4691 deletions
|
|
@ -1,6 +1,6 @@
|
|||
;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*-
|
||||
|
||||
;; Copyright (C) 2000, 2003 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2000, 2003, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Gerd Moellmann <gerd@gnu.org>
|
||||
;; Maintainer: Kim F. Storm <storm@cua.dk>
|
||||
|
|
@ -597,8 +597,7 @@ buffer *Authors Errors* containing references to unknown files."
|
|||
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
|
||||
(error "Not the root directory of Emacs: %s" root))
|
||||
(dolist (log logs)
|
||||
(when (and (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
|
||||
(not (string-match "/lispref/" log)))
|
||||
(when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
|
||||
(message "Scanning %s..." log)
|
||||
(authors-scan-change-log log table)))
|
||||
(let ((els (authors-process-lines "find" root "-name" "*.el")))
|
||||
|
|
|
|||
|
|
@ -175,8 +175,9 @@ If you think you need this, you're probably making a mistake somewhere."
|
|||
;;; byte-compile-macro-environment.
|
||||
|
||||
(defmacro eval-when-compile (&rest body)
|
||||
"Like `progn', but evaluates the body at compile time.
|
||||
The result of the body appears to the compiler as a quoted constant."
|
||||
"Like `progn', but evaluates the body at compile time if you're compiling.
|
||||
Thus, the result of the body appears to the compiler as a quoted constant.
|
||||
In interpreted code, this is entirely equivalent to `progn'."
|
||||
(declare (debug t) (indent 0))
|
||||
;; Not necessary because we have it in b-c-initial-macro-environment
|
||||
;; (list 'quote (eval (cons 'progn body)))
|
||||
|
|
|
|||
|
|
@ -338,8 +338,8 @@ Elements of the list may be be:
|
|||
|
||||
free-vars references to variables not in the current lexical scope.
|
||||
unresolved calls to unknown functions.
|
||||
callargs lambda calls with args that don't match the definition.
|
||||
redefine function cell redefined from a macro to a lambda or vice
|
||||
callargs function calls with args that don't match the definition.
|
||||
redefine function name redefined from a macro to ordinary function or vice
|
||||
versa, or redefined to take a different number of arguments.
|
||||
obsolete obsolete variables and functions.
|
||||
noruntime functions that may not be defined at runtime (typically
|
||||
|
|
@ -1244,6 +1244,20 @@ extra args."
|
|||
(dolist (elt '(format message error))
|
||||
(put elt 'byte-compile-format-like t))
|
||||
|
||||
;; Warn if a custom definition fails to specify :group.
|
||||
(defun byte-compile-nogroup-warn (form)
|
||||
(let ((keyword-args (cdr (cdr (cdr (cdr form)))))
|
||||
(name (cadr form)))
|
||||
(unless (plist-get keyword-args :group)
|
||||
(byte-compile-warn
|
||||
"%s for `%s' fails to specify containing group"
|
||||
(cdr (assq (car form)
|
||||
'((custom-declare-group . defgroup)
|
||||
(custom-declare-face . defface)
|
||||
(custom-declare-variable . defcustom))))
|
||||
(if (and (consp name) (eq (car name) 'quote))
|
||||
(cadr name) name)))))
|
||||
|
||||
;; Warn if the function or macro is being redefined with a different
|
||||
;; number of arguments.
|
||||
(defun byte-compile-arglist-warn (form macrop)
|
||||
|
|
@ -2156,6 +2170,8 @@ list that represents a doc string reference.
|
|||
(put 'custom-declare-variable 'byte-hunk-handler
|
||||
'byte-compile-file-form-custom-declare-variable)
|
||||
(defun byte-compile-file-form-custom-declare-variable (form)
|
||||
(when (memq 'callargs byte-compile-warnings)
|
||||
(byte-compile-nogroup-warn form))
|
||||
(when (memq 'free-vars byte-compile-warnings)
|
||||
(push (nth 1 (nth 1 form)) byte-compile-bound-variables))
|
||||
(let ((tail (nthcdr 4 form)))
|
||||
|
|
@ -2729,7 +2745,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
|
|||
(when (byte-compile-const-symbol-p fn)
|
||||
(byte-compile-warn "`%s' called as a function" fn))
|
||||
(and (memq 'interactive-only byte-compile-warnings)
|
||||
(memq (car form) byte-compile-interactive-only-functions)
|
||||
(memq fn byte-compile-interactive-only-functions)
|
||||
(byte-compile-warn "`%s' used from Lisp code\n\
|
||||
That command is designed for interactive use only" fn))
|
||||
(if (and handler
|
||||
|
|
@ -2739,8 +2755,10 @@ That command is designed for interactive use only" fn))
|
|||
(progn
|
||||
(byte-compile-set-symbol-position fn)
|
||||
(funcall handler form))
|
||||
(if (memq 'callargs byte-compile-warnings)
|
||||
(byte-compile-callargs-warn form))
|
||||
(when (memq 'callargs byte-compile-warnings)
|
||||
(if (memq fn '(custom-declare-group custom-declare-variable custom-declare-face))
|
||||
(byte-compile-nogroup-warn form))
|
||||
(byte-compile-callargs-warn form))
|
||||
(byte-compile-normal-call form))
|
||||
(if (memq 'cl-functions byte-compile-warnings)
|
||||
(byte-compile-cl-warn form))))
|
||||
|
|
|
|||
|
|
@ -61,7 +61,7 @@ TYPE is a Common Lisp type specifier."
|
|||
;;; Predicates.
|
||||
|
||||
(defun equalp (x y)
|
||||
"T if two Lisp objects have similar structures and contents.
|
||||
"Return t if two Lisp objects have similar structures and contents.
|
||||
This is like `equal', except that it accepts numerically equal
|
||||
numbers of different types (float vs. integer), and also compares
|
||||
strings case-insensitively."
|
||||
|
|
|
|||
|
|
@ -1335,7 +1335,7 @@ Unlike `flet', this macro is fully compliant with the Common Lisp standard.
|
|||
;; The following ought to have a better definition for use with newer
|
||||
;; byte compilers.
|
||||
(defmacro macrolet (bindings &rest body)
|
||||
"Make temporary macro defns.
|
||||
"Make temporary macro definitions.
|
||||
This is like `flet', but for macros instead of functions.
|
||||
|
||||
\(fn ((NAME ARGLIST BODY...) ...) FORM...)"
|
||||
|
|
@ -1351,7 +1351,7 @@ This is like `flet', but for macros instead of functions.
|
|||
cl-macro-environment))))))
|
||||
|
||||
(defmacro symbol-macrolet (bindings &rest body)
|
||||
"Make symbol macro defns.
|
||||
"Make symbol macro definitions.
|
||||
Within the body FORMs, references to the variable NAME will be replaced
|
||||
by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...).
|
||||
|
||||
|
|
|
|||
|
|
@ -800,7 +800,7 @@ Keywords supported: :test :test-not :key"
|
|||
(apply 'nset-difference cl-list2 cl-list1 cl-keys)))))
|
||||
|
||||
(defun subsetp (cl-list1 cl-list2 &rest cl-keys)
|
||||
"True if LIST1 is a subset of LIST2.
|
||||
"Return true if LIST1 is a subset of LIST2.
|
||||
I.e., if every element of LIST1 also appears in LIST2.
|
||||
Keywords supported: :test :test-not :key"
|
||||
(cond ((null cl-list1) t) ((null cl-list2) nil)
|
||||
|
|
@ -888,7 +888,7 @@ Keywords supported: :test :test-not :key"
|
|||
(setq cl-tree (cdr cl-tree))))))
|
||||
|
||||
(defun tree-equal (cl-x cl-y &rest cl-keys)
|
||||
"T if trees X and Y have `eql' leaves.
|
||||
"Return t if trees X and Y have `eql' leaves.
|
||||
Atoms are compared by `eql'; cons cells are compared recursively.
|
||||
Keywords supported: :test :test-not :key"
|
||||
(cl-parsing-keywords (:test :test-not :key) ()
|
||||
|
|
|
|||
|
|
@ -115,7 +115,7 @@ a future Emacs interpreter will be able to use it.")
|
|||
;;; Predicates.
|
||||
|
||||
(defun eql (a b) ; See compiler macro in cl-macs.el
|
||||
"T if the two args are the same Lisp object.
|
||||
"Return t if the two args are the same Lisp object.
|
||||
Floating-point numbers of equal value are `eql', but they may not be `eq'."
|
||||
(if (numberp a)
|
||||
(equal a b)
|
||||
|
|
@ -301,25 +301,25 @@ definitions to shadow the loaded ones for use in file byte-compilation."
|
|||
;;; Numbers.
|
||||
|
||||
(defun floatp-safe (x)
|
||||
"T if OBJECT is a floating point number.
|
||||
"Return t if OBJECT is a floating point number.
|
||||
On Emacs versions that lack floating-point support, this function
|
||||
always returns nil."
|
||||
(and (numberp x) (not (integerp x))))
|
||||
|
||||
(defun plusp (x)
|
||||
"T if NUMBER is positive."
|
||||
"Return t if NUMBER is positive."
|
||||
(> x 0))
|
||||
|
||||
(defun minusp (x)
|
||||
"T if NUMBER is negative."
|
||||
"Return t if NUMBER is negative."
|
||||
(< x 0))
|
||||
|
||||
(defun oddp (x)
|
||||
"T if INTEGER is odd."
|
||||
"Return t if INTEGER is odd."
|
||||
(eq (logand x 1) 1))
|
||||
|
||||
(defun evenp (x)
|
||||
"T if INTEGER is even."
|
||||
"Return t if INTEGER is even."
|
||||
(eq (logand x 1) 0))
|
||||
|
||||
(defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time)))
|
||||
|
|
@ -503,7 +503,7 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp
|
|||
;; x))
|
||||
|
||||
(defun list* (arg &rest rest) ; See compiler macro in cl-macs.el
|
||||
"Return a new list with specified args as elements, cons'd to last arg.
|
||||
"Return a new list with specified args as elements, consed to last arg.
|
||||
Thus, `(list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to
|
||||
`(cons A (cons B (cons C D)))'."
|
||||
(cond ((not rest) arg)
|
||||
|
|
|
|||
|
|
@ -183,32 +183,36 @@ Uses heuristic: year >= 50 means 19xx, < 50 means 20xx."
|
|||
(widen)
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward copyright-regexp (+ (point) copyright-limit) t)
|
||||
(let ((s (match-beginning 2)) (e (make-marker))
|
||||
(let ((s (match-beginning 2))
|
||||
(e (copy-marker (1+ (match-end 2))))
|
||||
(p (make-marker))
|
||||
last)
|
||||
(set-marker e (1+ (match-end 2)))
|
||||
(goto-char s)
|
||||
(while (and (< (point) (marker-position e))
|
||||
(re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]"
|
||||
(marker-position e) t))
|
||||
(let ((p (point))
|
||||
(sep (match-string 1))
|
||||
(year (string-to-number (match-string 2))))
|
||||
(goto-char (1+ (match-beginning 0)))
|
||||
(unless (= (char-syntax (string-to-char sep)) ?\s)
|
||||
(while (re-search-forward "[0-9]+" e t)
|
||||
(set-marker p (point))
|
||||
(goto-char (match-beginning 0))
|
||||
(let ((sep (char-before))
|
||||
(year (string-to-number (match-string 0))))
|
||||
(when (and sep
|
||||
(/= (char-syntax sep) ?\s)
|
||||
(/= sep ?-))
|
||||
(insert " "))
|
||||
(if (< year 100)
|
||||
(insert (if (>= year 50) "19" "20")))
|
||||
(goto-char p)
|
||||
(setq last p)))
|
||||
(when (< year 100)
|
||||
(insert (if (>= year 50) "19" "20"))))
|
||||
(goto-char p)
|
||||
(setq last p))
|
||||
(when last
|
||||
(goto-char last)
|
||||
(let ((fill-prefix " "))
|
||||
(fill-region s last))
|
||||
)
|
||||
;; Don't mess up whitespace after the years.
|
||||
(skip-chars-backward " \t")
|
||||
(save-restriction
|
||||
(narrow-to-region (point-min) (point))
|
||||
(let ((fill-prefix " "))
|
||||
(fill-region s last))))
|
||||
(set-marker e nil)
|
||||
(set-marker p nil)
|
||||
(copyright-update nil t))
|
||||
(message "No copyright message")
|
||||
(goto-char (point-min))))
|
||||
(message "No copyright message")))
|
||||
|
||||
;;;###autoload
|
||||
(define-skeleton copyright
|
||||
|
|
|
|||
|
|
@ -158,7 +158,9 @@ Note that if the documentation string had been left out, it would have
|
|||
been generated automatically, with a reference to the keymap.
|
||||
|
||||
The new mode runs the hook constructed by the function
|
||||
`derived-mode-hook-name'."
|
||||
`derived-mode-hook-name'.
|
||||
|
||||
See Info node `(elisp)Derived Modes' for more details."
|
||||
(declare (debug (&define name symbolp sexp [&optional stringp]
|
||||
[&rest keywordp sexp] def-body)))
|
||||
|
||||
|
|
|
|||
|
|
@ -36,7 +36,6 @@
|
|||
;; For each mode, easy-mmode defines the following:
|
||||
;; <mode> : The minor mode predicate. A buffer-local variable.
|
||||
;; <mode>-map : The keymap possibly associated to <mode>.
|
||||
;; <mode>-hook : The hook run at the end of the toggle function.
|
||||
;; see `define-minor-mode' documentation
|
||||
;;
|
||||
;; eval
|
||||
|
|
@ -90,7 +89,7 @@ replacing its case-insensitive matches with the literal string in LIGHTER."
|
|||
(defmacro define-minor-mode (mode doc &optional init-value lighter keymap &rest body)
|
||||
"Define a new minor mode MODE.
|
||||
This function defines the associated control variable MODE, keymap MODE-map,
|
||||
toggle command MODE, and hook MODE-hook.
|
||||
and toggle command MODE.
|
||||
|
||||
DOC is the documentation for the mode toggle command.
|
||||
Optional INIT-VALUE is the initial value of the mode's variable.
|
||||
|
|
@ -103,11 +102,11 @@ The above three arguments can be skipped if keyword arguments are
|
|||
used (see below).
|
||||
|
||||
BODY contains code that will be executed each time the mode is (dis)activated.
|
||||
It will be executed after any toggling but before running the hooks.
|
||||
Before the actual body code, you can write
|
||||
keyword arguments (alternating keywords and values).
|
||||
These following keyword arguments are supported (other keywords
|
||||
will be passed to `defcustom' if the minor mode is global):
|
||||
It will be executed after any toggling but before running the hook variable
|
||||
`mode-HOOK'.
|
||||
Before the actual body code, you can write keyword arguments (alternating
|
||||
keywords and values). These following keyword arguments are supported (other
|
||||
keywords will be passed to `defcustom' if the minor mode is global):
|
||||
:group GROUP Custom group name to use in all generated `defcustom' forms.
|
||||
Defaults to MODE without the possible trailing \"-mode\".
|
||||
Don't use this default group name unless you have written a
|
||||
|
|
@ -241,12 +240,6 @@ With zero or negative ARG turn mode off.
|
|||
;; up-to-here.
|
||||
:autoload-end
|
||||
|
||||
;; The toggle's hook.
|
||||
(defcustom ,hook nil
|
||||
,(format "Hook run at the end of function `%s'." mode-name)
|
||||
,@group
|
||||
:type 'hook)
|
||||
|
||||
;; Define the minor-mode keymap.
|
||||
,(unless (symbolp keymap) ;nil is also a symbol.
|
||||
`(defvar ,keymap-sym
|
||||
|
|
@ -323,8 +316,8 @@ in which `%s' turns it on."
|
|||
(with-current-buffer buf
|
||||
(if ,global-mode (,turn-on) (when ,mode (,mode -1))))))
|
||||
|
||||
;; Autoloading easy-mmode-define-global-mode
|
||||
;; autoloads everything up-to-here.
|
||||
;; Autoloading define-global-minor-mode autoloads everything
|
||||
;; up-to-here.
|
||||
:autoload-end
|
||||
|
||||
;; List of buffers left to process.
|
||||
|
|
|
|||
|
|
@ -65,7 +65,7 @@ It returns the remaining items of the displayed menu.
|
|||
:visible INCLUDE
|
||||
|
||||
INCLUDE is an expression; this menu is only visible if this
|
||||
expression has a non-nil value. `:include' is an alias for `:visible'.
|
||||
expression has a non-nil value. `:included' is an alias for `:visible'.
|
||||
|
||||
:active ENABLE
|
||||
|
||||
|
|
@ -110,10 +110,10 @@ keyboard equivalent.
|
|||
ENABLE is an expression; the item is enabled for selection
|
||||
whenever this expression's value is non-nil.
|
||||
|
||||
:included INCLUDE
|
||||
:visible INCLUDE
|
||||
|
||||
INCLUDE is an expression; this item is only visible if this
|
||||
expression has a non-nil value.
|
||||
expression has a non-nil value. `:included' is an alias for `:visible'.
|
||||
|
||||
:suffix FORM
|
||||
|
||||
|
|
|
|||
|
|
@ -141,9 +141,9 @@ truncated to make more of the arglist or documentation string visible."
|
|||
"Toggle ElDoc mode on or off.
|
||||
In ElDoc mode, the echo area displays information about a
|
||||
function or variable in the text where point is. If point is
|
||||
on a documented variable, it displays that variable's doc string.
|
||||
Otherwise it displays the argument list of the function called
|
||||
in the expression point is on.
|
||||
on a documented variable, it displays the first line of that
|
||||
variable's doc string. Otherwise it displays the argument list
|
||||
of the function called in the expression point is on.
|
||||
|
||||
With prefix ARG, turn ElDoc mode on if and only if ARG is positive."
|
||||
:group 'eldoc :lighter eldoc-minor-mode-string
|
||||
|
|
@ -229,6 +229,7 @@ With prefix ARG, turn ElDoc mode on if and only if ARG is positive."
|
|||
(not (eq (selected-window) (minibuffer-window)))))
|
||||
|
||||
|
||||
;;;###autoload
|
||||
(defvar eldoc-documentation-function nil
|
||||
"If non-nil, function to call to return doc string.
|
||||
The function of no args should return a one-line string for displaying
|
||||
|
|
|
|||
|
|
@ -117,46 +117,37 @@ instead (which see).")
|
|||
;;;###autoload
|
||||
(defmacro define-generic-mode (mode comment-list keyword-list
|
||||
font-lock-list auto-mode-list
|
||||
function-list &optional docstring
|
||||
&rest custom-keyword-args)
|
||||
function-list &optional docstring)
|
||||
"Create a new generic mode MODE.
|
||||
|
||||
MODE is the name of the command for the generic mode; don't quote
|
||||
it. The optional DOCSTRING is the documentation for the mode
|
||||
command. If you do not supply it, `define-generic-mode' uses a
|
||||
default documentation string instead.
|
||||
MODE is the name of the command for the generic mode; don't quote it.
|
||||
The optional DOCSTRING is the documentation for the mode command. If
|
||||
you do not supply it, `define-generic-mode' uses a default
|
||||
documentation string instead.
|
||||
|
||||
COMMENT-LIST is a list in which each element is either a
|
||||
character, a string of one or two characters, or a cons cell. A
|
||||
character or a string is set up in the mode's syntax table as a
|
||||
\"comment starter\". If the entry is a cons cell, the `car' is
|
||||
set up as a \"comment starter\" and the `cdr' as a \"comment
|
||||
ender\". (Use nil for the latter if you want comments to end at
|
||||
the end of the line.) Note that the syntax table has limitations
|
||||
about what comment starters and enders are actually possible.
|
||||
COMMENT-LIST is a list in which each element is either a character, a
|
||||
string of one or two characters, or a cons cell. A character or a
|
||||
string is set up in the mode's syntax table as a \"comment starter\".
|
||||
If the entry is a cons cell, the `car' is set up as a \"comment
|
||||
starter\" and the `cdr' as a \"comment ender\". (Use nil for the
|
||||
latter if you want comments to end at the end of the line.) Note that
|
||||
the syntax table has limitations about what comment starters and
|
||||
enders are actually possible.
|
||||
|
||||
KEYWORD-LIST is a list of keywords to highlight with
|
||||
`font-lock-keyword-face'. Each keyword should be a string.
|
||||
|
||||
FONT-LOCK-LIST is a list of additional expressions to highlight.
|
||||
Each element of this list should have the same form as an element
|
||||
of `font-lock-keywords'.
|
||||
FONT-LOCK-LIST is a list of additional expressions to highlight. Each
|
||||
element of this list should have the same form as an element of
|
||||
`font-lock-keywords'.
|
||||
|
||||
AUTO-MODE-LIST is a list of regular expressions to add to
|
||||
`auto-mode-alist'. These regular expressions are added when
|
||||
Emacs runs the macro expansion.
|
||||
`auto-mode-alist'. These regular expressions are added when Emacs
|
||||
runs the macro expansion.
|
||||
|
||||
FUNCTION-LIST is a list of functions to call to do some
|
||||
additional setup. The mode command calls these functions just
|
||||
before it runs the mode hook.
|
||||
|
||||
The optional CUSTOM-KEYWORD-ARGS are pairs of keywords and values
|
||||
to include in the generated `defcustom' form for the mode hook
|
||||
variable `MODE-hook'. The default value for the `:group' keyword
|
||||
is MODE with the final \"-mode\" (if any) removed. (Don't use
|
||||
this default group name unless you have written a `defgroup' to
|
||||
define that group properly.) You can specify keyword arguments
|
||||
without specifying a docstring.
|
||||
FUNCTION-LIST is a list of functions to call to do some additional
|
||||
setup. The mode command calls these functions just before it runs the
|
||||
mode hook `MODE-hook'.
|
||||
|
||||
See the file generic-x.el for some examples of `define-generic-mode'."
|
||||
(declare (debug (sexp def-form def-form def-form form def-form
|
||||
|
|
@ -167,22 +158,9 @@ See the file generic-x.el for some examples of `define-generic-mode'."
|
|||
(when (eq (car-safe mode) 'quote)
|
||||
(setq mode (eval mode)))
|
||||
|
||||
(when (and docstring (not (stringp docstring)))
|
||||
;; DOCSTRING is not a string so we assume that it's actually the
|
||||
;; first keyword of CUSTOM-KEYWORD-ARGS.
|
||||
(push docstring custom-keyword-args)
|
||||
(setq docstring nil))
|
||||
|
||||
(let* ((name (symbol-name mode))
|
||||
(pretty-name (capitalize (replace-regexp-in-string
|
||||
"-mode\\'" "" name)))
|
||||
(mode-hook (intern (concat name "-hook"))))
|
||||
|
||||
(unless (plist-get custom-keyword-args :group)
|
||||
(setq custom-keyword-args
|
||||
(plist-put custom-keyword-args
|
||||
:group `',(intern (replace-regexp-in-string
|
||||
"-mode\\'" "" name)))))
|
||||
"-mode\\'" "" name))))
|
||||
|
||||
`(progn
|
||||
;; Add a new entry.
|
||||
|
|
@ -192,15 +170,11 @@ See the file generic-x.el for some examples of `define-generic-mode'."
|
|||
(dolist (re ,auto-mode-list)
|
||||
(add-to-list 'auto-mode-alist (cons re ',mode)))
|
||||
|
||||
(defcustom ,mode-hook nil
|
||||
,(concat "Hook run when entering " pretty-name " mode.")
|
||||
:type 'hook
|
||||
,@custom-keyword-args)
|
||||
|
||||
(defun ,mode ()
|
||||
,(or docstring
|
||||
(concat pretty-name " mode.\n"
|
||||
"This a generic mode defined with `define-generic-mode'."))
|
||||
"This a generic mode defined with `define-generic-mode'.\n"
|
||||
"It runs `" name "-hook' as the last thing it does."))
|
||||
(interactive)
|
||||
(generic-mode-internal ',mode ,comment-list ,keyword-list
|
||||
,font-lock-list ,function-list)))))
|
||||
|
|
|
|||
|
|
@ -418,7 +418,7 @@ ISO-DATE non-nil means return the date in ISO 8601 format."
|
|||
(format "%s-%s-%s" yyyy mm dd)
|
||||
(format "%s %s %s"
|
||||
dd
|
||||
(nth (string-to-int mm)
|
||||
(nth (string-to-number mm)
|
||||
'("" "Jan" "Feb" "Mar" "Apr" "May" "Jun"
|
||||
"Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
|
||||
yyyy))))))
|
||||
|
|
|
|||
|
|
@ -192,6 +192,9 @@
|
|||
;; Look within the line for a ; following an even number of backslashes
|
||||
;; after either a non-backslash or the line beginning.
|
||||
(setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *")
|
||||
(make-local-variable 'font-lock-comment-start-skip)
|
||||
;; Font lock mode uses this only when it KNOWS a comment is starting.
|
||||
(setq font-lock-comment-start-skip ";+ *")
|
||||
(make-local-variable 'comment-add)
|
||||
(setq comment-add 1) ;default to `;;' in comment-region
|
||||
(make-local-variable 'comment-column)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; lisp.el --- Lisp editing commands for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 86, 1994, 2000, 2004 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1985, 1986, 1994, 2000, 2004, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: lisp, languages
|
||||
|
|
@ -487,9 +488,9 @@ If region is active, insert enclosing characters at region boundaries."
|
|||
More accurately, check the narrowed part of the buffer for unbalanced
|
||||
expressions (\"sexps\") in general. This is done according to the
|
||||
current syntax table and will find unbalanced brackets or quotes as
|
||||
appropriate. (See Info node `(emacs)Lists and Sexps'.) If imbalance
|
||||
is found, an error is signalled and point is left at the first
|
||||
unbalanced character."
|
||||
appropriate. (See Info node `(emacs)Parentheses'.) If imbalance is
|
||||
found, an error is signalled and point is left at the first unbalanced
|
||||
character."
|
||||
(interactive)
|
||||
(condition-case data
|
||||
;; Buffer can't have more than (point-max) sexps.
|
||||
|
|
|
|||
|
|
@ -557,7 +557,7 @@ optional fourth argument FORCE is non-nil."
|
|||
(interactive)
|
||||
|
||||
(setq reb-subexp-displayed
|
||||
(or subexp (string-to-int (format "%c" last-command-char))))
|
||||
(or subexp (string-to-number (format "%c" last-command-char))))
|
||||
(reb-update-modestring)
|
||||
(reb-do-update reb-subexp-displayed))
|
||||
|
||||
|
|
|
|||
|
|
@ -147,7 +147,8 @@ call to one of the `testcover-1value-functions'."
|
|||
(defcustom testcover-potentially-1value-functions
|
||||
'(add-hook and beep or remove-hook unless when)
|
||||
"Functions that are potentially 1-valued. No brown splotch if actually
|
||||
1-valued, no error if actually multi-valued.")
|
||||
1-valued, no error if actually multi-valued."
|
||||
:group 'testcover)
|
||||
|
||||
(defface testcover-nohits-face
|
||||
'((t (:background "DeepPink2")))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue