mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-851
This commit is contained in:
Miles Bader
commit
37cc095b6a
262 changed files with 1079 additions and 638 deletions
|
|
@ -48,22 +48,23 @@ that branch. Do not make manual changes to this file on the trunk.
|
|||
http://lists.gnu.org/archive/html/emacs-devel/2007-04/msg01113.html
|
||||
|
||||
** davby@ida.liu.se, 6 July: Bug in pos-visible-in-window-p
|
||||
|
||||
** dak@gnu.org, 30 May: Redraw problem with overlapping frames
|
||||
|
||||
** dksw@eircom.net, 3 Jul: Telnet mode (rsh/ssh)
|
||||
|
||||
** bojohan+news@dd.chalmers.se, 1 Aug: n_schumacher@web.de: modification hooks called only once in
|
||||
|
||||
** sdl.web@gmail.com: problem with transparent PNG image display
|
||||
** ams@gnu.org, 9 July: eshell and external commands
|
||||
|
||||
** timh@insightful.com, 25 June: undigestify-rmail-message in emacs 22.1 doesn't split a digest
|
||||
|
||||
** andreas.roehler@online.de, 24 Jul: CVS build on Suse 10.0 failed
|
||||
|
||||
** Gtk+ tool bar looses focus when pressing next tool bar button in GUD.
|
||||
http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-08/msg00008.html
|
||||
|
||||
* FIXES FOR EMACS 22.2
|
||||
|
||||
Here we list small fixes that arrived too late for Emacs 22.1, but
|
||||
that should be installed on the release branch after 22.1 is released.
|
||||
Here we list small fixes that arrived too late for Emacs 22.2, but
|
||||
that should be installed on the release branch after 22.2 is released.
|
||||
|
||||
** Changes to six pbm icons in etc/images.
|
||||
Sync change from trunk 2007-05-19.
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
Precompiled Distributions of
|
||||
Emacs for Windows
|
||||
|
||||
Version 22.1
|
||||
Version 22.2
|
||||
|
||||
May 22, 2007
|
||||
|
||||
|
|
@ -26,9 +26,9 @@
|
|||
|
||||
If you want to redistribute any of the precompiled distributions of
|
||||
Emacs, be careful to check the implications of the GPL. For instance,
|
||||
if you put the emacs-22.1-bin-i386.tar.gz file from this directory on
|
||||
if you put the emacs-22.2-bin-i386.tar.gz file from this directory on
|
||||
an Internet site, you must arrange to distribute the source files of
|
||||
the SAME version (i.e. ../emacs-22.1.tar.gz).
|
||||
the SAME version (i.e. ../emacs-22.2.tar.gz).
|
||||
|
||||
Making a link to our copy of the source is NOT sufficient, since we
|
||||
might upgrade to a new version while you are still distributing the
|
||||
|
|
@ -37,8 +37,8 @@
|
|||
|
||||
* Files in this directory
|
||||
|
||||
+ emacs-22.1-bin-i386.zip
|
||||
Windows binaries of Emacs-22.1, with all lisp code and documentation
|
||||
+ emacs-22.2-bin-i386.zip
|
||||
Windows binaries of Emacs-22.2, with all lisp code and documentation
|
||||
included.
|
||||
|
||||
Download this file if you want a single installation package, and
|
||||
|
|
@ -49,8 +49,8 @@
|
|||
If you need the C source code at a later date, it will be safe to
|
||||
unpack the source distribution on top of this installation.
|
||||
|
||||
+ emacs-22.1-barebin-i386.zip
|
||||
Windows binaries of Emacs-22.1, without lisp code or documentation.
|
||||
+ emacs-22.2-barebin-i386.zip
|
||||
Windows binaries of Emacs-22.2, without lisp code or documentation.
|
||||
|
||||
Download this file if you already have the source distribution, or
|
||||
if you need to redump the emacs.exe executable.
|
||||
|
|
@ -60,12 +60,22 @@
|
|||
file, plus temacs.exe and dump.bat, which are required if you want to
|
||||
redump emacs without recompiling it.
|
||||
|
||||
+ libxpm-src.zip
|
||||
Source code for libXpm-X11R7.2-3.5.6 modified to compile on Windows.
|
||||
This corresponds to the libXpm.dll in emacs-22.2-bin-i386.zip
|
||||
and emacs-22.2-barebin-i386.zip.
|
||||
|
||||
|
||||
The following are provided for users who require older versions.
|
||||
|
||||
+ emacs-22.1-bin-i386.zip
|
||||
+ emacs-22-1-barebin-i386.zip
|
||||
Windows binaries of Emacs 22.1, contents as above.
|
||||
|
||||
+ emacs-21.3-bin-i386.tar.gz
|
||||
Windows binaries of Emacs 21.3, with compiled lisp code and some
|
||||
documentation included.
|
||||
|
||||
This is provided for users who require the older version.
|
||||
|
||||
+ emacs-21.3-leim.tar.gz
|
||||
Compiled lisp input methods. This optional addition to Emacs-21.3
|
||||
is required if you want to enter languages that are not directly
|
||||
|
|
@ -73,7 +83,7 @@
|
|||
|
||||
* Image support
|
||||
|
||||
Emacs 22.1 contains support for images, however for most image formats
|
||||
Emacs 22.2 contains support for images, however for most image formats
|
||||
supporting libraries are required. This distribution has been tested
|
||||
with the libraries that are distributed with GTK for Windows, and the
|
||||
libraries found at http://gnuwin32.sourceforge.net/. The following image
|
||||
|
|
@ -82,10 +92,10 @@
|
|||
PBM/PGM/PPM: Supported natively by Emacs. This format is used for
|
||||
the black and white versions of the toolbar icons.
|
||||
|
||||
XPM: requires a Windows port of the XPM library 3.4 or later,
|
||||
which will be named xpm4.dll, libxpm-nox4.dll or
|
||||
libxpm.dll. This format is used for the color versions of the
|
||||
toolbar icons, and other images in Emacs.
|
||||
XPM: a Windows port of the XPM library corresponding to the x.org
|
||||
release of X11R7.2 is included with the binary distribution, but
|
||||
can be replaced by other versions with the name xpm4.dll,
|
||||
libxpm-nox4.dll or libxpm.dll.
|
||||
|
||||
PNG: requires the PNG reference library 1.2 or later, which will
|
||||
be named libpng13d.dll, libpng13.dll, libpng12d.dll, libpng12.dll
|
||||
|
|
@ -217,7 +227,7 @@
|
|||
about the Windows port and related software packages. Note that as
|
||||
of writing, most of the information in that FAQ was for Emacs-21.3
|
||||
and earlier versions, so some information may not be relevant to
|
||||
Emacs-22.1.
|
||||
Emacs-22.2.
|
||||
|
||||
In addition to the FAQ, there is a mailing list for discussing issues
|
||||
related to the Windows port of Emacs. For information about the
|
||||
|
|
|
|||
|
|
@ -1,3 +1,8 @@
|
|||
2007-08-08 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* TODO: `iff' item is dealt with.
|
||||
* GNUS-NEWS, NEWS, NEWS.1-17, NEWS.19, NEWS.21: Replace `iff'.
|
||||
|
||||
2007-08-01 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* NEWS: Add fortran-line-length, plus some more sections.
|
||||
|
|
|
|||
|
|
@ -30,7 +30,7 @@ or remove them using `make remove-installed-shadows'.
|
|||
|
||||
Use `make.bat' if you want to install Gnus under MS Windows, the first
|
||||
argument to the batch-program should be the directory where `xemacs.exe'
|
||||
respectively `emacs.exe' is located, iff you want to install Gnus after
|
||||
respectively `emacs.exe' is located, if you want to install Gnus after
|
||||
compiling it, give `make.bat' `/copy' as the second parameter.
|
||||
|
||||
`make.bat' has been rewritten from scratch, it now features automatic
|
||||
|
|
@ -308,7 +308,7 @@ as external parts.
|
|||
|
||||
** Gnus no longer generate the Sender: header automatically.
|
||||
|
||||
Earlier it was generated iff the user configurable email address was
|
||||
Earlier it was generated when the user configurable email address was
|
||||
different from the Gnus guessed default user address. As the guessing
|
||||
algorithm is rarely correct these days, and (more controversially) the
|
||||
only use of the Sender: header was to check if you are entitled to
|
||||
|
|
|
|||
|
|
@ -1208,7 +1208,7 @@ whether and where a line has a comment.
|
|||
|
||||
* New function `auto-save-file-name-p'
|
||||
|
||||
Should return non-`nil' iff given a string which is the name of an
|
||||
Should return non-`nil' if given a string which is the name of an
|
||||
auto-save file (sans directory name). If you redefine
|
||||
`make-auto-save-file-name', you should redefine this accordingly. By
|
||||
default, this function returns `t' for filenames beginning with
|
||||
|
|
|
|||
|
|
@ -5133,8 +5133,8 @@ using X).
|
|||
** It is now simpler to tell Emacs to display accented characters under
|
||||
X windows. M-x standard-display-european toggles the display of
|
||||
buffer text according to the ISO Latin-1 standard. With a prefix
|
||||
argument, this command enables European character display iff the
|
||||
argument is positive.
|
||||
argument, this command enables European character display if and only
|
||||
if the argument is positive.
|
||||
|
||||
** The `-i' command-line argument tells Emacs to use a picture of the
|
||||
GNU gnu as its icon, instead of letting the window manager choose an
|
||||
|
|
|
|||
|
|
@ -2502,7 +2502,7 @@ value is returned. If no window satisfies PREDICATE, DEFAULT is
|
|||
returned.
|
||||
|
||||
Optional second arg MINIBUF t means count the minibuffer window even
|
||||
if not active. MINIBUF nil or omitted means count the minibuffer iff
|
||||
if not active. MINIBUF nil or omitted means count the minibuffer if
|
||||
it is active. MINIBUF neither t nor nil means not to count the
|
||||
minibuffer even if it is active.
|
||||
|
||||
|
|
|
|||
11
etc/NEWS.22
11
etc/NEWS.22
|
|
@ -55,6 +55,8 @@ in to make it use the scrollbars from the system theme.
|
|||
|
||||
* New Modes and Packages in Emacs 22.2
|
||||
|
||||
** bibtex-style-mode helps you write BibTeX's *.bst files.
|
||||
|
||||
** The new package css-mode.el provides a major mode for editing CSS files.
|
||||
|
||||
** The new package vera-mode.el provides a major mode for editing Vera files.
|
||||
|
|
@ -67,6 +69,8 @@ in to make it use the scrollbars from the system theme.
|
|||
|
||||
*** VC has some support for Mercurial (hg).
|
||||
|
||||
*** VC has some support for Bazaar (Bzr).
|
||||
|
||||
*** VC has some support for Git.
|
||||
|
||||
* Lisp Changes in Emacs 22.2.
|
||||
|
|
@ -77,6 +81,9 @@ as its frame.
|
|||
** The new function `image-refresh' refreshes all images associated
|
||||
with a given image specification.
|
||||
|
||||
** The new function `split-string-and-unquote' does (what?)
|
||||
|
||||
** The new function `combine-and-quote-strings' does (what?)
|
||||
|
||||
* Installation Changes in Emacs 22.1
|
||||
|
||||
|
|
@ -3558,8 +3565,8 @@ that is, floats are compared by value and other elements with `eq'.
|
|||
|
||||
*** New functions `string-or-null-p' and `booleanp'.
|
||||
|
||||
`string-or-null-p' returns non-nil iff OBJECT is a string or nil.
|
||||
`booleanp' returns non-nil iff OBJECT is t or nil.
|
||||
`string-or-null-p' returns non-nil if OBJECT is a string or nil.
|
||||
`booleanp' returns non-nil if OBJECT is t or nil.
|
||||
|
||||
*** `makehash' is now obsolete. Use `make-hash-table' instead.
|
||||
|
||||
|
|
|
|||
2
etc/TODO
2
etc/TODO
|
|
@ -19,8 +19,6 @@ I.e. mouse-set-font should use customize-face.
|
|||
|
||||
** Compute the list of active keymaps *after* reading the first event.
|
||||
|
||||
** Avoid using "iff" in doc strings.
|
||||
|
||||
** mouse-autoselect-window should wait to select the window until
|
||||
the mouse is put to rest or after a delay or both, so that moving over
|
||||
a window doesn't select it.
|
||||
|
|
|
|||
|
|
@ -2883,7 +2883,7 @@ static void make_C_tag __P((bool));
|
|||
* function or variable, or corresponds to a typedef, or
|
||||
* is a struct/union/enum tag, or #define, or an enum constant.
|
||||
*
|
||||
* *IS_FUNC gets TRUE iff the token is a function or #define macro
|
||||
* *IS_FUNC gets TRUE if the token is a function or #define macro
|
||||
* with args. C_EXTP points to which language we are looking at.
|
||||
*
|
||||
* Globals
|
||||
|
|
@ -4803,7 +4803,7 @@ Pascal_functions (inf)
|
|||
int save_lineno, namelen, taglen;
|
||||
char c, *name;
|
||||
|
||||
bool /* each of these flags is TRUE iff: */
|
||||
bool /* each of these flags is TRUE if: */
|
||||
incomment, /* point is inside a comment */
|
||||
inquote, /* point is inside '..' string */
|
||||
get_tagname, /* point is after PROCEDURE/FUNCTION
|
||||
|
|
|
|||
158
lisp/ChangeLog
158
lisp/ChangeLog
|
|
@ -1,3 +1,161 @@
|
|||
2007-08-13 Nick Roberts <nickrob@snap.net.nz>
|
||||
|
||||
* progmodes/gdb-ui.el (gdb-send): Handle CTRL-D more carefully.
|
||||
|
||||
2007-08-12 Richard Stallman <rms@gnu.org>
|
||||
|
||||
* pcvs.el (cvs-reread-cvsrc, cvs-checkout, cvs-mode-checkout)
|
||||
(cvs-execute-single-file): Use new name split-string-and-unquote.
|
||||
(cvs-header-msg): Use new name combine-and-quote-strings.
|
||||
|
||||
* emulation/vi.el (vi-next-line): Ignore return value of line-move.
|
||||
|
||||
* progmodes/gud.el (gud-common-init): Use new name
|
||||
split-string-and-unquote.
|
||||
|
||||
* progmodes/flymake.el (flymake-err-line-patterns): Fix infloop
|
||||
in javac regexp.
|
||||
|
||||
* pcvs-util.el (cvs-qtypedesc-strings): Use new names
|
||||
combine-and-quote-strings and split-string-and-unquote.
|
||||
|
||||
* subr.el (combine-and-quote-strings): Renamed from strings->string.
|
||||
(split-string-and-unquote): Renamed from string->strings.
|
||||
|
||||
2007-08-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* log-view.el (log-view-font-lock-keywords): Use `eval' so as to adapt
|
||||
to buffer-local settings.
|
||||
|
||||
* emacs-lisp/backquote.el (backquote-delay-process): New function.
|
||||
(backquote-process): Add internal arg `level'. Use the two to
|
||||
correctly handle nested backquotes.
|
||||
|
||||
2007-08-09 Riccardo Murri <riccardo.murri@gmail.com>
|
||||
|
||||
* vc-bzr.el (vc-bzr-registered): Use \0 instead of literal NULs.
|
||||
(vc-bzr-state-words): Add "kind changed" state word.
|
||||
(vc-bzr-status): New function. Return Bzr idea of file status,
|
||||
which is different from VC's.
|
||||
(vc-bzr-state): Use vc-bzr-status.
|
||||
(vc-workfile-unchanged-p): Use vc-bzr-status.
|
||||
(vc-bzr-revert): Use synchronous process; expect exitcode 0.
|
||||
(vc-dired-state): Process "kind changed" state word.
|
||||
|
||||
2007-08-09 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* vc-hooks.el (vc-default-find-file-not-found-hook): Do nothing.
|
||||
|
||||
* vc-rcs.el (vc-rcs-find-file-not-found-hook):
|
||||
Move from vc-default-find-file-not-found-hook.
|
||||
|
||||
2007-08-08 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* man.el: Remove spurious * in docstrings.
|
||||
Merge defvars and toplevel setq-defaults.
|
||||
(Man-highlight-references0): Limit=nil rather than point-max.
|
||||
(Man-mode-map): Move initialization into the declaration.
|
||||
(Man-strip-page-headers, Man-unindent): Use dolist & inhibit-read-only.
|
||||
(Man-view-header-file): Use expand-file-name rather than concat.
|
||||
(Man-notify-when-ready, Man-bgproc-sentinel): Use with-current-buffer.
|
||||
|
||||
* man.el (Man-next-section): Make sure we do not move backward.
|
||||
|
||||
2007-08-08 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* files.el (auto-mode-alist): Use the purecopied text (duh!).
|
||||
|
||||
2007-08-08 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* Replace `iff' in doc-strings and comments.
|
||||
|
||||
2007-08-08 Martin Rudalics <rudalics@gmx.at>
|
||||
|
||||
* dired.el (dired-pop-to-buffer):
|
||||
* mouse-drag.el (mouse-drag-should-do-col-scrolling):
|
||||
* calendar/calendar.el (generate-calendar-window):
|
||||
* progmodes/compile.el (compilation-set-window-height):
|
||||
* textmodes/two-column.el (2C-two-columns, 2C-merge):
|
||||
Use window-full-width-p instead of comparing frame-width and
|
||||
window-width.
|
||||
|
||||
* progmodes/compile.el (compilation-find-buffer): Remove extra
|
||||
argument in call to compilation-buffer-internal-p.
|
||||
|
||||
2007-08-07 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* progmodes/tcl.el (tcl-indent-level, tcl-continued-indent-level):
|
||||
Add safe-local-variable property.
|
||||
|
||||
2007-08-07 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
||||
* image-mode.el (image-toggle-display): Use image-refresh.
|
||||
|
||||
2007-08-07 Riccardo Murri <riccardo.murri@gmail.com>
|
||||
|
||||
* vc-bzr.el: Remove comments about vc-bzr.el being a modified
|
||||
unofficial version.
|
||||
(vc-bzr-command): Remove redundant setting of process-connection-type.
|
||||
(vc-bzr-admin-checkout-format-file): Add autoload.
|
||||
(vc-bzr-root-dir): Remove in favor of vc-bzr-root.
|
||||
(vc-bzr-root): Switch to implementation of vc-bzr-root-dir.
|
||||
(vc-bzr-registered): Compare dirstate format tag with known good
|
||||
value, abort parsing if match fails. Warn user in docstring.
|
||||
(vc-bzr-workfile-version): Case for different Bzr branch formats.
|
||||
See bzrlib/branch.py in Bzr sources.
|
||||
(vc-bzr-diff): First argument FILES may be a string rather than a list.
|
||||
(vc-bzr-shell-command): Remove in favor of
|
||||
vc-bzr-command-discarding-stderr.
|
||||
(vc-bzr-command-discarding-stderr): New function.
|
||||
|
||||
2007-08-06 Riccardo Murri <riccardo.murri@gmail.com>
|
||||
|
||||
* vc-bzr.el (vc-bzr-registered): Gracefully handle missing "bzr"
|
||||
program, and return nil
|
||||
(vc-bzr-state): Gracefully handle missing "bzr" program, and return nil.
|
||||
(vc-bzr-state): Look for path names relative to the repository
|
||||
root after status keyword.
|
||||
(vc-bzr-file-name-relative): New function.
|
||||
(vc-bzr-admin-dirname): Reinstate, as other vc-bzr-admin-... paths
|
||||
depend on it.
|
||||
(vc-bzr-admin-dirname, ...-checkout-format-file)
|
||||
(...-branch-format-file, ...-revhistory): Paths to some Bzr internal
|
||||
files that we now parse directly for speed.
|
||||
(vc-bzr-root-dir): Use `vc-bzr-admin-checkout-format-file' as witness.
|
||||
(vc-bzr-registered): Only parse vc-bzr-admin-dirstate file if it exists.
|
||||
(vc-bzr-state): "bzr status" successful only if exitcode is 0
|
||||
(vc-bzr-root): Use `vc-bzr-shell-command'. Stderr may contain
|
||||
Bzr warnings, so we must discard it.
|
||||
(vc-bzr-workfile-version): Speedup counting lines from
|
||||
`vc-bzr-admin-revhistory' file, but fallback to spawning "bzr revno"
|
||||
if that file doesn't exist.
|
||||
(vc-bzr-responsible-p): Use `vc-bzr-root' instead of
|
||||
`vc-bzr-root-dir' for speed. Add `vc-bzr-admin-dirname'
|
||||
(not ".bzr"!) to `vc-directory-exclusion-list'
|
||||
(vc-bzr-shell-command): New function.
|
||||
|
||||
2007-08-06 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* diff-mode.el (diff-unified->context, diff-reverse-direction)
|
||||
(diff-fixup-modifs): Typo in docstring.
|
||||
|
||||
2007-08-06 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* emulation/tpu-edt.el (tpu-current-line): Use posn-at-point and
|
||||
count-screen-lines.
|
||||
(tpu-edt-off): Disable relevant pieces of advice.
|
||||
|
||||
* emulation/tpu-extras.el (tpu-before-save-hook): Rename from
|
||||
tpu-write-file-hook. Activate it with add-hook on buffer-save-hook.
|
||||
(newline, newline-and-indent, do-auto-fill): Use advice instead of
|
||||
redefining the function.
|
||||
(tpu-set-scroll-margins): Activate the pieces of advice.
|
||||
|
||||
2007-08-06 Martin Rudalics <rudalics@gmx.at>
|
||||
|
||||
* help.el (resize-temp-buffer-window): Use window-full-width-p
|
||||
instead of comparing frame-width and window-width.
|
||||
|
||||
2007-08-13 Stephen Leake <stephen_leake@stephe-leake.org>
|
||||
|
||||
* pcvs-parse.el (cvs-parse-table): Handle additional instance of
|
||||
|
|
|
|||
|
|
@ -39,9 +39,9 @@ define global abbrevs instead."
|
|||
|
||||
(defun abbrev-mode (&optional arg)
|
||||
"Toggle Abbrev mode in the current buffer.
|
||||
With argument ARG, turn abbrev mode on iff ARG is positive.
|
||||
In Abbrev mode, inserting an abbreviation causes it to expand
|
||||
and be replaced by its expansion."
|
||||
With optional argument ARG, turn abbrev mode on if ARG is
|
||||
positive, otherwise turn it off. In Abbrev mode, inserting an
|
||||
abbreviation causes it to expand and be replaced by its expansion."
|
||||
(interactive "P")
|
||||
(setq abbrev-mode
|
||||
(if (null arg) (not abbrev-mode)
|
||||
|
|
|
|||
|
|
@ -1658,8 +1658,9 @@ the following two lines in your Emacs init file:
|
|||
"Toggle minor mode for controlling exposure and editing of text outlines.
|
||||
\\<allout-mode-map>
|
||||
|
||||
Optional arg forces mode to re-initialize iff arg is positive num or
|
||||
symbol. Allout outline mode always runs as a minor mode.
|
||||
Optional prefix argument TOGGLE forces the mode to re-initialize
|
||||
if it is positive, otherwise it turns the mode off. Allout
|
||||
outline mode always runs as a minor mode.
|
||||
|
||||
Allout outline mode provides extensive outline oriented formatting and
|
||||
manipulation. It enables structural editing of outlines, as well as
|
||||
|
|
|
|||
|
|
@ -315,7 +315,7 @@ This function is designed to be added to hooks, for example:
|
|||
;;;###autoload
|
||||
(define-minor-mode auto-revert-tail-mode
|
||||
"Toggle reverting tail of buffer when file on disk grows.
|
||||
With arg, turn Tail mode on iff arg is positive.
|
||||
With arg, turn Tail mode on if arg is positive, otherwise turn it off.
|
||||
|
||||
When Tail mode is enabled, the tail of the file is constantly
|
||||
followed, as with the shell command `tail -f'. This means that
|
||||
|
|
|
|||
|
|
@ -493,7 +493,7 @@ Menu of mode operations in the mode line.")
|
|||
(defvar minor-mode-alist nil "\
|
||||
Alist saying how to show minor modes in the mode line.
|
||||
Each element looks like (VARIABLE STRING);
|
||||
STRING is included in the mode line iff VARIABLE's value is non-nil.
|
||||
STRING is included in the mode line if VARIABLE's value is non-nil.
|
||||
|
||||
Actually, STRING need not be a string; any possible mode-line element
|
||||
is okay. See `mode-line-format'.")
|
||||
|
|
|
|||
|
|
@ -2080,7 +2080,7 @@ Or, for optional MON, YR."
|
|||
;; Don't do any window-related stuff if we weren't called from a
|
||||
;; window displaying the calendar
|
||||
(when in-calendar-window
|
||||
(if (or (one-window-p t) (/= (frame-width) (window-width)))
|
||||
(if (or (one-window-p t) (not (window-full-width-p)))
|
||||
;; Don't mess with the window size, but ensure that the first
|
||||
;; line is fully visible
|
||||
(set-window-vscroll nil 0)
|
||||
|
|
|
|||
|
|
@ -642,7 +642,7 @@ this sets the local binding in that buffer instead."
|
|||
(funcall variable (if value 1 0))))
|
||||
|
||||
(defun custom-quote (sexp)
|
||||
"Quote SEXP iff it is not self quoting."
|
||||
"Quote SEXP if it is not self quoting."
|
||||
(if (or (memq sexp '(t nil))
|
||||
(keywordp sexp)
|
||||
(and (listp sexp)
|
||||
|
|
@ -665,14 +665,14 @@ default value. Otherwise, set it to nil.
|
|||
|
||||
To actually save the value, call `custom-save-all'.
|
||||
|
||||
Return non-nil iff the `saved-value' property actually changed."
|
||||
Return non-nil if the `saved-value' property actually changed."
|
||||
(custom-load-symbol symbol)
|
||||
(let* ((get (or (get symbol 'custom-get) 'default-value))
|
||||
(value (funcall get symbol))
|
||||
(saved (get symbol 'saved-value))
|
||||
(standard (get symbol 'standard-value))
|
||||
(comment (get symbol 'customized-variable-comment)))
|
||||
;; Save default value iff different from standard value.
|
||||
;; Save default value if different from standard value.
|
||||
(if (or (null standard)
|
||||
(not (equal value (condition-case nil
|
||||
(eval (car standard))
|
||||
|
|
@ -694,13 +694,13 @@ or else if it is different from the standard value, set the
|
|||
`customized-value' property to a list whose car evaluates to the
|
||||
default value. Otherwise, set it to nil.
|
||||
|
||||
Return non-nil iff the `customized-value' property actually changed."
|
||||
Return non-nil if the `customized-value' property actually changed."
|
||||
(custom-load-symbol symbol)
|
||||
(let* ((get (or (get symbol 'custom-get) 'default-value))
|
||||
(value (funcall get symbol))
|
||||
(customized (get symbol 'customized-value))
|
||||
(old (or (get symbol 'saved-value) (get symbol 'standard-value))))
|
||||
;; Mark default value as set iff different from old value.
|
||||
;; Mark default value as set if different from old value.
|
||||
(if (not (and old
|
||||
(equal value (condition-case nil
|
||||
(eval (car old))
|
||||
|
|
|
|||
|
|
@ -724,7 +724,7 @@ PREFIX is only used internally: don't use it."
|
|||
(defun diff-unified->context (start end)
|
||||
"Convert unified diffs to context diffs.
|
||||
START and END are either taken from the region (if a prefix arg is given) or
|
||||
else cover the whole bufer."
|
||||
else cover the whole buffer."
|
||||
(interactive (if (or current-prefix-arg (and transient-mark-mode mark-active))
|
||||
(list (region-beginning) (region-end))
|
||||
(list (point-min) (point-max))))
|
||||
|
|
@ -907,7 +907,7 @@ With a prefix argument, convert unified format to context format."
|
|||
(defun diff-reverse-direction (start end)
|
||||
"Reverse the direction of the diffs.
|
||||
START and END are either taken from the region (if a prefix arg is given) or
|
||||
else cover the whole bufer."
|
||||
else cover the whole buffer."
|
||||
(interactive (if (or current-prefix-arg (and transient-mark-mode mark-active))
|
||||
(list (region-beginning) (region-end))
|
||||
(list (point-min) (point-max))))
|
||||
|
|
@ -969,7 +969,7 @@ else cover the whole bufer."
|
|||
(defun diff-fixup-modifs (start end)
|
||||
"Fixup the hunk headers (in case the buffer was modified).
|
||||
START and END are either taken from the region (if a prefix arg is given) or
|
||||
else cover the whole bufer."
|
||||
else cover the whole buffer."
|
||||
(interactive (if (or current-prefix-arg (and transient-mark-mode mark-active))
|
||||
(list (region-beginning) (region-end))
|
||||
(list (point-min) (point-max))))
|
||||
|
|
|
|||
|
|
@ -62,7 +62,8 @@
|
|||
|
||||
(defun diff-sentinel (code)
|
||||
"Code run when the diff process exits.
|
||||
CODE is the exit code of the process. It should be 0 iff no diffs were found."
|
||||
CODE is the exit code of the process. It should be 0 only if no diffs
|
||||
were found."
|
||||
(if diff-old-temp-file (delete-file diff-old-temp-file))
|
||||
(if diff-new-temp-file (delete-file diff-new-temp-file))
|
||||
(save-excursion
|
||||
|
|
|
|||
|
|
@ -1993,8 +1993,8 @@ of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well."
|
|||
|
||||
(defun dired-tree-lessp (dir1 dir2)
|
||||
;; Lexicographic order on file name components, like `ls -lR':
|
||||
;; DIR1 < DIR2 iff DIR1 comes *before* DIR2 in an `ls -lR' listing,
|
||||
;; i.e., iff DIR1 is a (grand)parent dir of DIR2,
|
||||
;; DIR1 < DIR2 if DIR1 comes *before* DIR2 in an `ls -lR' listing,
|
||||
;; i.e., if DIR1 is a (grand)parent dir of DIR2,
|
||||
;; or DIR1 and DIR2 are in the same parentdir and their last
|
||||
;; components are string-lessp.
|
||||
;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp.
|
||||
|
|
|
|||
|
|
@ -2560,12 +2560,12 @@ non-empty directories is allowed."
|
|||
(cond ;; if split-height-threshold is enabled, use the largest window
|
||||
((and (> (window-height (setq w2 (get-largest-window)))
|
||||
split-height-threshold)
|
||||
(= (frame-width) (window-width w2)))
|
||||
(window-full-width-p w2))
|
||||
(setq window w2))
|
||||
;; if the least-recently-used window is big enough, use it
|
||||
((and (> (window-height (setq w2 (get-lru-window)))
|
||||
(* 2 window-min-height))
|
||||
(= (frame-width) (window-width w2)))
|
||||
(window-full-width-p w2))
|
||||
(setq window w2)))
|
||||
(save-excursion
|
||||
(set-buffer buf)
|
||||
|
|
|
|||
|
|
@ -186,7 +186,8 @@ use either \\[customize] or the function `double-mode'."
|
|||
;;;###autoload
|
||||
(defun double-mode (arg)
|
||||
"Toggle Double mode.
|
||||
With prefix arg, turn Double mode on iff arg is positive.
|
||||
With prefix argument ARG, turn Double mode on if ARG is positive, otherwise
|
||||
turn it off.
|
||||
|
||||
When Double mode is on, some keys will insert different strings
|
||||
when pressed twice. See variable `double-map' for details."
|
||||
|
|
|
|||
|
|
@ -867,7 +867,7 @@ one optional arguments, diff-number to refine.")
|
|||
(ediff-make-fine-diffs n 'noforce)
|
||||
(ediff-make-fine-diffs n 'skip)))
|
||||
|
||||
;; highlight iff fine diffs already exist
|
||||
;; highlight if fine diffs already exist
|
||||
((eq ediff-auto-refine 'off)
|
||||
(ediff-make-fine-diffs n 'skip))))
|
||||
|
||||
|
|
@ -1459,7 +1459,7 @@ arguments to `skip-chars-forward'."
|
|||
|
||||
|
||||
(defun ediff-same-contents (d1 d2 &optional filter-re)
|
||||
"Returns t iff D1 and D2 have the same content.
|
||||
"Return t if D1 and D2 have the same content.
|
||||
D1 and D2 can either be both directories or both regular files.
|
||||
Symlinks and the likes are not handled.
|
||||
If FILTER-RE is non-nil, recursive checking in directories
|
||||
|
|
|
|||
|
|
@ -118,10 +118,28 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
;; constant, 1 => to be unquoted, 2 => to be spliced in.
|
||||
;; The top-level backquote macro just discards the tag.
|
||||
|
||||
(defun backquote-process (s)
|
||||
(defun backquote-delay-process (s level)
|
||||
"Process a (un|back|splice)quote inside a backquote.
|
||||
This simply recurses through the body."
|
||||
(let ((exp (backquote-listify (list (backquote-process (nth 1 s) level)
|
||||
(cons 0 (list 'quote (car s))))
|
||||
'(0))))
|
||||
(if (eq (car-safe exp) 'quote)
|
||||
(cons 0 (list 'quote s))
|
||||
(cons 1 exp))))
|
||||
|
||||
(defun backquote-process (s &optional level)
|
||||
"Process the body of a backquote.
|
||||
S is the body. Returns a cons cell whose cdr is piece of code which
|
||||
is the macro-expansion of S, and whose car is a small integer whose value
|
||||
can either indicate that the code is constant (0), or not (1), or returns
|
||||
a list which should be spliced into its environment (2).
|
||||
LEVEL is only used internally and indicates the nesting level:
|
||||
0 (the default) is for the toplevel nested inside a single backquote."
|
||||
(unless level (setq level 0))
|
||||
(cond
|
||||
((vectorp s)
|
||||
(let ((n (backquote-process (append s ()))))
|
||||
(let ((n (backquote-process (append s ()) level)))
|
||||
(if (= (car n) 0)
|
||||
(cons 0 s)
|
||||
(cons 1 (cond
|
||||
|
|
@ -138,11 +156,15 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
s
|
||||
(list 'quote s))))
|
||||
((eq (car s) backquote-unquote-symbol)
|
||||
(cons 1 (nth 1 s)))
|
||||
(if (<= level 0)
|
||||
(cons 1 (nth 1 s))
|
||||
(backquote-delay-process s (1- level))))
|
||||
((eq (car s) backquote-splice-symbol)
|
||||
(cons 2 (nth 1 s)))
|
||||
(if (<= level 0)
|
||||
(cons 2 (nth 1 s))
|
||||
(backquote-delay-process s (1- level))))
|
||||
((eq (car s) backquote-backquote-symbol)
|
||||
(backquote-process (cdr (backquote-process (nth 1 s)))))
|
||||
(backquote-delay-process s (1+ level)))
|
||||
(t
|
||||
(let ((rest s)
|
||||
item firstlist list lists expression)
|
||||
|
|
@ -154,11 +176,13 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
;; at the beginning, put them in FIRSTLIST,
|
||||
;; as a list of tagged values (TAG . FORM).
|
||||
;; If there are any at the end, they go in LIST, likewise.
|
||||
(while (consp rest)
|
||||
;; Turn . (, foo) into (,@ foo).
|
||||
(if (eq (car rest) backquote-unquote-symbol)
|
||||
(setq rest (list (list backquote-splice-symbol (nth 1 rest)))))
|
||||
(setq item (backquote-process (car rest)))
|
||||
(while (and (consp rest)
|
||||
;; Stop if the cdr is an expression inside a backquote or
|
||||
;; unquote since this needs to go recursively through
|
||||
;; backquote-process.
|
||||
(not (or (eq (car rest) backquote-unquote-symbol)
|
||||
(eq (car rest) backquote-backquote-symbol))))
|
||||
(setq item (backquote-process (car rest) level))
|
||||
(cond
|
||||
((= (car item) 2)
|
||||
;; Put the nonspliced items before the first spliced item
|
||||
|
|
@ -168,8 +192,8 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
list nil))
|
||||
;; Otherwise, put any preceding nonspliced items into LISTS.
|
||||
(if list
|
||||
(setq lists (cons (backquote-listify list '(0 . nil)) lists)))
|
||||
(setq lists (cons (cdr item) lists))
|
||||
(push (backquote-listify list '(0 . nil)) lists))
|
||||
(push (cdr item) lists)
|
||||
(setq list nil))
|
||||
(t
|
||||
(setq list (cons item list))))
|
||||
|
|
@ -177,8 +201,8 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
;; Handle nonsplicing final elements, and the tail of the list
|
||||
;; (which remains in REST).
|
||||
(if (or rest list)
|
||||
(setq lists (cons (backquote-listify list (backquote-process rest))
|
||||
lists)))
|
||||
(push (backquote-listify list (backquote-process rest level))
|
||||
lists))
|
||||
;; Turn LISTS into a form that produces the combined list.
|
||||
(setq expression
|
||||
(if (or (cdr lists)
|
||||
|
|
@ -221,5 +245,5 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
tail))
|
||||
(t (cons 'list heads)))))
|
||||
|
||||
;;; arch-tag: 1a26206a-6b5e-4c56-8e24-2eef0f7e0e7a
|
||||
;; arch-tag: 1a26206a-6b5e-4c56-8e24-2eef0f7e0e7a
|
||||
;;; backquote.el ends here
|
||||
|
|
|
|||
|
|
@ -564,7 +564,7 @@
|
|||
(cons fn args)))))))
|
||||
|
||||
(defun byte-optimize-all-constp (list)
|
||||
"Non-nil iff all elements of LIST satisfy `byte-compile-constp'."
|
||||
"Non-nil if all elements of LIST satisfy `byte-compile-constp'."
|
||||
(let ((constant t))
|
||||
(while (and list constant)
|
||||
(unless (byte-compile-constp (car list))
|
||||
|
|
|
|||
|
|
@ -1243,7 +1243,8 @@ generating a buffered list of errors."
|
|||
;;;###autoload
|
||||
(define-minor-mode checkdoc-minor-mode
|
||||
"Toggle Checkdoc minor mode, a mode for checking Lisp doc strings.
|
||||
With prefix ARG, turn Checkdoc minor mode on iff ARG is positive.
|
||||
With prefix ARG, turn Checkdoc minor mode on if ARG is positive, otherwise
|
||||
turn it off.
|
||||
|
||||
In Checkdoc minor mode, the usual bindings for `eval-defun' which is
|
||||
bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include
|
||||
|
|
|
|||
|
|
@ -546,7 +546,7 @@ earlier by `easy-menu-define' or `easy-menu-create-menu'."
|
|||
(easy-menu-define-key map (easy-menu-intern (car item)) (cdr item) before)))
|
||||
|
||||
(defun easy-menu-item-present-p (map path name)
|
||||
"In submenu of MAP with path PATH, return non-nil iff item NAME is present.
|
||||
"In submenu of MAP with path PATH, return non-nil if item NAME is present.
|
||||
MAP and PATH are defined as in `easy-menu-add-item'.
|
||||
NAME should be a string, the name of the element to be looked for."
|
||||
(easy-menu-return-item (easy-menu-get-map map path) name))
|
||||
|
|
|
|||
|
|
@ -554,7 +554,7 @@ appended to R will apply to all of R. For example, \"a\"
|
|||
|
||||
This function may return false negatives, but it will not
|
||||
return false positives. It is nevertheless useful in
|
||||
situations where an efficiency shortcut can be taken iff a
|
||||
situations where an efficiency shortcut can be taken only if a
|
||||
regexp is atomic. The function can be improved to detect
|
||||
more cases of atomic regexps. Presently, this function
|
||||
detects the following categories of atomic regexp;
|
||||
|
|
|
|||
|
|
@ -212,7 +212,7 @@ of symbols with local bindings."
|
|||
|
||||
|
||||
(defun unsafep-function (fun)
|
||||
"Return nil iff FUN is a safe function.
|
||||
"Return nil if FUN is a safe function.
|
||||
\(either a safe lambda or a symbol that names a safe function). Otherwise
|
||||
result is a reason code."
|
||||
(cond
|
||||
|
|
|
|||
|
|
@ -792,10 +792,13 @@ Create the key map if necessary."
|
|||
(use-local-map tpu-buffer-local-map)))
|
||||
(local-set-key key func))
|
||||
|
||||
(defun tpu-current-line nil
|
||||
(defun tpu-current-line ()
|
||||
"Return the vertical position of point in the selected window.
|
||||
Top line is 0. Counts each text line only once, even if it wraps."
|
||||
(+ (count-lines (window-start) (point)) (if (= (current-column) 0) 1 0) -1))
|
||||
(or
|
||||
(cdr (nth 6 (posn-at-point)))
|
||||
(if (eq (window-start) (point)) 0
|
||||
(1- (count-screen-lines (window-start) (point) 'count-final-newline)))))
|
||||
|
||||
|
||||
;;;
|
||||
|
|
@ -2422,6 +2425,7 @@ If FILE is nil, try to load a default file. The default file names are
|
|||
(if (eq tpu-global-map parent)
|
||||
(set-keymap-parent map (keymap-parent parent))
|
||||
(setq map parent)))))
|
||||
(ad-disable-regexp "\\`tpu-")
|
||||
(setq tpu-edt-mode nil))
|
||||
|
||||
(provide 'tpu-edt)
|
||||
|
|
|
|||
|
|
@ -141,13 +141,11 @@ the previous line when starting from a line beginning."
|
|||
|
||||
(add-hook 'picture-mode-hook 'tpu-set-cursor-free)
|
||||
|
||||
(defun tpu-write-file-hook nil
|
||||
(defun tpu-before-save-hook ()
|
||||
"Eliminate whitespace at ends of lines, if the cursor is free."
|
||||
(if (and (buffer-modified-p) tpu-cursor-free) (tpu-trim-line-ends)))
|
||||
|
||||
(or (memq 'tpu-write-file-hook write-file-functions)
|
||||
(setq write-file-functions
|
||||
(cons 'tpu-write-file-hook write-file-functions)))
|
||||
(add-hook 'before-save-hook 'tpu-before-save-hook)
|
||||
|
||||
|
||||
;;; Utility routines for implementing scroll margins
|
||||
|
|
@ -246,7 +244,7 @@ Accepts a prefix argument for the number of lines to move."
|
|||
(end-of-line (- 1 num))))
|
||||
(tpu-top-check beg num)))
|
||||
|
||||
(defun tpu-current-end-of-line nil
|
||||
(defun tpu-current-end-of-line ()
|
||||
"Move point to end of current line."
|
||||
(interactive)
|
||||
(let ((beg (point)))
|
||||
|
|
@ -392,41 +390,24 @@ A repeat count means scroll that many sections."
|
|||
|
||||
|
||||
|
||||
;;; Replace the newline, newline-and-indent, and do-auto-fill functions
|
||||
|
||||
(or (fboundp 'tpu-old-newline)
|
||||
(fset 'tpu-old-newline (symbol-function 'newline)))
|
||||
(or (fboundp 'tpu-old-do-auto-fill)
|
||||
(fset 'tpu-old-do-auto-fill (symbol-function 'do-auto-fill)))
|
||||
(or (fboundp 'tpu-old-newline-and-indent)
|
||||
(fset 'tpu-old-newline-and-indent (symbol-function 'newline-and-indent)))
|
||||
|
||||
(defun newline (&optional num)
|
||||
"Insert a newline. With arg, insert that many newlines.
|
||||
In Auto Fill mode, can break the preceding line if no numeric arg.
|
||||
This is the TPU-edt version that respects the bottom scroll margin."
|
||||
(interactive "p")
|
||||
(let ((beg (tpu-current-line)))
|
||||
(or num (setq num 1))
|
||||
(tpu-old-newline num)
|
||||
;; Advise the newline, newline-and-indent, and do-auto-fill functions.
|
||||
(defadvice newline (around tpu-respect-bottom-scroll-margin activate disable)
|
||||
"Respect `tpu-bottom-scroll-margin'."
|
||||
(let ((beg (tpu-current-line))
|
||||
(num (prefix-numeric-value (ad-get-arg 0))))
|
||||
ad-do-it
|
||||
(tpu-bottom-check beg num)))
|
||||
|
||||
(defun newline-and-indent nil
|
||||
"Insert a newline, then indent according to major mode.
|
||||
Indentation is done using the current indent-line-function.
|
||||
In programming language modes, this is the same as TAB.
|
||||
In some text modes, where TAB inserts a tab, this indents
|
||||
to the specified left-margin column. This is the TPU-edt
|
||||
version that respects the bottom scroll margin."
|
||||
(interactive)
|
||||
(defadvice newline-and-indent (around tpu-respect-bottom-scroll-margin)
|
||||
"Respect `tpu-bottom-scroll-margin'."
|
||||
(let ((beg (tpu-current-line)))
|
||||
(tpu-old-newline-and-indent)
|
||||
ad-do-it
|
||||
(tpu-bottom-check beg 1)))
|
||||
|
||||
(defun do-auto-fill nil
|
||||
"TPU-edt version that respects the bottom scroll margin."
|
||||
(defadvice do-auto-fill (around tpu-respect-bottom-scroll-margin)
|
||||
"Respect `tpu-bottom-scroll-margin'."
|
||||
(let ((beg (tpu-current-line)))
|
||||
(tpu-old-do-auto-fill)
|
||||
ad-do-it
|
||||
(tpu-bottom-check beg 1)))
|
||||
|
||||
|
||||
|
|
@ -440,18 +421,21 @@ version that respects the bottom scroll margin."
|
|||
\nsEnter bottom scroll margin (N lines or N%% or RETURN for current value): ")
|
||||
;; set top scroll margin
|
||||
(or (string= top "")
|
||||
(if (string= "%" (substring top -1))
|
||||
(setq tpu-top-scroll-margin (string-to-number top))
|
||||
(setq tpu-top-scroll-margin
|
||||
(setq tpu-top-scroll-margin
|
||||
(if (string= "%" (substring top -1))
|
||||
(string-to-number top)
|
||||
(/ (1- (+ (* (string-to-number top) 100) (window-height)))
|
||||
(window-height)))))
|
||||
;; set bottom scroll margin
|
||||
(or (string= bottom "")
|
||||
(if (string= "%" (substring bottom -1))
|
||||
(setq tpu-bottom-scroll-margin (string-to-number bottom))
|
||||
(setq tpu-bottom-scroll-margin
|
||||
(setq tpu-bottom-scroll-margin
|
||||
(if (string= "%" (substring bottom -1))
|
||||
(string-to-number bottom)
|
||||
(/ (1- (+ (* (string-to-number bottom) 100) (window-height)))
|
||||
(window-height)))))
|
||||
(dolist (f '(newline newline-and-indent do-auto-fill))
|
||||
(ad-enable-advice f 'around 'tpu-respect-bottom-scroll-margin)
|
||||
(ad-activate f))
|
||||
;; report scroll margin settings if running interactively
|
||||
(and (interactive-p)
|
||||
(message "Scroll margins set. Top = %s%%, Bottom = %s%%"
|
||||
|
|
@ -461,7 +445,7 @@ version that respects the bottom scroll margin."
|
|||
;;; Functions to set cursor bound or free
|
||||
|
||||
;;;###autoload
|
||||
(defun tpu-set-cursor-free nil
|
||||
(defun tpu-set-cursor-free ()
|
||||
"Allow the cursor to move freely about the screen."
|
||||
(interactive)
|
||||
(setq tpu-cursor-free t)
|
||||
|
|
@ -471,7 +455,7 @@ version that respects the bottom scroll margin."
|
|||
(message "The cursor will now move freely about the screen."))
|
||||
|
||||
;;;###autoload
|
||||
(defun tpu-set-cursor-bound nil
|
||||
(defun tpu-set-cursor-bound ()
|
||||
"Constrain the cursor to the flow of the text."
|
||||
(interactive)
|
||||
(tpu-trim-line-ends)
|
||||
|
|
@ -481,5 +465,5 @@ version that respects the bottom scroll margin."
|
|||
GOLD-map)
|
||||
(message "The cursor is now bound to the flow of your text."))
|
||||
|
||||
;;; arch-tag: 89676fa4-33ec-48cb-9135-6f3bf230ab1a
|
||||
;; arch-tag: 89676fa4-33ec-48cb-9135-6f3bf230ab1a
|
||||
;;; tpu-extras.el ends here
|
||||
|
|
|
|||
|
|
@ -788,7 +788,7 @@ The given COUNT is remembered for future scrollings."
|
|||
"Go down count lines, try to keep at the same column."
|
||||
(interactive "p")
|
||||
(setq this-command 'next-line) ; this is a needed trick
|
||||
(if (= (point) (or (line-move count) (point)))
|
||||
(if (= (point) (progn (line-move count) (point)))
|
||||
(ding) ; no moving, already at end of buffer
|
||||
(setq last-command 'next-line)))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,7 @@
|
|||
2007-08-08 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* erc-log.el, erc.el: Replace `iff' in doc-strings and comments.
|
||||
|
||||
2007-07-30 Michael Olson <mwolson@gnu.org>
|
||||
|
||||
* erc-nicklist.el: Remove from the Emacs source tree. This file
|
||||
|
|
|
|||
|
|
@ -261,7 +261,7 @@ The current buffer is given by BUFFER."
|
|||
|
||||
(defun erc-log-all-but-server-buffers (buffer)
|
||||
"Returns t if logging should be enabled in BUFFER.
|
||||
Returns nil iff `erc-server-buffer-p' returns t."
|
||||
Returns nil if `erc-server-buffer-p' returns t."
|
||||
(save-excursion
|
||||
(save-window-excursion
|
||||
(set-buffer buffer)
|
||||
|
|
|
|||
|
|
@ -3958,7 +3958,7 @@ and always returns t."
|
|||
(defun erc-echo-notice-in-target-buffer (s parsed buffer sender)
|
||||
"Echos a private notice in BUFFER, if BUFFER is non-nil. This
|
||||
function is designed to be added to either `erc-echo-notice-hook'
|
||||
or `erc-echo-notice-always-hook', and returns non-nil iff BUFFER
|
||||
or `erc-echo-notice-always-hook', and returns non-nil if BUFFER
|
||||
is non-nil."
|
||||
(if buffer
|
||||
(progn (erc-display-message parsed nil buffer s) t)
|
||||
|
|
@ -3982,7 +3982,7 @@ designed to be added to either `erc-echo-notice-hook' or
|
|||
"Echos a private notice in the active buffer if the active
|
||||
buffer is not the server buffer. This function is designed to be
|
||||
added to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and returns non-nil iff the active
|
||||
`erc-echo-notice-always-hook', and returns non-nil if the active
|
||||
buffer is not the server buffer."
|
||||
(if (not (eq (erc-server-buffer) (erc-active-buffer)))
|
||||
(progn (erc-display-message parsed nil 'active s) t)
|
||||
|
|
@ -3999,7 +3999,7 @@ designed to be added to either `erc-echo-notice-hook' or
|
|||
"Echos a private notice in all of the buffers for which SENDER
|
||||
is a member. This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
returns non-nil iff there is at least one buffer for which the
|
||||
returns non-nil if there is at least one buffer for which the
|
||||
sender is a member.
|
||||
|
||||
See also: `erc-echo-notice-in-first-user-buffer',
|
||||
|
|
@ -4013,7 +4013,7 @@ See also: `erc-echo-notice-in-first-user-buffer',
|
|||
"Echos a private notice in BUFFER and in all of the buffers for
|
||||
which SENDER is a member. This function is designed to be added
|
||||
to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and returns non-nil iff there is
|
||||
`erc-echo-notice-always-hook', and returns non-nil if there is
|
||||
at least one buffer for which the sender is a member or the
|
||||
default target.
|
||||
|
||||
|
|
@ -4029,7 +4029,7 @@ See also: `erc-echo-notice-in-user-buffers',
|
|||
"Echos a private notice in one of the buffers for which SENDER
|
||||
is a member. This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
returns non-nil iff there is at least one buffer for which the
|
||||
returns non-nil if there is at least one buffer for which the
|
||||
sender is a member.
|
||||
|
||||
See also: `erc-echo-notice-in-user-buffers',
|
||||
|
|
@ -4938,7 +4938,7 @@ Specifically, return the position of `erc-insert-marker'."
|
|||
(defun erc-send-input (input)
|
||||
"Treat INPUT as typed in by the user. It is assumed that the input
|
||||
and the prompt is already deleted.
|
||||
This returns non-nil only iff we actually send anything."
|
||||
This returns non-nil only if we actually send anything."
|
||||
;; Handle different kinds of inputs
|
||||
(cond
|
||||
;; Ignore empty input
|
||||
|
|
|
|||
|
|
@ -1937,7 +1937,7 @@ since only a single case-insensitive search through the alist is made."
|
|||
;; c++-mode, java-mode and more) are added through autoload
|
||||
;; directives in that file. That way is discouraged since it
|
||||
;; spreads out the definition of the initial value.
|
||||
(mapc
|
||||
(mapcar
|
||||
(lambda (elt)
|
||||
(cons (purecopy (car elt)) (cdr elt)))
|
||||
`(;; do this first, so that .html.pl is Polish html, not Perl
|
||||
|
|
@ -3993,8 +3993,9 @@ prints a message in the minibuffer. Instead, use `set-buffer-modified-p'."
|
|||
|
||||
(defun toggle-read-only (&optional arg)
|
||||
"Change whether this buffer is visiting its file read-only.
|
||||
With arg, set read-only iff arg is positive.
|
||||
If visiting file read-only and `view-read-only' is non-nil, enter view mode."
|
||||
With prefix argument ARG, make the buffer read-only if ARG is
|
||||
positive, otherwise make it writable. If visiting file read-only
|
||||
and `view-read-only' is non-nil, enter view mode."
|
||||
(interactive "P")
|
||||
(if (and arg
|
||||
(if (> (prefix-numeric-value arg) 0) buffer-read-only
|
||||
|
|
@ -4637,7 +4638,7 @@ FILENAME should lack slashes. You can redefine this for customization."
|
|||
|
||||
(defun wildcard-to-regexp (wildcard)
|
||||
"Given a shell file name pattern WILDCARD, return an equivalent regexp.
|
||||
The generated regexp will match a filename iff the filename
|
||||
The generated regexp will match a filename only if the filename
|
||||
matches that wildcard according to shell rules. Only wildcards known
|
||||
by `sh' are supported."
|
||||
(let* ((i (string-match "[[.*+\\^$?]" wildcard))
|
||||
|
|
|
|||
|
|
@ -355,7 +355,7 @@ Each element in a user-level keywords list should have one of these forms:
|
|||
|
||||
where MATCHER can be either the regexp to search for, or the function name to
|
||||
call to make the search (called with one argument, the limit of the search;
|
||||
it should return non-nil, move point, and set `match-data' appropriately iff
|
||||
it should return non-nil, move point, and set `match-data' appropriately if
|
||||
it succeeds; like `re-search-forward' would).
|
||||
MATCHER regexps can be generated via the function `regexp-opt'.
|
||||
|
||||
|
|
@ -1068,7 +1068,7 @@ that tries to find such elements and move the boundaries such that they do
|
|||
not fall in the middle of one.
|
||||
Each function is called with no argument; it is expected to adjust the
|
||||
dynamically bound variables `font-lock-beg' and `font-lock-end'; and return
|
||||
non-nil iff it did make such an adjustment.
|
||||
non-nil if it did make such an adjustment.
|
||||
These functions are run in turn repeatedly until they all return nil.
|
||||
Put first the functions more likely to cause a change and cheaper to compute.")
|
||||
;; Mark it as a special hook which doesn't use any global setting
|
||||
|
|
@ -1746,7 +1746,7 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to
|
|||
"Set fontification defaults appropriately for this mode.
|
||||
Sets various variables using `font-lock-defaults' (or, if nil, using
|
||||
`font-lock-defaults-alist') and `font-lock-maximum-decoration'."
|
||||
;; Set fontification defaults iff not previously set for correct major mode.
|
||||
;; Set fontification defaults if not previously set for correct major mode.
|
||||
(unless (and font-lock-set-defaults
|
||||
(eq font-lock-mode-major-mode major-mode))
|
||||
(setq font-lock-mode-major-mode major-mode)
|
||||
|
|
|
|||
|
|
@ -1332,9 +1332,9 @@ itself as a pre-command hook."
|
|||
|
||||
(define-minor-mode blink-cursor-mode
|
||||
"Toggle blinking cursor mode.
|
||||
With a numeric argument, turn blinking cursor mode on iff ARG is positive.
|
||||
When blinking cursor mode is enabled, the cursor of the selected
|
||||
window blinks.
|
||||
With a numeric argument, turn blinking cursor mode on if ARG is positive,
|
||||
otherwise turn it off. When blinking cursor mode is enabled, the
|
||||
cursor of the selected window blinks.
|
||||
|
||||
Note that this command is effective only when Emacs
|
||||
displays through a window system, because then Emacs does its own
|
||||
|
|
|
|||
|
|
@ -1,3 +1,23 @@
|
|||
2007-08-10 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* nntp.el (nntp-xref-number-is-evil): New server variable.
|
||||
(nntp-find-group-and-number): If it is non-nil, don't trust article
|
||||
numbers in the Xref header.
|
||||
|
||||
2007-08-06 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-ems.el (gnus-x-splash): Bind inhibit-read-only to t.
|
||||
|
||||
2007-08-04 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* gnus-art.el (article-hide-headers): Bind inhibit-read-only to t.
|
||||
|
||||
2007-08-08 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* gmm-utils.el, gnus-async.el, gnus-msg.el, gnus-score.el
|
||||
* gnus-util.el, imap.el, mailcap.el, nnimap.el: Replace `iff' in
|
||||
doc-strings and comments.
|
||||
|
||||
2007-07-25 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* Relicense all FSF files to GPLv3 or later.
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@ ARGS are passed to `message'."
|
|||
|
||||
;;;###autoload
|
||||
(defun gmm-widget-p (symbol)
|
||||
"Non-nil iff SYMBOL is a widget."
|
||||
"Non-nil if SYMBOL is a widget."
|
||||
(get symbol 'widget-type))
|
||||
|
||||
;; Copy of the `nnmail-lazy' code from `nnmail.el':
|
||||
|
|
|
|||
|
|
@ -1743,7 +1743,7 @@ Initialized from `text-mode-syntax-table.")
|
|||
(interactive)
|
||||
;; This function might be inhibited.
|
||||
(unless gnus-inhibit-hiding
|
||||
(let ((inhibit-read-only nil)
|
||||
(let ((inhibit-read-only t)
|
||||
(case-fold-search t)
|
||||
(max (1+ (length gnus-sorted-header-list)))
|
||||
(inhibit-point-motion-hooks t)
|
||||
|
|
|
|||
|
|
@ -320,7 +320,7 @@ It should return non-nil if the article is to be prefetched."
|
|||
(pop alist))))))
|
||||
|
||||
(defun gnus-async-prefetched-article-entry (group article)
|
||||
"Return the entry for ARTICLE in GROUP iff it has been prefetched."
|
||||
"Return the entry for ARTICLE in GROUP if it has been prefetched."
|
||||
(let ((entry (save-excursion
|
||||
(gnus-async-set-buffer)
|
||||
(assq (intern (format "%s-%d" group article)
|
||||
|
|
|
|||
|
|
@ -179,7 +179,7 @@
|
|||
(interactive-p))
|
||||
"*gnus-x-splash*"
|
||||
gnus-group-buffer)))
|
||||
(let ((inhibit-read-only nil)
|
||||
(let ((inhibit-read-only t)
|
||||
(file (nnheader-find-etc-directory "images/gnus/x-splash" t))
|
||||
pixmap fcw fch width height fringes sbars left yoffset top ls)
|
||||
(erase-buffer)
|
||||
|
|
|
|||
|
|
@ -260,15 +260,15 @@ See also the `mml-default-encrypt-method' variable."
|
|||
This is done because new users often reply by mistake when reading
|
||||
news.
|
||||
This can also be a function receiving the group name as the only
|
||||
parameter which should return non-nil iff a confirmation is needed, or
|
||||
a regexp, in which case a confirmation is asked for iff the group name
|
||||
parameter, which should return non-nil if a confirmation is needed; or
|
||||
a regexp, in which case a confirmation is asked for if the group name
|
||||
matches the regexp."
|
||||
:version "22.1"
|
||||
:group 'gnus-message
|
||||
:type '(choice (const :tag "No" nil)
|
||||
(const :tag "Yes" t)
|
||||
(regexp :tag "Iff group matches regexp")
|
||||
(function :tag "Iff function evaluates to non-nil")))
|
||||
(regexp :tag "If group matches regexp")
|
||||
(function :tag "If function evaluates to non-nil")))
|
||||
|
||||
(defcustom gnus-confirm-treat-mail-like-news
|
||||
nil
|
||||
|
|
|
|||
|
|
@ -381,7 +381,7 @@ If nil, the user will be asked for a match type."
|
|||
(const :tag "ask" nil)))
|
||||
|
||||
(defcustom gnus-score-default-fold nil
|
||||
"Use case folding for new score file entries iff not nil."
|
||||
"Non-nil means use case folding for new score file entries."
|
||||
:group 'gnus-score-default
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -1108,7 +1108,7 @@ Return the modified alist."
|
|||
`(setq ,alist (delq (,fun ,key ,alist) ,alist))))
|
||||
|
||||
(defun gnus-globalify-regexp (re)
|
||||
"Return a regexp that matches a whole line, iff RE matches a part of it."
|
||||
"Return a regexp that matches a whole line, if RE matches a part of it."
|
||||
(concat (unless (string-match "^\\^" re) "^.*")
|
||||
re
|
||||
(unless (string-match "\\$$" re) ".*$")))
|
||||
|
|
|
|||
|
|
@ -1581,7 +1581,7 @@ is non-nil return these properties."
|
|||
(imap-mailbox-get-1 'search imap-current-mailbox)))))
|
||||
|
||||
(defun imap-message-flag-permanent-p (flag &optional mailbox buffer)
|
||||
"Return t iff FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER."
|
||||
"Return t if FLAG can be permanently (between IMAP sessions) saved on articles, in MAILBOX on server in BUFFER."
|
||||
(with-current-buffer (or buffer (current-buffer))
|
||||
(or (member "\\*" (imap-mailbox-get 'permanentflags mailbox))
|
||||
(member flag (imap-mailbox-get 'permanentflags mailbox)))))
|
||||
|
|
|
|||
|
|
@ -538,7 +538,7 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus
|
|||
results)))
|
||||
|
||||
(defun mailcap-mailcap-entry-passes-test (info)
|
||||
"Return non-nil iff mailcap entry INFO passes its test clause.
|
||||
"Return non-nil if mailcap entry INFO passes its test clause.
|
||||
Also return non-nil if no test clause is present."
|
||||
(let ((test (assq 'test info)) ; The test clause
|
||||
status)
|
||||
|
|
@ -631,7 +631,7 @@ Also return non-nil if no test clause is present."
|
|||
(defvar mailcap-viewer-test-cache nil)
|
||||
|
||||
(defun mailcap-viewer-passes-test (viewer-info type-info)
|
||||
"Return non-nil iff viewer specified by VIEWER-INFO passes its test clause.
|
||||
"Return non-nil if viewer specified by VIEWER-INFO passes its test clause.
|
||||
Also return non-nil if it has no test clause. TYPE-INFO is an argument
|
||||
to supply to the test."
|
||||
(let* ((test-info (assq 'test viewer-info))
|
||||
|
|
@ -704,7 +704,7 @@ If TEST is not given, it defaults to t."
|
|||
;;;
|
||||
|
||||
(defun mailcap-viewer-lessp (x y)
|
||||
"Return t iff viewer X is more desirable than viewer Y."
|
||||
"Return t if viewer X is more desirable than viewer Y."
|
||||
(let ((x-wild (string-match "[*?]" (or (cdr-safe (assq 'type x)) "")))
|
||||
(y-wild (string-match "[*?]" (or (cdr-safe (assq 'type y)) "")))
|
||||
(x-lisp (not (stringp (or (cdr-safe (assq 'viewer x)) ""))))
|
||||
|
|
|
|||
|
|
@ -1645,7 +1645,7 @@ be used in a STORE FLAGS command."
|
|||
result)))
|
||||
|
||||
(defun nnimap-mark-permanent-p (mark &optional group)
|
||||
"Return t iff MARK can be permanently (between IMAP sessions) saved on articles, in GROUP."
|
||||
"Return t if MARK can be permanently (between IMAP sessions) saved on articles, in GROUP."
|
||||
(imap-message-flag-permanent-p (nnimap-mark-to-flag mark)))
|
||||
|
||||
(when nnimap-debug
|
||||
|
|
|
|||
|
|
@ -183,6 +183,14 @@ by one.")
|
|||
If the gap between two consecutive articles is bigger than this
|
||||
variable, split the XOVER request into two requests.")
|
||||
|
||||
(defvoo nntp-xref-number-is-evil nil
|
||||
"*If non-nil, Gnus never trusts article numbers in the Xref header.
|
||||
Some news servers, e.g., ones running Diablo, run multiple engines
|
||||
having the same articles but article numbers are not kept synchronized
|
||||
between them. If you connect to such a server, set this to a non-nil
|
||||
value, and Gnus never uses article numbers (that appear in the Xref
|
||||
header and vary by which engine is chosen) to refer to articles.")
|
||||
|
||||
(defvoo nntp-prepare-server-hook nil
|
||||
"*Hook run before a server is opened.
|
||||
If can be used to set up a server remotely, for instance. Say you
|
||||
|
|
@ -1632,7 +1640,8 @@ password contained in '~/.nntp-authinfo'."
|
|||
(match-string 1 xref))
|
||||
(t "")))
|
||||
(cond
|
||||
((and (setq xref (mail-fetch-field "xref"))
|
||||
((and (not nntp-xref-number-is-evil)
|
||||
(setq xref (mail-fetch-field "xref"))
|
||||
(string-match
|
||||
(if group
|
||||
(concat "\\(" (regexp-quote group) "\\):\\([0-9]+\\)")
|
||||
|
|
|
|||
|
|
@ -958,14 +958,14 @@ This applies to `help', `apropos' and `completion' buffers, and some others."
|
|||
(remove-hook 'temp-buffer-show-hook 'resize-temp-buffer-window)))
|
||||
|
||||
(defun resize-temp-buffer-window ()
|
||||
"Resize the current window to fit its contents.
|
||||
"Resize the selected window to fit its contents.
|
||||
Will not make it higher than `temp-buffer-max-height' nor smaller than
|
||||
`window-min-height'. Do nothing if it is the only window on its frame, if it
|
||||
is not as wide as the frame or if some of the window's contents are scrolled
|
||||
out of view."
|
||||
(unless (or (one-window-p 'nomini)
|
||||
(not (pos-visible-in-window-p (point-min)))
|
||||
(/= (frame-width) (window-width)))
|
||||
(not (window-full-width-p)))
|
||||
(fit-window-to-buffer
|
||||
(selected-window)
|
||||
(if (functionp temp-buffer-max-height)
|
||||
|
|
|
|||
|
|
@ -131,7 +131,7 @@
|
|||
;; an example, if the value is `buffer-file-name' then all buffers
|
||||
;; who are visiting files are suitable, but others (like dired
|
||||
;; buffers) are not;
|
||||
;; * a list -- then the buffer is suitable iff its mode is in the
|
||||
;; * a list -- then the buffer is suitable if its mode is in the
|
||||
;; list, except if the first element is `not', in which case the test
|
||||
;; is reversed (i.e. it is a list of unsuitable modes).
|
||||
;; * Otherwise, the buffer is suitable if its name does not begin with
|
||||
|
|
|
|||
|
|
@ -1331,7 +1331,7 @@ If a buffer has no filename, it is ignored.
|
|||
With no prefix arg, use the filename sans its directory of each marked file.
|
||||
With a zero prefix arg, use the complete filename of each marked file.
|
||||
With \\[universal-argument], use the filename of each marked file relative
|
||||
to `ibuffer-default-directory' iff non-nil, otherwise `default-directory'.
|
||||
to `ibuffer-default-directory' if non-nil, otherwise `default-directory'.
|
||||
|
||||
You can then feed the file name(s) to other commands with \\[yank]."
|
||||
(interactive "p")
|
||||
|
|
|
|||
|
|
@ -1835,7 +1835,7 @@ If point is on a group name, this function operates on that group."
|
|||
|
||||
(defun ibuffer-map-lines (function &optional nomodify group)
|
||||
"Call FUNCTION for each buffer.
|
||||
Don't set the ibuffer modification flag iff NOMODIFY is non-nil.
|
||||
Set the ibuffer modification flag unless NOMODIFY is non-nil.
|
||||
|
||||
If optional argument GROUP is non-nil, then only call FUNCTION on
|
||||
buffers in filtering group GROUP.
|
||||
|
|
@ -2267,7 +2267,7 @@ If optional arg SILENT is non-nil, do not display progress messages."
|
|||
|
||||
(defun ibuffer-quit ()
|
||||
"Quit this `ibuffer' session.
|
||||
Try to restore the previous window configuration iff
|
||||
Try to restore the previous window configuration if
|
||||
`ibuffer-restore-window-config-on-quit' is non-nil."
|
||||
(interactive)
|
||||
(if ibuffer-restore-window-config-on-quit
|
||||
|
|
|
|||
|
|
@ -99,7 +99,7 @@ completions - see `icomplete-delay-completions-threshold'."
|
|||
(defcustom icomplete-minibuffer-setup-hook nil
|
||||
"*Icomplete-specific customization of minibuffer setup.
|
||||
|
||||
This hook is run during minibuffer setup iff icomplete will be active.
|
||||
This hook is run during minibuffer setup if icomplete is active.
|
||||
It is intended for use in customizing icomplete for interoperation
|
||||
with other features and packages. For instance:
|
||||
|
||||
|
|
@ -168,7 +168,8 @@ except those on this list.")
|
|||
;;;###autoload
|
||||
(define-minor-mode icomplete-mode
|
||||
"Toggle incremental minibuffer completion for this Emacs session.
|
||||
With a numeric argument, turn Icomplete mode on iff ARG is positive."
|
||||
With a numeric argument, turn Icomplete mode on if ARG is positive,
|
||||
otherwise turn it off."
|
||||
:global t :group 'icomplete
|
||||
(if icomplete-mode
|
||||
;; The following is not really necessary after first time -
|
||||
|
|
|
|||
|
|
@ -898,7 +898,7 @@ See documentation of `walk-windows' for useful values.")
|
|||
(defcustom ido-minibuffer-setup-hook nil
|
||||
"*Ido-specific customization of minibuffer setup.
|
||||
|
||||
This hook is run during minibuffer setup iff `ido' will be active.
|
||||
This hook is run during minibuffer setup if `ido' is active.
|
||||
It is intended for use in customizing ido for interoperation
|
||||
with other packages. For instance:
|
||||
|
||||
|
|
|
|||
|
|
@ -327,7 +327,7 @@ Image types are symbols like `xbm' or `jpeg'."
|
|||
|
||||
;;;###autoload
|
||||
(defun image-type-auto-detected-p ()
|
||||
"Return t iff the current buffer contains an auto-detectable image.
|
||||
"Return t if the current buffer contains an auto-detectable image.
|
||||
This function is intended to be used from `magic-fallback-mode-alist'.
|
||||
|
||||
The buffer is considered to contain an auto-detectable image if
|
||||
|
|
|
|||
|
|
@ -727,7 +727,7 @@ definitions, etc. It contains a substring which is the name to
|
|||
appear in the menu. See the info section on Regexps for more
|
||||
information. REGEXP may also be a function, called without
|
||||
arguments. It is expected to search backwards. It shall return
|
||||
true and set `match-data' iff it finds another element.
|
||||
true and set `match-data' if it finds another element.
|
||||
|
||||
INDEX points to the substring in REGEXP that contains the
|
||||
name (of the function, variable or type) that is to appear in the
|
||||
|
|
|
|||
|
|
@ -144,7 +144,7 @@ to `symbol', and the help mode defaults to the current major mode."
|
|||
(apply 'info-lookup-add-help* nil arg))
|
||||
|
||||
(defun info-lookup-maybe-add-help (&rest arg)
|
||||
"Add a help specification iff none is defined.
|
||||
"Add a help specification if none is defined.
|
||||
See the documentation of the function `info-lookup-add-help'
|
||||
for more details."
|
||||
(apply 'info-lookup-add-help* t arg))
|
||||
|
|
|
|||
|
|
@ -215,8 +215,8 @@
|
|||
;; Return t if substring of STR (between FROM and TO) can be broken up
|
||||
;; to chunks all of which can be derived from another entry in SKK
|
||||
;; dictionary. SKKBUF is the buffer where the original SKK dictionary
|
||||
;; is visited, KANA is the current entry for STR. FIRST is t iff this
|
||||
;; is called at top level.
|
||||
;; is visited, KANA is the current entry for STR. FIRST is t only if
|
||||
;; this is called at top level.
|
||||
|
||||
(defun skkdic-breakup-string (skkbuf kana str from to &optional first)
|
||||
(let ((len (- to from)))
|
||||
|
|
|
|||
|
|
@ -777,9 +777,9 @@ use either \\[customize] or the function `latin1-display'."
|
|||
"Set up Latin-1/ASCII display for Unicode characters.
|
||||
This uses the transliterations of the Lynx browser.
|
||||
|
||||
With argument ARG, turn such display on iff ARG is positive, otherwise
|
||||
With argument ARG, turn such display on if ARG is positive, otherwise
|
||||
turn it off and display Unicode characters literally. The display
|
||||
is't changed if the display can render Unicode characters."
|
||||
isn't changed if the display can render Unicode characters."
|
||||
(interactive "p")
|
||||
(if (> arg 0)
|
||||
(unless (char-displayable-p
|
||||
|
|
|
|||
|
|
@ -445,11 +445,11 @@ non-nil, it is used to sort CODINGS instead."
|
|||
(let ((base (coding-system-base x)))
|
||||
;; We calculate the priority number 0..255 by
|
||||
;; using the 8 bits PMMLCEII as this:
|
||||
;; P: 1 iff most preferred.
|
||||
;; MM: greater than 0 iff mime-charset.
|
||||
;; L: 1 iff one of the current lang. env.'s codings.
|
||||
;; C: 1 iff one of codings listed in the category list.
|
||||
;; E: 1 iff not XXX-with-esc
|
||||
;; P: 1 if most preferred.
|
||||
;; MM: greater than 0 if mime-charset.
|
||||
;; L: 1 if one of the current lang. env.'s codings.
|
||||
;; C: 1 if one of codings listed in the category list.
|
||||
;; E: 1 if not XXX-with-esc
|
||||
;; II: if iso-2022 based, 0..3, else 1.
|
||||
(logior
|
||||
(lsh (if (eq base most-preferred) 1 0) 7)
|
||||
|
|
|
|||
|
|
@ -1942,7 +1942,7 @@ Remaining args are for FUNC."
|
|||
(overlay-put quail-overlay 'face 'highlight))))
|
||||
|
||||
(defun quail-require-guidance-buf ()
|
||||
"Return t iff the current Quail package requires showing guidance buffer."
|
||||
"Return t if the current Quail package requires showing guidance buffer."
|
||||
(and input-method-verbose-flag
|
||||
(if (eq input-method-verbose-flag 'default)
|
||||
(not (and (eq (selected-window) (minibuffer-window))
|
||||
|
|
|
|||
|
|
@ -825,7 +825,7 @@ NOPUSH is t and EDIT is t."
|
|||
(run-hooks 'isearch-mode-end-hook))
|
||||
|
||||
;; If there was movement, mark the starting position.
|
||||
;; Maybe should test difference between and set mark iff > threshold.
|
||||
;; Maybe should test difference between and set mark only if > threshold.
|
||||
(if (/= (point) isearch-opoint)
|
||||
(or (and transient-mark-mode mark-active)
|
||||
(progn
|
||||
|
|
@ -2329,7 +2329,7 @@ since they have special meaning in a regexp."
|
|||
;; - the direction of the current search is expected to be given by
|
||||
;; `isearch-forward';
|
||||
;; - the variable `isearch-error' is expected to be true
|
||||
;; iff `isearch-string' is an invalid regexp.
|
||||
;; only if `isearch-string' is an invalid regexp.
|
||||
|
||||
(defvar isearch-lazy-highlight-overlays nil)
|
||||
(defvar isearch-lazy-highlight-wrapped nil)
|
||||
|
|
|
|||
|
|
@ -396,7 +396,7 @@ See documentation of `walk-windows' for useful values.")
|
|||
(defcustom iswitchb-minibuffer-setup-hook nil
|
||||
"Iswitchb-specific customization of minibuffer setup.
|
||||
|
||||
This hook is run during minibuffer setup iff `iswitchb' will be active.
|
||||
This hook is run during minibuffer setup if `iswitchb' is active.
|
||||
For instance:
|
||||
\(add-hook 'iswitchb-minibuffer-setup-hook
|
||||
'\(lambda () (set (make-local-variable 'max-mini-window-height) 3)))
|
||||
|
|
@ -1440,7 +1440,7 @@ This is an example function which can be hooked on to
|
|||
(iswitchb-to-end summaries)))
|
||||
|
||||
(defun iswitchb-case ()
|
||||
"Return non-nil iff we should ignore case when matching.
|
||||
"Return non-nil if we should ignore case when matching.
|
||||
See the variable `iswitchb-case' for details."
|
||||
(if iswitchb-case
|
||||
(if (featurep 'xemacs)
|
||||
|
|
@ -1450,7 +1450,7 @@ See the variable `iswitchb-case' for details."
|
|||
;;;###autoload
|
||||
(define-minor-mode iswitchb-mode
|
||||
"Toggle Iswitchb global minor mode.
|
||||
With arg, turn Iswitchb mode on if and only iff ARG is positive.
|
||||
With arg, turn Iswitchb mode on if ARG is positive, otherwise turn it off.
|
||||
This mode enables switching between buffers using substrings. See
|
||||
`iswitchb' for details."
|
||||
nil nil iswitchb-global-map :global t :group 'iswitchb
|
||||
|
|
|
|||
|
|
@ -568,7 +568,7 @@ for more details."
|
|||
(defvar user-mail-address)
|
||||
(defun log-edit-changelog-ours-p ()
|
||||
"See if ChangeLog entry at point is for the current user, today.
|
||||
Return non-nil iff it is."
|
||||
Return non-nil if it is."
|
||||
;; Code adapted from add-change-log-entry.
|
||||
(let ((name (or (and (boundp 'add-log-full-name) add-log-full-name)
|
||||
(and (fboundp 'user-full-name) (user-full-name))
|
||||
|
|
|
|||
|
|
@ -174,6 +174,7 @@ The match group number 1 should match the revision number itself.")
|
|||
(1 (if (boundp 'cvs-filename-face) cvs-filename-face))
|
||||
(0 log-view-file-face append)))
|
||||
(eval . `(,log-view-message-re . log-view-message-face))))
|
||||
|
||||
(defconst log-view-font-lock-defaults
|
||||
'(log-view-font-lock-keywords t nil nil nil))
|
||||
|
||||
|
|
|
|||
|
|
@ -398,7 +398,7 @@ nil."
|
|||
))
|
||||
|
||||
(defun mspools-size-folder (spool)
|
||||
"Return (SPOOL . SIZE ) iff SIZE of spool file is non-zero."
|
||||
"Return (SPOOL . SIZE ), if SIZE of spool file is non-zero."
|
||||
;; 7th file attribute is the size of the file in bytes.
|
||||
(let ((file (concat mspools-folder-directory spool))
|
||||
size)
|
||||
|
|
|
|||
|
|
@ -3992,13 +3992,13 @@ specifying headers which should not be copied into the new message."
|
|||
(mail-position-on-field (if resending "Resent-To" "To") t))))))
|
||||
|
||||
(defun rmail-summary-exists ()
|
||||
"Non-nil iff in an RMAIL buffer and an associated summary buffer exists.
|
||||
"Non-nil if in an RMAIL buffer and an associated summary buffer exists.
|
||||
In fact, the non-nil value returned is the summary buffer itself."
|
||||
(and rmail-summary-buffer (buffer-name rmail-summary-buffer)
|
||||
rmail-summary-buffer))
|
||||
|
||||
(defun rmail-summary-displayed ()
|
||||
"t iff in RMAIL buffer and an associated summary buffer is displayed."
|
||||
"t if in RMAIL buffer and an associated summary buffer is displayed."
|
||||
(and rmail-summary-buffer (get-buffer-window rmail-summary-buffer)))
|
||||
|
||||
(defcustom rmail-redisplay-summary nil
|
||||
|
|
|
|||
146
lisp/man.el
146
lisp/man.el
|
|
@ -37,7 +37,7 @@
|
|||
|
||||
;; ========== Credits and History ==========
|
||||
;; In mid 1991, several people posted some interesting improvements to
|
||||
;; man.el from the standard emacs 18.57 distribution. I liked many of
|
||||
;; man.el from the standard Emacs 18.57 distribution. I liked many of
|
||||
;; these, but wanted everything in one single package, so I decided
|
||||
;; to incorporate them into a single manual browsing mode. While
|
||||
;; much of the code here has been rewritten, and some features added,
|
||||
|
|
@ -64,7 +64,7 @@
|
|||
;; ========== Features ==========
|
||||
;; + Runs "man" in the background and pipes the results through a
|
||||
;; series of sed and awk scripts so that all retrieving and cleaning
|
||||
;; is done in the background. The cleaning commands are configurable.
|
||||
;; is done in the background. The cleaning commands are configurable.
|
||||
;; + Syntax is the same as Un*x man
|
||||
;; + Functionality is the same as Un*x man, including "man -k" and
|
||||
;; "man <section>", etc.
|
||||
|
|
@ -109,8 +109,6 @@
|
|||
|
||||
|
||||
(defvar Man-notify)
|
||||
(defvar Man-current-page)
|
||||
(defvar Man-page-list)
|
||||
(defcustom Man-filter-list nil
|
||||
"*Manpage cleaning filter command phrases.
|
||||
This variable contains a list of the following form:
|
||||
|
|
@ -127,13 +125,8 @@ the manpage buffer."
|
|||
(string :tag "Phrase String"))))
|
||||
:group 'man)
|
||||
|
||||
(defvar Man-original-frame)
|
||||
(defvar Man-arguments)
|
||||
(defvar Man-sections-alist)
|
||||
(defvar Man-refpages-alist)
|
||||
(defvar Man-uses-untabify-flag t
|
||||
"Non-nil means use `untabify' instead of `Man-untabify-command'.")
|
||||
(defvar Man-page-mode-string)
|
||||
(defvar Man-sed-script nil
|
||||
"Script for sed to nuke backspaces and ANSI codes from manpages.")
|
||||
|
||||
|
|
@ -141,28 +134,28 @@ the manpage buffer."
|
|||
;; user variables
|
||||
|
||||
(defcustom Man-fontify-manpage-flag t
|
||||
"*Non-nil means make up the manpage with fonts."
|
||||
"Non-nil means make up the manpage with fonts."
|
||||
:type 'boolean
|
||||
:group 'man)
|
||||
|
||||
(defcustom Man-overstrike-face 'bold
|
||||
"*Face to use when fontifying overstrike."
|
||||
"Face to use when fontifying overstrike."
|
||||
:type 'face
|
||||
:group 'man)
|
||||
|
||||
(defcustom Man-underline-face 'underline
|
||||
"*Face to use when fontifying underlining."
|
||||
"Face to use when fontifying underlining."
|
||||
:type 'face
|
||||
:group 'man)
|
||||
|
||||
(defcustom Man-reverse-face 'highlight
|
||||
"*Face to use when fontifying reverse video."
|
||||
"Face to use when fontifying reverse video."
|
||||
:type 'face
|
||||
:group 'man)
|
||||
|
||||
;; Use the value of the obsolete user option Man-notify, if set.
|
||||
(defcustom Man-notify-method (if (boundp 'Man-notify) Man-notify 'friendly)
|
||||
"*Selects the behavior when manpage is ready.
|
||||
"Selects the behavior when manpage is ready.
|
||||
This variable may have one of the following values, where (sf) means
|
||||
that the frames are switched, so the manpage is displayed in the frame
|
||||
where the man command was called from:
|
||||
|
|
@ -183,7 +176,7 @@ Any other value of `Man-notify-method' is equivalent to `meek'."
|
|||
:group 'man)
|
||||
|
||||
(defcustom Man-width nil
|
||||
"*Number of columns for which manual pages should be formatted.
|
||||
"Number of columns for which manual pages should be formatted.
|
||||
If nil, the width of the window selected at the moment of man
|
||||
invocation is used. If non-nil, the width of the frame selected
|
||||
at the moment of man invocation is used. The value also can be a
|
||||
|
|
@ -194,12 +187,12 @@ positive integer."
|
|||
:group 'man)
|
||||
|
||||
(defcustom Man-frame-parameters nil
|
||||
"*Frame parameter list for creating a new frame for a manual page."
|
||||
"Frame parameter list for creating a new frame for a manual page."
|
||||
:type 'sexp
|
||||
:group 'man)
|
||||
|
||||
(defcustom Man-downcase-section-letters-flag t
|
||||
"*Non-nil means letters in sections are converted to lower case.
|
||||
"Non-nil means letters in sections are converted to lower case.
|
||||
Some Un*x man commands can't handle uppercase letters in sections, for
|
||||
example \"man 2V chmod\", but they are often displayed in the manpage
|
||||
with the upper case letter. When this variable is t, the section
|
||||
|
|
@ -209,7 +202,7 @@ being sent to the man background process."
|
|||
:group 'man)
|
||||
|
||||
(defcustom Man-circular-pages-flag t
|
||||
"*Non-nil means the manpage list is treated as circular for traversal."
|
||||
"Non-nil means the manpage list is treated as circular for traversal."
|
||||
:type 'boolean
|
||||
:group 'man)
|
||||
|
||||
|
|
@ -220,7 +213,7 @@ being sent to the man background process."
|
|||
;; '("3X" . "3") ; Xlib man pages
|
||||
'("3X11" . "3")
|
||||
'("1-UCB" . ""))
|
||||
"*Association list of bogus sections to real section numbers.
|
||||
"Association list of bogus sections to real section numbers.
|
||||
Some manpages (e.g. the Sun C++ 2.1 manpages) have section numbers in
|
||||
their references which Un*x `man' does not recognize. This
|
||||
association list is used to translate those sections, when found, to
|
||||
|
|
@ -250,9 +243,6 @@ the associated section number."
|
|||
(defvar Man-awk-command "awk"
|
||||
"Command used for processing awk scripts.")
|
||||
|
||||
(defvar Man-mode-map nil
|
||||
"Keymap for Man mode.")
|
||||
|
||||
(defvar Man-mode-hook nil
|
||||
"Hook run when Man mode is enabled.")
|
||||
|
||||
|
|
@ -349,20 +339,22 @@ Otherwise, the value is whatever the function
|
|||
;; end user variables
|
||||
|
||||
;; other variables and keymap initializations
|
||||
(make-variable-buffer-local 'Man-sections-alist)
|
||||
(make-variable-buffer-local 'Man-refpages-alist)
|
||||
(make-variable-buffer-local 'Man-page-list)
|
||||
(make-variable-buffer-local 'Man-current-page)
|
||||
(make-variable-buffer-local 'Man-page-mode-string)
|
||||
(defvar Man-original-frame)
|
||||
(make-variable-buffer-local 'Man-original-frame)
|
||||
(defvar Man-arguments)
|
||||
(make-variable-buffer-local 'Man-arguments)
|
||||
(put 'Man-arguments 'permanent-local t)
|
||||
|
||||
(setq-default Man-sections-alist nil)
|
||||
(setq-default Man-refpages-alist nil)
|
||||
(setq-default Man-page-list nil)
|
||||
(setq-default Man-current-page 0)
|
||||
(setq-default Man-page-mode-string "1 of 1")
|
||||
(defvar Man-sections-alist nil)
|
||||
(make-variable-buffer-local 'Man-sections-alist)
|
||||
(defvar Man-refpages-alist nil)
|
||||
(make-variable-buffer-local 'Man-refpages-alist)
|
||||
(defvar Man-page-list nil)
|
||||
(make-variable-buffer-local 'Man-page-list)
|
||||
(defvar Man-current-page 0)
|
||||
(make-variable-buffer-local 'Man-current-page)
|
||||
(defvar Man-page-mode-string "1 of 1")
|
||||
(make-variable-buffer-local 'Man-page-mode-string)
|
||||
|
||||
(defconst Man-sysv-sed-script "\
|
||||
/\b/ { s/_\b//g
|
||||
|
|
@ -398,30 +390,32 @@ Otherwise, the value is whatever the function
|
|||
table)
|
||||
"Syntax table used in Man mode buffers.")
|
||||
|
||||
(unless Man-mode-map
|
||||
(setq Man-mode-map (make-sparse-keymap))
|
||||
(suppress-keymap Man-mode-map)
|
||||
(set-keymap-parent Man-mode-map button-buffer-map)
|
||||
(defvar Man-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(suppress-keymap map)
|
||||
(set-keymap-parent map button-buffer-map)
|
||||
|
||||
(define-key Man-mode-map " " 'scroll-up)
|
||||
(define-key Man-mode-map "\177" 'scroll-down)
|
||||
(define-key Man-mode-map "n" 'Man-next-section)
|
||||
(define-key Man-mode-map "p" 'Man-previous-section)
|
||||
(define-key Man-mode-map "\en" 'Man-next-manpage)
|
||||
(define-key Man-mode-map "\ep" 'Man-previous-manpage)
|
||||
(define-key Man-mode-map ">" 'end-of-buffer)
|
||||
(define-key Man-mode-map "<" 'beginning-of-buffer)
|
||||
(define-key Man-mode-map "." 'beginning-of-buffer)
|
||||
(define-key Man-mode-map "r" 'Man-follow-manual-reference)
|
||||
(define-key Man-mode-map "g" 'Man-goto-section)
|
||||
(define-key Man-mode-map "s" 'Man-goto-see-also-section)
|
||||
(define-key Man-mode-map "k" 'Man-kill)
|
||||
(define-key Man-mode-map "q" 'Man-quit)
|
||||
(define-key Man-mode-map "m" 'man)
|
||||
;; Not all the man references get buttons currently. The text in the
|
||||
;; manual page can contain references to other man pages
|
||||
(define-key Man-mode-map "\r" 'man-follow)
|
||||
(define-key Man-mode-map "?" 'describe-mode))
|
||||
(define-key map " " 'scroll-up)
|
||||
(define-key map "\177" 'scroll-down)
|
||||
(define-key map "n" 'Man-next-section)
|
||||
(define-key map "p" 'Man-previous-section)
|
||||
(define-key map "\en" 'Man-next-manpage)
|
||||
(define-key map "\ep" 'Man-previous-manpage)
|
||||
(define-key map ">" 'end-of-buffer)
|
||||
(define-key map "<" 'beginning-of-buffer)
|
||||
(define-key map "." 'beginning-of-buffer)
|
||||
(define-key map "r" 'Man-follow-manual-reference)
|
||||
(define-key map "g" 'Man-goto-section)
|
||||
(define-key map "s" 'Man-goto-see-also-section)
|
||||
(define-key map "k" 'Man-kill)
|
||||
(define-key map "q" 'Man-quit)
|
||||
(define-key map "m" 'man)
|
||||
;; Not all the man references get buttons currently. The text in the
|
||||
;; manual page can contain references to other man pages
|
||||
(define-key map "\r" 'man-follow)
|
||||
(define-key map "?" 'describe-mode)
|
||||
map)
|
||||
"Keymap for Man mode.")
|
||||
|
||||
;; buttons
|
||||
(define-button-type 'Man-abstract-xref-man-page
|
||||
|
|
@ -730,8 +724,7 @@ all sections related to a subject, put something appropriate into the
|
|||
(require 'env)
|
||||
(message "Invoking %s %s in the background" manual-program man-args)
|
||||
(setq buffer (generate-new-buffer bufname))
|
||||
(save-excursion
|
||||
(set-buffer buffer)
|
||||
(with-current-buffer buffer
|
||||
(setq buffer-undo-list t)
|
||||
(setq Man-original-frame (selected-frame))
|
||||
(setq Man-arguments man-args))
|
||||
|
|
@ -802,8 +795,7 @@ all sections related to a subject, put something appropriate into the
|
|||
(defun Man-notify-when-ready (man-buffer)
|
||||
"Notify the user when MAN-BUFFER is ready.
|
||||
See the variable `Man-notify-method' for the different notification behaviors."
|
||||
(let ((saved-frame (save-excursion
|
||||
(set-buffer man-buffer)
|
||||
(let ((saved-frame (with-current-buffer man-buffer
|
||||
Man-original-frame)))
|
||||
(cond
|
||||
((eq Man-notify-method 'newframe)
|
||||
|
|
@ -975,7 +967,7 @@ default type, `Man-xref-man-page' is used for the buttons."
|
|||
(Man-next-section 1)
|
||||
(point)))
|
||||
(goto-char (point-min))
|
||||
(point-max))))
|
||||
nil)))
|
||||
(while (re-search-forward regexp end t)
|
||||
(make-text-button
|
||||
(match-beginning button-pos)
|
||||
|
|
@ -1031,8 +1023,7 @@ manpage command."
|
|||
(or (stringp process)
|
||||
(set-process-buffer process nil))
|
||||
|
||||
(save-excursion
|
||||
(set-buffer Man-buffer)
|
||||
(with-current-buffer Man-buffer
|
||||
(let ((case-fold-search nil))
|
||||
(goto-char (point-min))
|
||||
(cond ((or (looking-at "No \\(manual \\)*entry for")
|
||||
|
|
@ -1223,13 +1214,10 @@ The following key bindings are currently in effect in the buffer:
|
|||
|
||||
(defun Man-strip-page-headers ()
|
||||
"Strip all the page headers but the first from the manpage."
|
||||
(let ((buffer-read-only nil)
|
||||
(let ((inhibit-read-only t)
|
||||
(case-fold-search nil)
|
||||
(page-list Man-page-list)
|
||||
(page ())
|
||||
(header ""))
|
||||
(while page-list
|
||||
(setq page (car page-list))
|
||||
(dolist (page Man-page-list)
|
||||
(and (nth 2 page)
|
||||
(goto-char (car page))
|
||||
(re-search-forward Man-first-heading-regexp nil t)
|
||||
|
|
@ -1243,17 +1231,14 @@ The following key bindings are currently in effect in the buffer:
|
|||
;; line.
|
||||
;; (setq header (concat "\n" header)))
|
||||
(while (search-forward header (nth 1 page) t)
|
||||
(replace-match "")))
|
||||
(setq page-list (cdr page-list)))))
|
||||
(replace-match ""))))))
|
||||
|
||||
(defun Man-unindent ()
|
||||
"Delete the leading spaces that indent the manpage."
|
||||
(let ((buffer-read-only nil)
|
||||
(case-fold-search nil)
|
||||
(page-list Man-page-list))
|
||||
(while page-list
|
||||
(let ((page (car page-list))
|
||||
(indent "")
|
||||
(let ((inhibit-read-only t)
|
||||
(case-fold-search nil))
|
||||
(dolist (page Man-page-list)
|
||||
(let ((indent "")
|
||||
(nindent 0))
|
||||
(narrow-to-region (car page) (car (cdr page)))
|
||||
(if Man-uses-untabify-flag
|
||||
|
|
@ -1281,7 +1266,6 @@ The following key bindings are currently in effect in the buffer:
|
|||
(or (eolp)
|
||||
(delete-char nindent))
|
||||
(forward-line 1)))
|
||||
(setq page-list (cdr page-list))
|
||||
))))
|
||||
|
||||
|
||||
|
|
@ -1291,14 +1275,18 @@ The following key bindings are currently in effect in the buffer:
|
|||
(defun Man-next-section (n)
|
||||
"Move point to Nth next section (default 1)."
|
||||
(interactive "p")
|
||||
(let ((case-fold-search nil))
|
||||
(let ((case-fold-search nil)
|
||||
(start (point)))
|
||||
(if (looking-at Man-heading-regexp)
|
||||
(forward-line 1))
|
||||
(if (re-search-forward Man-heading-regexp (point-max) t n)
|
||||
(beginning-of-line)
|
||||
(goto-char (point-max))
|
||||
;; The last line doesn't belong to any section.
|
||||
(forward-line -1))))
|
||||
(forward-line -1))
|
||||
;; But don't move back from the starting point (can happen if `start'
|
||||
;; is somewhere on the last line).
|
||||
(if (< (point) start) (goto-char start))))
|
||||
|
||||
(defun Man-previous-section (n)
|
||||
"Move point to Nth previous section (default 1)."
|
||||
|
|
@ -1462,7 +1450,7 @@ Specify which REFERENCE to use; default is based on word at point."
|
|||
(let ((path Man-header-file-path)
|
||||
complete-path)
|
||||
(while path
|
||||
(setq complete-path (concat (car path) "/" file)
|
||||
(setq complete-path (expand-file-name file (car path))
|
||||
path (cdr path))
|
||||
(if (file-readable-p complete-path)
|
||||
(progn (view-file complete-path)
|
||||
|
|
|
|||
|
|
@ -1,3 +1,8 @@
|
|||
2007-08-08 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* mh-folder.el, mh-letter.el, mh-show.el: Replace `iff' in
|
||||
doc-strings and comments.
|
||||
|
||||
2007-07-25 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* Relicense all FSF files to GPLv3 or later.
|
||||
|
|
|
|||
|
|
@ -1495,7 +1495,7 @@ function doesn't recenter the folder buffer."
|
|||
|
||||
(defun mh-update-unseen ()
|
||||
"Synchronize the unseen sequence with MH.
|
||||
Return non-nil iff the MH folder was set.
|
||||
Return non-nil if the MH folder was set.
|
||||
The hook `mh-unseen-updated-hook' is called after the unseen sequence
|
||||
is updated."
|
||||
(if mh-seen-list
|
||||
|
|
|
|||
|
|
@ -844,7 +844,7 @@ body."
|
|||
(defun mh-position-on-field (field &optional ignored)
|
||||
"Move to the end of the FIELD in the header.
|
||||
Move to end of entire header if FIELD not found.
|
||||
Returns non-nil iff FIELD was found.
|
||||
Returns non-nil if FIELD was found.
|
||||
The optional second arg is for pre-version 4 compatibility and is
|
||||
IGNORED."
|
||||
(cond ((mh-goto-header-field field)
|
||||
|
|
|
|||
|
|
@ -161,7 +161,7 @@ displayed."
|
|||
(defun mh-showing-mode (&optional arg)
|
||||
"Change whether messages should be displayed.
|
||||
|
||||
With ARG, display messages iff ARG is positive."
|
||||
With ARG, display messages if ARG is positive, otherwise don't display them."
|
||||
(setq mh-showing-mode
|
||||
(if (null arg)
|
||||
(not mh-showing-mode)
|
||||
|
|
|
|||
|
|
@ -158,7 +158,7 @@ Keep the cursor on the screen as needed."
|
|||
Basically, we check for existing horizontal scrolling."
|
||||
(or truncate-lines
|
||||
(> (window-hscroll (selected-window)) 0)
|
||||
(< (window-width) (frame-width))
|
||||
(not (window-full-width-p))
|
||||
(and
|
||||
mouse-drag-electric-col-scrolling
|
||||
(save-excursion ;; on a long line?
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@
|
|||
|
||||
;; Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kai Großjohann <kai.grossjohann@gmx.net>
|
||||
;; Author: Kai Großjohann <kai.grossjohann@gmx.net>
|
||||
;; Keywords: comm, processes
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
|
|||
|
|
@ -523,7 +523,7 @@ See `fast-lock-cache-directories'."
|
|||
;; Just a directory.
|
||||
directory)
|
||||
(t
|
||||
;; A directory iff the file name matches the regexp.
|
||||
;; A directory if the file name matches the regexp.
|
||||
(let ((bufile (expand-file-name buffer-file-truename))
|
||||
(case-fold-search nil))
|
||||
(when (save-match-data (string-match (car directory) bufile))
|
||||
|
|
|
|||
|
|
@ -211,7 +211,8 @@ arguments. If ARGS is not a list, no argument will be passed."
|
|||
(defconst cvs-qtypedesc-string1 (cvs-qtypedesc-create 'identity 'identity t))
|
||||
(defconst cvs-qtypedesc-string (cvs-qtypedesc-create 'identity 'identity))
|
||||
(defconst cvs-qtypedesc-strings
|
||||
(cvs-qtypedesc-create 'string->strings 'strings->string nil))
|
||||
(cvs-qtypedesc-create 'split-string-and-unquote
|
||||
'combine-and-quote-strings nil))
|
||||
|
||||
(defun cvs-query-read (default prompt qtypedesc &optional hist-sym)
|
||||
(let* ((qtypedesc (or qtypedesc cvs-qtypedesc-strings))
|
||||
|
|
|
|||
11
lisp/pcvs.el
11
lisp/pcvs.el
|
|
@ -182,7 +182,7 @@
|
|||
(when (re-search-forward
|
||||
(concat "^" cmd "\\(\\s-+\\(.*\\)\\)?$") nil t)
|
||||
(let* ((sym (intern (concat "cvs-" cmd "-flags")))
|
||||
(val (string->strings (or (match-string 2) ""))))
|
||||
(val (split-string-and-unquote (or (match-string 2) ""))))
|
||||
(cvs-flags-set sym 0 val))))
|
||||
;; ensure that cvs doesn't have -q or -Q
|
||||
(cvs-flags-set 'cvs-cvs-flags 0
|
||||
|
|
@ -612,7 +612,7 @@ If non-nil, NEW means to create a new buffer no matter what."
|
|||
(t arg)))
|
||||
args)))
|
||||
(concat cvs-program " "
|
||||
(strings->string
|
||||
(combine-and-quote-strings
|
||||
(append (cvs-flags-query 'cvs-cvs-flags nil 'noquery)
|
||||
(if cvs-cvsroot (list "-d" cvs-cvsroot))
|
||||
args
|
||||
|
|
@ -941,7 +941,8 @@ With a prefix argument, prompt for cvs FLAGS to use."
|
|||
(let ((root (cvs-get-cvsroot)))
|
||||
(if (or (null root) current-prefix-arg)
|
||||
(setq root (read-string "CVS Root: ")))
|
||||
(list (string->strings (read-string "Module(s): " (cvs-get-module)))
|
||||
(list (split-string-and-unquote
|
||||
(read-string "Module(s): " (cvs-get-module)))
|
||||
(read-directory-name "CVS Checkout Directory: "
|
||||
nil default-directory nil)
|
||||
(cvs-add-branch-prefix
|
||||
|
|
@ -964,7 +965,7 @@ The files are stored to DIR."
|
|||
(if branch (format " (branch: %s)" branch)
|
||||
""))))
|
||||
(list (read-directory-name prompt nil default-directory nil))))
|
||||
(let ((modules (string->strings (cvs-get-module)))
|
||||
(let ((modules (split-string-and-unquote (cvs-get-module)))
|
||||
(flags (cvs-add-branch-prefix
|
||||
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))
|
||||
(cvs-cvsroot (cvs-get-cvsroot)))
|
||||
|
|
@ -2253,7 +2254,7 @@ With prefix argument, prompt for cvs flags."
|
|||
(let* ((args (append constant-args arg-list)))
|
||||
|
||||
(insert (format "=== %s %s\n\n"
|
||||
program (strings->string args)))
|
||||
program (split-string-and-unquote args)))
|
||||
|
||||
;; FIXME: return the exit status?
|
||||
(apply 'call-process program nil t t args)
|
||||
|
|
|
|||
|
|
@ -568,7 +568,7 @@ The standard value contains the following functions as READ-FN:
|
|||
general value, or `antlr-read-boolean' with ARGs = \(PROMPT TABLE) which
|
||||
reads a boolean value or a member of TABLE. PROMPT is the prompt when
|
||||
asking for a new value. If non-nil, TABLE is a table for completion or
|
||||
a function evaluating to such a table. The return value is quoted iff
|
||||
a function evaluating to such a table. The return value is quoted if
|
||||
AS-STRING is non-nil and is either t or a symbol which is a member of
|
||||
`antlr-options-style'.")
|
||||
|
||||
|
|
@ -2203,8 +2203,8 @@ part SUPER in the result of `antlr-file-dependencies'. CLASSES is the
|
|||
part \(CLASS-SPEC ...) in the result of `antlr-directory-dependencies'.
|
||||
|
||||
The result looks like \(OPTION WITH-UNKNOWN GLIB ...). OPTION is the
|
||||
complete \"-glib\" option. WITH-UNKNOWN has value t iff there is none
|
||||
or more than one grammar file for at least one super grammar.
|
||||
complete \"-glib\" option. WITH-UNKNOWN is t if there is none or more
|
||||
than one grammar file for at least one super grammar.
|
||||
|
||||
Each GLIB looks like \(GRAMMAR-FILE \. EVOCAB). GRAMMAR-FILE is a file
|
||||
in which a super-grammar is defined. EVOCAB is the value of the export
|
||||
|
|
|
|||
|
|
@ -478,7 +478,7 @@
|
|||
|
||||
(defun c-awk-get-NL-prop-prev-line (&optional do-lim)
|
||||
;; Get the c-awk-NL-prop text-property from the previous line, calculating
|
||||
;; it if necessary. Return nil iff we're already at BOB.
|
||||
;; it if necessary. Return nil if we're at BOB.
|
||||
;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM.
|
||||
;;
|
||||
;; This function might do hidden buffer changes.
|
||||
|
|
|
|||
|
|
@ -5116,7 +5116,7 @@ comment at the start of cc-engine.el for more info."
|
|||
;; Foo::Foo (int b) : Base (b) {}
|
||||
;; car ^ ^ point
|
||||
;;
|
||||
;; The cdr of the return value is non-nil iff a
|
||||
;; The cdr of the return value is non-nil if a
|
||||
;; `c-typedef-decl-kwds' specifier is found in the declaration,
|
||||
;; i.e. the declared identifier(s) are types.
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -186,7 +186,7 @@ the value set here overrides the style system (there is a variable
|
|||
(bq-process type)))))))))
|
||||
|
||||
(defun c-valid-offset (offset)
|
||||
"Return non-nil iff OFFSET is a valid offset for a syntactic symbol.
|
||||
"Return non-nil if OFFSET is a valid offset for a syntactic symbol.
|
||||
See `c-offsets-alist'."
|
||||
(or (eq offset '+)
|
||||
(eq offset '-)
|
||||
|
|
|
|||
|
|
@ -1163,7 +1163,7 @@ Returns the compilation buffer created."
|
|||
"Set the height of WINDOW according to `compilation-window-height'."
|
||||
(let ((height (buffer-local-value 'compilation-window-height (window-buffer window))))
|
||||
(and height
|
||||
(= (window-width window) (frame-width (window-frame window)))
|
||||
(window-full-width-p window)
|
||||
;; If window is alone in its frame, aside from a minibuffer,
|
||||
;; don't change its height.
|
||||
(not (eq window (frame-root-window (window-frame window))))
|
||||
|
|
@ -1623,12 +1623,10 @@ Use this command in a compilation log buffer. Sets the mark at point there."
|
|||
|
||||
(defun compilation-find-buffer (&optional avoid-current)
|
||||
"Return a compilation buffer.
|
||||
If AVOID-CURRENT is nil, and
|
||||
the current buffer is a compilation buffer, return it.
|
||||
If AVOID-CURRENT is non-nil, return the current buffer
|
||||
only as a last resort."
|
||||
(if (and (compilation-buffer-internal-p (current-buffer))
|
||||
(not avoid-current))
|
||||
If AVOID-CURRENT is nil, and the current buffer is a compilation buffer,
|
||||
return it. If AVOID-CURRENT is non-nil, return the current buffer only
|
||||
as a last resort."
|
||||
(if (and (compilation-buffer-internal-p) (not avoid-current))
|
||||
(current-buffer)
|
||||
(next-error-find-buffer avoid-current 'compilation-buffer-internal-p)))
|
||||
|
||||
|
|
|
|||
|
|
@ -3558,7 +3558,7 @@ modify syntax-type text property if the situation is too hard."
|
|||
(modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
|
||||
(if ender (modify-syntax-entry ender "." st))))
|
||||
;; i: have 2 args, after end of the first arg
|
||||
;; i2: start of the second arg, if any (before delim iff `ender').
|
||||
;; i2: start of the second arg, if any (before delim if `ender').
|
||||
;; ender: the last arg bounded by parens-like chars, the second one of them
|
||||
;; starter: the starting delimiter of the first arg
|
||||
;; go-forward: has 2 args, and the second part is empty
|
||||
|
|
@ -8090,7 +8090,7 @@ prototype \\&SUB Returns prototype of the function given a reference.
|
|||
(defun cperl-beautify-regexp-piece (b e embed level)
|
||||
;; b is before the starting delimiter, e before the ending
|
||||
;; e should be a marker, may be changed, but remains "correct".
|
||||
;; EMBED is nil iff we process the whole REx.
|
||||
;; EMBED is nil if we process the whole REx.
|
||||
;; The REx is guaranteed to have //x
|
||||
;; LEVEL shows how many levels deep to go
|
||||
;; position at enter and at leave is not defined
|
||||
|
|
|
|||
|
|
@ -623,7 +623,8 @@ You can also use the keyboard accelerators indicated like this: [K]ey."
|
|||
|
||||
(defun cpp-edit-toggle-known (arg)
|
||||
"Toggle writable status for known conditionals.
|
||||
With optional argument ARG, make them writable iff ARG is positive."
|
||||
With optional argument ARG, make them writable if ARG is positive,
|
||||
otherwise make them unwritable."
|
||||
(interactive "@P")
|
||||
(if (or (and (null arg) cpp-known-writable)
|
||||
(<= (prefix-numeric-value arg) 0))
|
||||
|
|
@ -633,7 +634,8 @@ With optional argument ARG, make them writable iff ARG is positive."
|
|||
|
||||
(defun cpp-edit-toggle-unknown (arg)
|
||||
"Toggle writable status for unknown conditionals.
|
||||
With optional argument ARG, make them writable iff ARG is positive."
|
||||
With optional argument ARG, make them writable if ARG is positive,
|
||||
otherwise make them unwritable."
|
||||
(interactive "@P")
|
||||
(if (or (and (null arg) cpp-unknown-writable)
|
||||
(<= (prefix-numeric-value arg) 0))
|
||||
|
|
|
|||
|
|
@ -256,10 +256,10 @@ One argument, the tag info returned by `snarf-tag-function'.")
|
|||
(defvar tags-included-tables-function nil
|
||||
"Function to do the work of `tags-included-tables' (which see).")
|
||||
(defvar verify-tags-table-function nil
|
||||
"Function to return t iff current buffer contains valid tags file.")
|
||||
"Function to return t if current buffer contains valid tags file.")
|
||||
|
||||
;; Initialize the tags table in the current buffer.
|
||||
;; Returns non-nil iff it is a valid tags table. On
|
||||
;; Returns non-nil if it is a valid tags table. On
|
||||
;; non-nil return, the tags table state variable are
|
||||
;; made buffer-local and initialized to nil.
|
||||
(defun initialize-new-tags-table ()
|
||||
|
|
@ -417,7 +417,7 @@ file the tag was in."
|
|||
(defun tags-verify-table (file)
|
||||
"Read FILE into a buffer and verify that it is a valid tags table.
|
||||
Sets the current buffer to one visiting FILE (if it exists).
|
||||
Returns non-nil iff it is a valid table."
|
||||
Returns non-nil if it is a valid table."
|
||||
(if (get-file-buffer file)
|
||||
;; The file is already in a buffer. Check for the visited file
|
||||
;; having changed since we last used it.
|
||||
|
|
@ -1219,8 +1219,8 @@ where they were found."
|
|||
(verify-tags-table-function . etags-verify-tags-table)
|
||||
))))
|
||||
|
||||
;; Return non-nil iff the current buffer is a valid etags TAGS file.
|
||||
(defun etags-verify-tags-table ()
|
||||
"Return non-nil if the current buffer is a valid etags TAGS file."
|
||||
;; Use eq instead of = in case char-after returns nil.
|
||||
(eq (char-after (point-min)) ?\f))
|
||||
|
||||
|
|
|
|||
|
|
@ -918,7 +918,7 @@ Convert it to flymake internal format."
|
|||
("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1)
|
||||
;; LaTeX warnings (fileless) ("\\(LaTeX \\(Warning\\|Error\\): .*\\) on input line \\([0-9]+\\)" 20 3 nil 1)
|
||||
;; ant/javac
|
||||
(" *\\(\\[javac\\]\\)? *\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[ \t\n]*\\(.+\\)"
|
||||
(" *\\(\\[javac\\] *\\)?\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[ \t\n]*\\(.+\\)"
|
||||
2 4 nil 5))
|
||||
;; compilation-error-regexp-alist)
|
||||
(flymake-reformat-err-line-patterns-from-compile-el compilation-error-regexp-alist-alist))
|
||||
|
|
|
|||
|
|
@ -1831,7 +1831,7 @@ If ALL is nil, only match comments that start in column > 0."
|
|||
;; From: ralf@up3aud1.gwdg.de (Ralf Fassel)
|
||||
;; Test if TAB format continuation lines work.
|
||||
(defun fortran-is-in-string-p (where)
|
||||
"Return non-nil iff WHERE (a buffer position) is inside a Fortran string."
|
||||
"Return non-nil if WHERE (a buffer position) is inside a Fortran string."
|
||||
(save-excursion
|
||||
(goto-char where)
|
||||
(cond
|
||||
|
|
|
|||
|
|
@ -347,7 +347,8 @@ for `gdba'."
|
|||
|
||||
(defun gdb-many-windows (arg)
|
||||
"Toggle the number of windows in the basic arrangement.
|
||||
With arg, display additional buffers iff arg is positive."
|
||||
With prefix argument ARG, display additional buffers if ARG is positive,
|
||||
otherwise use a single window."
|
||||
(interactive "P")
|
||||
(setq gdb-many-windows
|
||||
(if (null arg)
|
||||
|
|
@ -363,7 +364,8 @@ With arg, display additional buffers iff arg is positive."
|
|||
|
||||
(defun gdb-use-separate-io-buffer (arg)
|
||||
"Toggle separate IO for debugged program.
|
||||
With arg, use separate IO iff arg is positive."
|
||||
With prefix argument ARG, use separate IO if ARG is positive,
|
||||
otherwise do not."
|
||||
(interactive "P")
|
||||
(setq gdb-use-separate-io-buffer
|
||||
(if (null arg)
|
||||
|
|
@ -664,7 +666,8 @@ line, and no execution takes place."
|
|||
|
||||
(defun gdb-speedbar-auto-raise (arg)
|
||||
"Toggle automatic raising of the speedbar for watch expressions.
|
||||
With arg, automatically raise speedbar iff arg is positive."
|
||||
With prefix argument ARG, automatically raise speedbar if ARG is
|
||||
positive, otherwise don't automatically raise it."
|
||||
(interactive "P")
|
||||
(setq gdb-speedbar-auto-raise
|
||||
(if (null arg)
|
||||
|
|
@ -1381,7 +1384,8 @@ directives."
|
|||
|
||||
(defun gdb-find-source-frame (arg)
|
||||
"Toggle trying to find a source frame further up stack.
|
||||
With arg, look for a source frame further up stack iff arg is positive."
|
||||
With prefix argument ARG, look for a source frame further up
|
||||
stack if ARG is positive, otherwise don't look further up."
|
||||
(interactive "P")
|
||||
(setq gdb-find-source-frame
|
||||
(if (null arg)
|
||||
|
|
|
|||
|
|
@ -2467,7 +2467,7 @@ comint mode, which see."
|
|||
;; for local variables in the debugger buffer.
|
||||
(defun gud-common-init (command-line massage-args marker-filter
|
||||
&optional find-file)
|
||||
(let* ((words (string->strings command-line))
|
||||
(let* ((words (split-string-and-unquote command-line))
|
||||
(program (car words))
|
||||
(dir default-directory)
|
||||
;; Extract the file name from WORDS
|
||||
|
|
@ -3361,7 +3361,7 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
|
|||
|
||||
(defun gud-tooltip-dereference (&optional arg)
|
||||
"Toggle whether tooltips should show `* expr' or `expr'.
|
||||
With arg, dereference expr iff arg is positive."
|
||||
With arg, dereference expr if ARG is positive, otherwise do not derereference."
|
||||
(interactive "P")
|
||||
(setq gud-tooltip-dereference
|
||||
(if (null arg)
|
||||
|
|
|
|||
|
|
@ -262,7 +262,7 @@ One of the following symbols:
|
|||
t -- open both code and comment blocks
|
||||
nil -- open neither code nor comment blocks
|
||||
|
||||
This has effect iff `search-invisible' is set to `open'."
|
||||
This has effect only if `search-invisible' is set to `open'."
|
||||
:type '(choice (const :tag "open only code blocks" code)
|
||||
(const :tag "open only comment blocks" comment)
|
||||
(const :tag "open both code and comment blocks" t)
|
||||
|
|
@ -515,7 +515,7 @@ Optional arg REPOS-END means reposition at end."
|
|||
(goto-char (if repos-end end beg)))
|
||||
|
||||
(defun hs-hide-block-at-point (&optional end comment-reg)
|
||||
"Hide block iff on block beginning.
|
||||
"Hide block if on block beginning.
|
||||
Optional arg END means reposition at end.
|
||||
Optional arg COMMENT-REG is a list of the form (BEGIN END) and
|
||||
specifies the limits of the comment, or nil if the block is not
|
||||
|
|
@ -678,7 +678,7 @@ Return point, or nil if original point was not in a block."
|
|||
(goto-char maxp))
|
||||
|
||||
(defmacro hs-life-goes-on (&rest body)
|
||||
"Evaluate BODY forms iff variable `hs-minor-mode' is non-nil.
|
||||
"Evaluate BODY forms if variable `hs-minor-mode' is non-nil.
|
||||
In the dynamic context of this macro, `inhibit-point-motion-hooks'
|
||||
and `case-fold-search' are both t."
|
||||
`(when hs-minor-mode
|
||||
|
|
|
|||
|
|
@ -567,24 +567,24 @@ including a reproducible test case and send the message."
|
|||
(describe-function major-mode))
|
||||
|
||||
(defsubst octave-in-comment-p ()
|
||||
"Returns t if point is inside an Octave comment, nil otherwise."
|
||||
"Return t if point is inside an Octave comment."
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(nth 4 (parse-partial-sexp (line-beginning-position) (point)))))
|
||||
|
||||
(defsubst octave-in-string-p ()
|
||||
"Returns t if point is inside an Octave string, nil otherwise."
|
||||
"Return t if point is inside an Octave string."
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(nth 3 (parse-partial-sexp (line-beginning-position) (point)))))
|
||||
|
||||
(defsubst octave-not-in-string-or-comment-p ()
|
||||
"Returns t iff point is not inside an Octave string or comment."
|
||||
"Return t if point is not inside an Octave string or comment."
|
||||
(let ((pps (parse-partial-sexp (line-beginning-position) (point))))
|
||||
(not (or (nth 3 pps) (nth 4 pps)))))
|
||||
|
||||
(defun octave-in-block-p ()
|
||||
"Returns t if point is inside an Octave block, nil otherwise.
|
||||
"Return t if point is inside an Octave block.
|
||||
The block is taken to start at the first letter of the begin keyword and
|
||||
to end after the end keyword."
|
||||
(let ((pos (point)))
|
||||
|
|
@ -599,7 +599,7 @@ to end after the end keyword."
|
|||
(< pos (point)))))
|
||||
|
||||
(defun octave-in-defun-p ()
|
||||
"Returns t iff point is inside an Octave function declaration.
|
||||
"Return t if point is inside an Octave function declaration.
|
||||
The function is taken to start at the `f' of `function' and to end after
|
||||
the end keyword."
|
||||
(let ((pos (point)))
|
||||
|
|
|
|||
|
|
@ -348,7 +348,7 @@ comments and strings, or that point is within brackets/parens."
|
|||
(error nil))))))))
|
||||
|
||||
(defun python-comment-line-p ()
|
||||
"Return non-nil iff current line has only a comment."
|
||||
"Return non-nil if current line has only a comment."
|
||||
(save-excursion
|
||||
(end-of-line)
|
||||
(when (eq 'comment (syntax-ppss-context (syntax-ppss)))
|
||||
|
|
@ -356,7 +356,7 @@ comments and strings, or that point is within brackets/parens."
|
|||
(looking-at (rx (or (syntax comment-start) line-end))))))
|
||||
|
||||
(defun python-blank-line-p ()
|
||||
"Return non-nil iff current line is blank."
|
||||
"Return non-nil if current line is blank."
|
||||
(save-excursion
|
||||
(beginning-of-line)
|
||||
(looking-at "\\s-*$")))
|
||||
|
|
@ -850,7 +850,7 @@ multi-line bracketed expressions."
|
|||
"Skip out of any nested brackets.
|
||||
Skip forward if FORWARD is non-nil, else backward.
|
||||
If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point.
|
||||
Return non-nil iff skipping was done."
|
||||
Return non-nil if skipping was done."
|
||||
(let ((depth (syntax-ppss-depth (or syntax (syntax-ppss))))
|
||||
(forward (if forward -1 1)))
|
||||
(unless (zerop depth)
|
||||
|
|
@ -1199,7 +1199,7 @@ local value.")
|
|||
(define-key map "\C-c\C-l" 'python-load-file)
|
||||
(define-key map "\C-c\C-v" 'python-check)
|
||||
;; Note that we _can_ still use these commands which send to the
|
||||
;; Python process even at the prompt iff we have a normal prompt,
|
||||
;; Python process even at the prompt provided we have a normal prompt,
|
||||
;; i.e. '>>> ' and not '... '. See the comment before
|
||||
;; python-send-region. Fixme: uncomment these if we address that.
|
||||
|
||||
|
|
|
|||
|
|
@ -126,11 +126,13 @@
|
|||
"*Indentation of Tcl statements with respect to containing block."
|
||||
:type 'integer
|
||||
:group 'tcl)
|
||||
(put 'tcl-indent-level 'safe-local-variable 'integerp)
|
||||
|
||||
(defcustom tcl-continued-indent-level 4
|
||||
"*Indentation of continuation line relative to first line of command."
|
||||
:type 'integer
|
||||
:group 'tcl)
|
||||
(put 'tcl-continued-indent-level 'safe-local-variable 'integerp)
|
||||
|
||||
(defcustom tcl-auto-newline nil
|
||||
"*Non-nil means automatically newline before and after braces you insert."
|
||||
|
|
|
|||
|
|
@ -232,7 +232,7 @@ It creates the Imenu index for the buffer, if necessary."
|
|||
When Which Function mode is enabled, the current function name is
|
||||
continuously displayed in the mode line, in certain major modes.
|
||||
|
||||
With prefix ARG, turn Which Function mode on iff arg is positive,
|
||||
With prefix ARG, turn Which Function mode on if arg is positive,
|
||||
and off otherwise."
|
||||
:global t :group 'which-func
|
||||
(if which-function-mode
|
||||
|
|
|
|||
|
|
@ -868,7 +868,7 @@ Control returns to the top level rep loop."
|
|||
(sleep-for 1)))
|
||||
|
||||
(defun xscheme-process-running-p ()
|
||||
"True iff there is a Scheme process whose status is `run'."
|
||||
"True if there is a Scheme process whose status is `run'."
|
||||
(let ((process (get-process xscheme-process-name)))
|
||||
(and process
|
||||
(eq (process-status process) 'run))))
|
||||
|
|
@ -882,7 +882,7 @@ Control returns to the top level rep loop."
|
|||
(and buffer (get-buffer-window buffer))))
|
||||
|
||||
(defun xscheme-process-buffer-current-p ()
|
||||
"True iff the current buffer is the Scheme process buffer."
|
||||
"True if the current buffer is the Scheme process buffer."
|
||||
(eq (xscheme-process-buffer) (current-buffer)))
|
||||
|
||||
;;;; Process Filter Operations
|
||||
|
|
|
|||
|
|
@ -178,7 +178,7 @@ Cut buffers are considered obsolete; you should use selections instead."
|
|||
If it is valid, set the register `r0' to 1, else set it to 0.")
|
||||
|
||||
(defun string-utf-8-p (string)
|
||||
"Return non-nil iff STRING is a unibyte string of valid UTF-8 sequence."
|
||||
"Return non-nil if STRING is a unibyte string of valid UTF-8 sequence."
|
||||
(if (or (not (stringp string))
|
||||
(multibyte-string-p string))
|
||||
(error "Not a unibyte string: %s" string))
|
||||
|
|
|
|||
|
|
@ -285,7 +285,7 @@ information defining the cluster. For interactive use, call
|
|||
ans)))
|
||||
|
||||
(defun shadow-site-match (site1 site2)
|
||||
"Non-nil iff SITE1 is or includes SITE2.
|
||||
"Non-nil if SITE1 is or includes SITE2.
|
||||
Each may be a host or cluster name; if they are clusters, regexp of SITE1 will
|
||||
be matched against the primary of SITE2."
|
||||
(or (string-equal site1 site2) ; quick check
|
||||
|
|
|
|||
|
|
@ -4535,8 +4535,9 @@ The variable `selective-display' has a separate value for each buffer."
|
|||
|
||||
(defun toggle-truncate-lines (&optional arg)
|
||||
"Toggle whether to fold or truncate long lines for the current buffer.
|
||||
With arg, truncate long lines iff arg is positive.
|
||||
Note that in side-by-side windows, truncation is always enabled."
|
||||
With prefix argument ARG, truncate long lines if ARG is positive,
|
||||
otherwise don't truncate them. Note that in side-by-side
|
||||
windows, truncation is always enabled."
|
||||
(interactive "P")
|
||||
(setq truncate-lines
|
||||
(if (null arg)
|
||||
|
|
@ -4559,11 +4560,11 @@ Note that in side-by-side windows, truncation is always enabled."
|
|||
|
||||
(defun overwrite-mode (arg)
|
||||
"Toggle overwrite mode.
|
||||
With arg, turn overwrite mode on iff arg is positive.
|
||||
In overwrite mode, printing characters typed in replace existing text
|
||||
on a one-for-one basis, rather than pushing it to the right. At the
|
||||
end of a line, such characters extend the line. Before a tab,
|
||||
such characters insert until the tab is filled in.
|
||||
With prefix argument ARG, turn overwrite mode on if ARG is positive,
|
||||
otherwise turn it off. In overwrite mode, printing characters typed
|
||||
in replace existing text on a one-for-one basis, rather than pushing
|
||||
it to the right. At the end of a line, such characters extend the line.
|
||||
Before a tab, such characters insert until the tab is filled in.
|
||||
\\[quoted-insert] still inserts characters in overwrite mode; this
|
||||
is supposed to make it easier to insert characters when necessary."
|
||||
(interactive "P")
|
||||
|
|
@ -4575,14 +4576,13 @@ is supposed to make it easier to insert characters when necessary."
|
|||
|
||||
(defun binary-overwrite-mode (arg)
|
||||
"Toggle binary overwrite mode.
|
||||
With arg, turn binary overwrite mode on iff arg is positive.
|
||||
In binary overwrite mode, printing characters typed in replace
|
||||
existing text. Newlines are not treated specially, so typing at the
|
||||
end of a line joins the line to the next, with the typed character
|
||||
between them. Typing before a tab character simply replaces the tab
|
||||
with the character typed.
|
||||
\\[quoted-insert] replaces the text at the cursor, just as ordinary
|
||||
typing characters do.
|
||||
With prefix argument ARG, turn binary overwrite mode on if ARG is
|
||||
positive, otherwise turn it off. In binary overwrite mode, printing
|
||||
characters typed in replace existing text. Newlines are not treated
|
||||
specially, so typing at the end of a line joins the line to the next,
|
||||
with the typed character between them. Typing before a tab character
|
||||
simply replaces the tab with the character typed. \\[quoted-insert]
|
||||
replaces the text at the cursor, just as ordinary typing characters do.
|
||||
|
||||
Note that binary overwrite mode is not its own minor mode; it is a
|
||||
specialization of overwrite mode, entered by setting the
|
||||
|
|
@ -4597,9 +4597,9 @@ specialization of overwrite mode, entered by setting the
|
|||
|
||||
(define-minor-mode line-number-mode
|
||||
"Toggle Line Number mode.
|
||||
With arg, turn Line Number mode on iff arg is positive.
|
||||
When Line Number mode is enabled, the line number appears
|
||||
in the mode line.
|
||||
With arg, turn Line Number mode on if arg is positive, otherwise
|
||||
turn it off. When Line Number mode is enabled, the line number
|
||||
appears in the mode line.
|
||||
|
||||
Line numbers do not appear for very large buffers and buffers
|
||||
with very long lines; see variables `line-number-display-limit'
|
||||
|
|
@ -4608,16 +4608,16 @@ and `line-number-display-limit-width'."
|
|||
|
||||
(define-minor-mode column-number-mode
|
||||
"Toggle Column Number mode.
|
||||
With arg, turn Column Number mode on iff arg is positive.
|
||||
When Column Number mode is enabled, the column number appears
|
||||
in the mode line."
|
||||
With arg, turn Column Number mode on if arg is positive,
|
||||
otherwise turn it off. When Column Number mode is enabled, the
|
||||
column number appears in the mode line."
|
||||
:global t :group 'mode-line)
|
||||
|
||||
(define-minor-mode size-indication-mode
|
||||
"Toggle Size Indication mode.
|
||||
With arg, turn Size Indication mode on iff arg is positive. When
|
||||
Size Indication mode is enabled, the size of the accessible part
|
||||
of the buffer appears in the mode line."
|
||||
With arg, turn Size Indication mode on if arg is positive,
|
||||
otherwise turn it off. When Size Indication mode is enabled, the
|
||||
size of the accessible part of the buffer appears in the mode line."
|
||||
:global t :group 'mode-line)
|
||||
|
||||
(defgroup paren-blinking nil
|
||||
|
|
@ -5152,7 +5152,7 @@ With prefix argument N, move N items (negative N means move backward)."
|
|||
These functions are called in order with four arguments:
|
||||
CHOICE - the string to insert in the buffer,
|
||||
BUFFER - the buffer in which the choice should be inserted,
|
||||
MINI-P - non-nil iff BUFFER is a minibuffer, and
|
||||
MINI-P - non-nil if BUFFER is a minibuffer, and
|
||||
BASE-SIZE - the number of characters in BUFFER before
|
||||
the string being completed.
|
||||
|
||||
|
|
@ -5760,7 +5760,8 @@ See also `normal-erase-is-backspace'."
|
|||
|
||||
(define-minor-mode visible-mode
|
||||
"Toggle Visible mode.
|
||||
With argument ARG turn Visible mode on iff ARG is positive.
|
||||
With argument ARG turn Visible mode on if ARG is positive, otherwise
|
||||
turn it off.
|
||||
|
||||
Enabling Visible mode makes all invisible text temporarily visible.
|
||||
Disabling Visible mode turns off that effect. Visible mode
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue