(defvar outline-line-boundary-regexp ()
"Outline-regexp with outline-style beginning-of-line anchor.
-(Ie, C-j, *or* C-m, for prefixes of hidden topics). This is properly
+\(Ie, C-j, *or* C-m, for prefixes of hidden topics). This is properly
set when outline-regexp is produced by 'set-outline-regexp', so
that (match-beginning 2) and (match-end 2) delimit the prefix.")
(make-variable-buffer-local 'outline-line-boundary-regexp)
;;;_ = outline-bob-regexp
(defvar outline-bob-regexp ()
"Like outline-line-boundary-regexp, for headers at beginning of buffer.
-(match-beginning 2) and (match-end 2) delimit the prefix.")
+\(match-beginning 2) and (match-end 2) delimit the prefix.")
(make-variable-buffer-local 'outline-bob-regexp)
;;;_ = outline-header-subtraction
(defvar outline-header-subtraction (1- (length outline-header-prefix))
"Compute the French Revolutionary equivalent for absolute date DATE.
The result is a list of the form (MONTH DAY YEAR).
The absolute date is the number of days elapsed since the
-(imaginary) Gregorian date Sunday, December 31, 1 BC."
+\(imaginary) Gregorian date Sunday, December 31, 1 BC."
(if (< date 654415)
(list 0 0 0);; pre-French Revolutionary date
(let* ((approx (/ (- date 654414) 366));; Approximation from below.
(defun holiday-float (month dayname n string &optional day)
"Holiday on MONTH, DAYNAME (Nth occurrence, Gregorian) called STRING.
If the Nth DAYNAME in MONTH is visible, the value returned is the list
-(((MONTH DAY year) STRING)).
+\(((MONTH DAY year) STRING)).
If N<0, count backward from the end of MONTH.
If `^' is in this string it must NOT come first. If `-' is in this
string, it must come first or right after `]'. In other words, if
S is this string, then `[S]' must be a legal Emacs regular expression
-(not containing character ranges like `a-z').")
+\(not containing character ranges like `a-z').")
(defvar PC-first-char 'x
(defun list-hebrew-diary-entries ()
"Add any Hebrew date entries from the diary file to `diary-entries-list'.
Hebrew date diary entries must be prefaced by `hebrew-diary-entry-symbol'
-(normally an `H'). The same diary date forms govern the style of the Hebrew
+\(normally an `H'). The same diary date forms govern the style of the Hebrew
calendar entries, except that the Hebrew month names must be spelled in full.
The Hebrew months are numbered from 1 to 13 with Nisan being 1, 12 being
Adar I and 13 being Adar II; you must use `Adar I' if you want Adar of a
"Mark days in the calendar window that have Hebrew date diary entries.
Each entry in diary-file (or included files) visible in the calendar window
is marked. Hebrew date entries are prefaced by a hebrew-diary-entry-symbol
-(normally an `H'). The same diary-date-forms govern the style of the Hebrew
+\(normally an `H'). The same diary-date-forms govern the style of the Hebrew
calendar entries, except that the Hebrew month names must be spelled in full.
The Hebrew months are numbered from 1 to 13 with Nisan being 1, 12 being
Adar I and 13 being Adar II; you must use `Adar I' if you want Adar of a
(defun list-islamic-diary-entries ()
"Add any Islamic date entries from the diary file to `diary-entries-list'.
Islamic date diary entries must be prefaced by an `islamic-diary-entry-symbol'
-(normally an `I'). The same diary date forms govern the style of the Islamic
+\(normally an `I'). The same diary date forms govern the style of the Islamic
calendar entries, except that the Islamic month names must be spelled in full.
The Islamic months are numbered from 1 to 12 with Muharram being 1 and 12 being
Dhu al-Hijjah. If an Islamic date diary entry begins with a
"Mark days in the calendar window that have Islamic date diary entries.
Each entry in diary-file (or included files) visible in the calendar window
is marked. Islamic date entries are prefaced by a islamic-diary-entry-symbol
-(normally an `I'). The same diary-date-forms govern the style of the Islamic
+\(normally an `I'). The same diary-date-forms govern the style of the Islamic
calendar entries, except that the Islamic month names must be spelled in full.
The Islamic months are numbered from 1 to 12 with Muharram being 1 and 12 being
Dhu al-Hijjah. Islamic date diary entries that begin with a
"A list of killed diffs.
A diff is saved here if it is replaced by a diff
from another buffer. This alist has the form:
-((num (A . diff) (B . diff)) ...),
+\((num (A . diff) (B . diff)) ...),
where A or B parts may be missing.")
(defun vip-repeat (arg)
"(ARG) Re-execute last destructive command. vip-d-com has the form
-(COM ARG CH REG), where COM is the command to be re-executed, ARG is the
+\(COM ARG CH REG), where COM is the command to be re-executed, ARG is the
argument for COM, CH is a flag for repeat, and REG is optional and if exists
is the name of the register for COM."
(interactive "P")
(defun ws-kill-bol ()
"In WordStar mode: Kill to beginning of line
-(like WordStar, not like Emacs)."
+\(like WordStar, not like Emacs)."
(interactive)
(let ((p (point)))
(beginning-of-line)
;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc.
;; Author: Johan Vromans <jv@nl.net>
-;; Version: $Revision: 2.4 $
+;; Version: $Revision: 2.5 $
;; This file is part of GNU Emacs.
(provide 'forms) ;;; official
(provide 'forms-mode) ;;; for compatibility
-(defconst forms-version (substring "$Revision: 2.4 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.5 $" 11 -2)
"The version number of forms-mode (as string). The complete RCS id is:
- $Id: forms.el,v 2.4 1994/03/28 23:13:07 kwzh Exp kwzh $")
+ $Id: forms.el,v 2.5 1994/05/07 01:52:42 kwzh Exp rms $")
(defvar forms-mode-hooks nil
"Hook functions to be run upon entering Forms mode.")
(defvar forms-read-only nil
"Non-nil means: visit the file in view (read-only) mode.
-(Defaults to the write access on the data file).")
+\(Defaults to the write access on the data file).")
(defvar forms-multi-line "\C-k"
"If not nil: use this character to separate multi-line fields (default C-k).")
contents of the article is piped out to the named program. It is
possible to save an article in an MH folder as follows:
-(setq gnus-author-copy \"|/usr/local/lib/mh/rcvstore +Article\")")
+\(setq gnus-author-copy \"|/usr/local/lib/mh/rcvstore +Article\")")
(defvar gnus-author-copy-saver (function rmail-output)
"*A function called with a file name to save an author copy to.
(defvar hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
"*A list specifying which buffers not to search (if not current).
Can contain both regexps matching buffer names (as strings) and major modes
-(as atoms)")
+\(as atoms)")
;;;###autoload
(defun hippie-expand (arg)
The function should take two arguments and return T if the first
element should come before the second. The arguments are cons cells;
-(NAME . POSITION). Look at `imenu--sort-by-name' for an example.")
+\(NAME . POSITION). Look at `imenu--sort-by-name' for an example.")
(defvar imenu-max-items 25
"*Maximum number of elements in an index mouse-menu.")
It should be a function that takes no arguments and returns an index
of the current buffer as an alist. The elements in the alist look
like: (INDEX-NAME . INDEX-POSITION). You may also nest index list like
-(INDEX-NAME . INDEX-ALIST).
+\(INDEX-NAME . INDEX-ALIST).
This function is called within a `save-excursion'.
(defsubst mail-hist-add-header-contents-to-ring (header &optional contents)
"Add the contents of HEADER to the header history ring.
Optional argument CONTENTS is a string which will be the contents
-(instead of whatever's found in the header)."
+\(instead of whatever's found in the header)."
(let ((ring (cdr (assoc header mail-hist-header-ring-alist))))
(or ring
;; If the ring doesn't exist, we'll have to make it and add it
Although you can do so, it does not make much sense to call this
without having called `mail-hist-previous-header' first
-(\\[mail-hist-previous-header]).
+\(\\[mail-hist-previous-header]).
The history only contains the contents of outgoing messages, not
received mail."
the original author would like to be distinguished. It should be
considered bad taste to put any attribution preference key before
\"x-attribution\" in this list, except perhaps for \"sc-lastchoice\"
-(see below).
+\(see below).
Supercite remembers the last attribution used when reciting an already
cited paragraph. This attribution will always be saved with the
code, the correct kanji code of the buffer associated with the NNTP
server must be specified as follows:
-(setq nntp-server-hook
+\(setq nntp-server-hook
(function
(lambda ()
;; Server's Kanji code is EUC (NEmacs hack).
"*What not to save on inferior Lisp's input history.
Input matching this regexp is not saved on the input history in Inferior Lisp
mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
-(as in :a, :c, etc.)")
+\(as in :a, :c, etc.)")
(defvar inferior-lisp-mode-map nil)
(cond ((not inferior-lisp-mode-map)
;; So, for the meantime, this is not the default mode for makefiles.
-;; $Id: makefile.el,v 1.14 1994/04/11 20:40:58 kwzh Exp rms $
+;; $Id: makefile.el,v 1.15 1994/04/22 20:20:49 rms Exp rms $
;; This file is part of GNU Emacs.
(defvar makefile-pickup-everything-picks-up-filenames-p nil
"If non-nil, makefile-pickup-everything also picks up filenames as targets
-(i.e. it calls makefile-find-filenames-as-targets), otherwise filenames are
+\(i.e. it calls makefile-find-filenames-as-targets), otherwise filenames are
omitted.")
(defvar makefile-cleanup-continuations-p t
character, insert a new blank line, go to that line and indent by one TAB.
This is most useful in the process of creating continued lines when copying
large dependencies from the browser to the client buffer.
-(point) advances accordingly in the client buffer."
+\(point) advances accordingly in the client buffer."
(interactive)
(save-excursion
(set-buffer makefile-browser-client)
(defconst simula-abbrev-keyword 'upcase
"*Specify how to convert case for SIMULA keywords.
Value is one of the symbols `upcase', `downcase', `capitalize',
-(as in) `abbrev-table' or nil if they should not be changed.")
+\(as in) `abbrev-table' or nil if they should not be changed.")
(defconst simula-abbrev-stdproc 'abbrev-table
"*Specify how to convert case for standard SIMULA procedure and class names.
Value is one of the symbols `upcase', `downcase', `capitalize',
-(as in) `abbrev-table', or nil if they should not be changed.")
+\(as in) `abbrev-table', or nil if they should not be changed.")
(defvar simula-abbrev-file nil
"*File with extra abbrev definitions for use in SIMULA mode.
This is done before the user's startup file is loaded. They are copied to
x-invocation args from which the X-related things are extracted, first
the switch (e.g., \"-fg\") in the following code, and possible values
-(e.g., \"black\") in the option handler code (e.g., x-handle-switch).
+\(e.g., \"black\") in the option handler code (e.g., x-handle-switch).
This returns ARGS with the arguments that have been processed removed."
(setq x-invocation-args args
args nil)
You can set this variable in hooks in your init file -- eg:
-(add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex))))")
+\(add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex))))")
(defvar ispell-region-end (make-marker)
"Marker that allows spelling continuations.")
for the journal name should be listed as beginning with a capital
letter, even if it really doesn't.
For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
-(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
+\(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
\"Artificial Intelligence\", but would replace Ijcai81 with the
BibTeX macro \"ijcai7\".")
Because titles are capitalized before matching, the abbreviated title
should be listed as beginning with a capital letter, even if it doesn't.
For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
-(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
+\(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
\"Artificial Intelligence\", but would replace Ijcai81 with the
BibTeX macro \"ijcai7\".")
projects / emacs.git / commitdiff