** make-tarball.txt
-Instructions to create pretest or release tarballs, annoucements, etc.
+Instructions to create pretest or release tarballs, announcements, etc.
** admin.el
mode: outline
paragraph-separate: "[ \f]*$"
end:
-
usage (const char *progname)
{
fprintf (stderr, "Usage %s options\n", progname);
- fprintf (stderr, "-n NCOLORS allcoate NCOLORS colors\n");
+ fprintf (stderr, "-n NCOLORS allocate NCOLORS colors\n");
exit (1);
}
XCloseDisplay (dpy);
return 0;
}
-
( t )
| semantic-list
( nil )
- ;; Here is an anoying feature of C++ pure virtual methods
+ ;; Here is an annoying feature of C++ pure virtual methods
| EQUAL ZERO SEMICOLON
( :pure-virtual-flag )
| fun-try-end
name="$1"
shift
-
+
if [ -z "$name" ]; then
echo "Usage: connect_emacs <name> <args>..." >&2
exit 1
serverdir="/tmp/emacs$UID"
emacs=/usr/bin/emacs-multi-tty # Or wherever you installed your multi-tty Emacs
-if [ -z "$name" ]; then
+if [ -z "$name" ]; then
echo "Usage: preload_emacs <name> [<waitp>]" >&2
exit 1
fi
Emacs with GTK support. If you want to play around with GTK
multidisplay (and don't mind core dumps), you can edit src/config.h
and define HAVE_GTK_MULTIDISPLAY there by hand.
-
+
http://bugzilla.gnome.org/show_bug.cgi?id=85715
Update: Han reports that GTK+ version 2.8.9 almost gets display
sometimes; Emacs does not respond to stimuli from other keyboards.
At least a beep or a message would be important, if the single-mode
is still required to prevent interference. (Reported by Dan
- Nicolaescu.)
+ Nicolaescu.)
Update: selecting a region with the mouse enables single_kboard
under X. This is very confusing.
are not useful; before starting work on DOS support, revert to
pristine, pre-multi-tty versions.
-** Fix Windows support. Currently bootstraping works on w32, but Emacs
+** Fix Windows support. Currently bootstrapping works on w32, but Emacs
crashes on startup and none of the multi-tty features are
implemented. Many XXX comments mark things that probably need
updating, ChangeLogs will help in spotting changes to X specific
settings as Emacs itself. This may lead to bogus results in a
multi-locale setup. (E.g., while logging in from a remote client
with a different locale.)
- (Update after new bugreport by Friedrich Delgado Friedrichs:
+ (Update after new bugreport by Friedrich Delgado Friedrichs:
(at least) the structs terminal_coding and keyboard_coding in
coding.c must be moved to struct display, and the Lisp interface
[set-]keyboard-coding-system must be adapted for the change.)
-- Miles Bader suggests that C-x C-c on an emacsclient frame should
only close the frame, not exit the entire Emacs session. Update:
see above for a function that does this. Maybe this should be the
- new default?
+ new default?
(Done. This is the new default. No complaints so far.)
from exiting Emacs. (Reported by Mnemonikk on freenode.)
(Done, I hope.)
-
+
-- Having {reset,init}_all_sys_modes in set-input-mode breaks arrow
keys on non-selected terminals under screen, and sometimes on other
> Cursor mode. Applications have to send the smkx and rmkx terminfo
> strings to switch between the 2 modes. So Emacs (and emacsclient) have
> to send smkx when initializing and rmkx when quitting (or on
- > suspend).
+ > suspend).
(I think patch-370 fixed this.)
emacs
M-x server-start
-
+
# From another xterm:
emacsclient -e '(y-or-n-p "Do you want me to crash? ")'
# Notice how the answer ends up in the *scratch* buffer
it is not recognized correctly. May be related to the bug below.
(Seems to have been fixed as a side effect of patch-434. "The bug
- below" was the set-input-mode madness.)
+ below" was the set-input-mode madness.)
(Update: this bug was fixed for good in patch-449. It was tracked
down to a bug in `read_key_sequence': it failed to reinitialize its
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
nsfont.m implements the font driver, responsible for managing fonts and
rendering text. Fonts are obtained through NSFontManager. Rendering must be
done at a low level due to emacs' fine control over this process, therefore
-there are different approachs under Cocoa and GNUstep. Under GNUstep, the
+there are different approaches under Cocoa and GNUstep. Under GNUstep, the
original NeXT Display PostScript (DPS) APIs are available and used. Under
Cocoa, these were removed and Quartz drawing functions replaced them.
EmacsSavePanel : NSSavePanel
EmacsOpenPanel : NSOpenPanel
- utility override for panel notifications
-
@item
Andrew Cohen wrote @file{spam-wash.el}, to decode and clean email before
-it is analysed for spam.
+it is analyzed for spam.
@item
Georges Brun-Cottan and Stefan Monnier wrote @file{easy-mmode.el}, a
In all-stop mode, whenever your program stops, @emph{all} threads of
execution stop. Likewise, whenever you restart the program, all
threads start executing. @xref{All-Stop Mode, , All-Stop Mode, gdb,
-The GNU debugger}. You can enable this behaviour in Emacs by setting
+The GNU debugger}. You can enable this behavior in Emacs by setting
@code{gdb-non-stop-setting} to @code{nil} before starting a debugging
session.
@subsection Open files by dragging to an Emacs window
-The default behaviour when a user drags files from another application
+The default behavior when a user drags files from another application
into an Emacs frame is to insert the contents of all the dragged files
into the current buffer. To remap the @code{ns-drag-file} event to
open the dragged files in the current frame use the following line:
Per default, this variable is always set to @code{t}, meaning that a
call of @code{process-file} could potentially change any file on a
remote host. When set to @code{nil}, a file handler could optimize
-its behaviour with respect to remote file attributes caching.
+its behavior with respect to remote file attributes caching.
This variable should never be changed by @code{setq}. Instead of, it
shall be set only by let-binding.
2009-08-25 Michael Albinus <michael.albinus@gmx.de>
* dbus.texi (Bus names): Add optional parameter TIMEOUT to dbus-ping.
- Describe autostart behaviour of dbus-ping.
+ Describe autostart behavior of dbus-ping.
(Synchronous Methods, Asynchronous Methods): Use English numeric format
for timeout values.
(Top): Remove footnote saying D-Bus is not enabled by
Styles
-* Built-in Styles::
-* Choosing a Style::
-* Adding Styles::
-* Guessing the Style::
-* File Styles::
+* Built-in Styles::
+* Choosing a Style::
+* Adding Styles::
+* Guessing the Style::
+* File Styles::
Customizing Auto-newlines
Syntactic Symbols
-* Function Symbols::
-* Class Symbols::
-* Conditional Construct Symbols::
-* Switch Statement Symbols::
-* Brace List Symbols::
-* External Scope Symbols::
-* Paren List Symbols::
-* Literal Symbols::
-* Multiline Macro Symbols::
-* Objective-C Method Symbols::
+* Function Symbols::
+* Class Symbols::
+* Conditional Construct Symbols::
+* Switch Statement Symbols::
+* Brace List Symbols::
+* External Scope Symbols::
+* Paren List Symbols::
+* Literal Symbols::
+* Multiline Macro Symbols::
+* Objective-C Method Symbols::
* Java Symbols::
-* Statement Block Symbols::
-* K&R Symbols::
+* Statement Block Symbols::
+* K&R Symbols::
Customizing Indentation
Customizing Macros
-* Macro Backslashes::
-* Macros with ;::
+* Macro Backslashes::
+* Macros with ;::
@end detailmenu
@end menu
function beginnings or ends inside the current declaration scope, it
will search the enclosing scopes. If you want @ccmode to recognize
functions only at the top level@footnote{this was @ccmode{}'s
-behaviour prior to version 5.32.}, set @code{c-defun-tatic} to
+behavior prior to version 5.32.}, set @code{c-defun-tatic} to
@code{t}.
These functions are analogous to the Emacs built-in commands
already formatted piece of your code, @ref{Guessing the Style}.
@menu
-* Built-in Styles::
-* Choosing a Style::
-* Adding Styles::
-* Guessing the Style::
-* File Styles::
+* Built-in Styles::
+* Choosing a Style::
+* Adding Styles::
+* Guessing the Style::
+* File Styles::
@end menu
@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@end table
@menu
-* Function Symbols::
-* Class Symbols::
-* Conditional Construct Symbols::
-* Switch Statement Symbols::
-* Brace List Symbols::
-* External Scope Symbols::
-* Paren List Symbols::
-* Literal Symbols::
-* Multiline Macro Symbols::
-* Objective-C Method Symbols::
+* Function Symbols::
+* Class Symbols::
+* Conditional Construct Symbols::
+* Switch Statement Symbols::
+* Brace List Symbols::
+* External Scope Symbols::
+* Paren List Symbols::
+* Literal Symbols::
+* Multiline Macro Symbols::
+* Objective-C Method Symbols::
* Java Symbols::
-* Statement Block Symbols::
-* K&R Symbols::
+* Statement Block Symbols::
+* K&R Symbols::
@end menu
@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@menu
-* Macro Backslashes::
-* Macros with ;::
+* Macro Backslashes::
+* Macros with ;::
@end menu
@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sudo is an alias, defined as "*sudo $*"
@end example
-Some of the built-in commands have a special behaviour in Eshell:
+Some of the built-in commands have a special behavior in Eshell:
@table @code
@section Frequently Asked Questions
@menu
-* FAQ - Changes::
+* FAQ - Changes::
* FAQ - Introduction:: About Gnus and this FAQ.
* FAQ 1 - Installation FAQ:: Installation of Gnus.
* FAQ 2 - Startup / Group buffer:: Start up questions and the
This is the new Gnus Frequently Asked Questions list.
-Please submit features and suggestions to the
+Please submit features and suggestions to the
@email{ding@@gnus.org, ding list}.
@node FAQ - Changes
21 is outdated).
You can get the latest released version of Gnus from
@uref{http://www.gnus.org/dist/gnus.tar.gz}
-or via anonymous FTP from
+or via anonymous FTP from
@uref{ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz}.
@node FAQ 1-4
@subsubheading Answer
-Untar it via @samp{tar xvzf gnus.tar.gz} and do the common
+Untar it via @samp{tar xvzf gnus.tar.gz} and do the common
@samp{./configure; make; make install} circle.
(under MS-Windows either get the Cygwin environment from
@uref{http://www.cygwin.com}
@subsection Getting Messages
@menu
-* FAQ 3-1:: I just installed Gnus, started it via @samp{M-x gnus}
+* FAQ 3-1:: I just installed Gnus, started it via @samp{M-x gnus}
but it only says "nntp (news) open error", what to do?
* FAQ 3-2:: I'm working under Windows and have no idea what
~/.gnus.el means.
@node FAQ 3-1
@subsubheading Question 3.1
-I just installed Gnus, started it via
-@samp{M-x gnus}
+I just installed Gnus, started it via
+@samp{M-x gnus}
but it only says "nntp (news) open error", what to do?
@subsubheading Answer
The ~/ means the home directory where Gnus and Emacs look
for the configuration files. However, you don't really
need to know what this means, it suffices that Emacs knows
-what it means :-) You can type
-@samp{C-x C-f ~/.gnus.el RET }
+what it means :-) You can type
+@samp{C-x C-f ~/.gnus.el RET }
(yes, with the forward slash, even on Windows), and
Emacs will open the right file for you. (It will most
likely be new, and thus empty.)
However, I'd discourage you from doing so, since the
directory Emacs chooses will most certainly not be what
-you want, so let's do it the correct way.
+you want, so let's do it the correct way.
The first thing you've got to do is to
create a suitable directory (no blanks in directory name
please) e.g. c:\myhome. Then you must set the environment
.
Make sure that the file isn't readable to others if you
work on a OS which is capable of doing so. (Under Unix
-say
+say
@example
chmod 600 ~/.authinfo
@end example
Some providers allow restricted anonymous access and full
access only after authorization. To make Gnus send authinfo
-to those servers append
+to those servers append
@example
force yes
@end example
@noindent
-
+
to the line for those servers in ~/.authinfo.
@node FAQ 3-6
@subsubheading Answer
-If you enter the group by saying
+If you enter the group by saying
@samp{RET}
in group buffer with point over the group, only unread and ticked messages are loaded. Say
@samp{C-u RET}
(setq gnus-fetch-old-headers 'some)
@end example
@noindent
-
+
in ~/.gnus.el to load enough old articles to prevent teared threads, replace 'some with t to load
-all articles (Warning: Both settings enlarge the amount of data which is
+all articles (Warning: Both settings enlarge the amount of data which is
fetched when you enter a group and slow down the process of entering a group).
-If you already use Gnus 5.10, you can say
-@samp{/o N}
+If you already use Gnus 5.10, you can say
+@samp{/o N}
In summary buffer to load the last N messages, this feature is not available in 5.8.8
If you don't want all old messages, but the parent of the message you're just reading,
@subsubheading Answer
-Say @samp{t}
+Say @samp{t}
to show all headers, one more
-@samp{t}
+@samp{t}
hides them again.
@node FAQ 4-4
@subsubheading Answer
-Say
-@samp{C-u g}
+Say
+@samp{C-u g}
to show the raw message
-@samp{g}
+@samp{g}
returns to normal view.
@node FAQ 4-5
@example
(eval-after-load "mm-decode"
- '(progn
+ '(progn
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext")))
@end example
lowest-article-number = total-number-of-articles". This
works OK for Usenet groups, but if you delete and move
many messages in mail groups, this fails. To cure the
-symptom, enter the group via @samp{C-u RET}
+symptom, enter the group via @samp{C-u RET}
(this makes Gnus get all messages), then
hit @samp{M P b} to mark all messages and
then say @samp{B m name.of.group} to move
articles should go which don't match any other rule. If
the folder doesn't exist yet, it will be created as soon
as an article lands there. By default the mail will be
-send to all groups whose rules match. If you
+send to all groups whose rules match. If you
don't want that (you probably don't want), say
@example
("Spam" "^CC: .*azzrael@@t-online.invalid")
("Spam" "^X-Mailer-Version: 1.50 BETA")
("Uni" "^\\(CC:\\|To:\\).*localpart@@uni-koblenz.invalid.*")
- ("Inbox" "^\\(CC:\\|To:\\).*\\(my\ name\\|address@@one.invalid\\|adress@@two.invalid\\)")
+ ("Inbox" "^\\(CC:\\|To:\\).*\\(my\ name\\|address@@one.invalid\\|address@@two.invalid\\)")
("Spam" "")))
@end example
@noindent
first thing to do is to make sure that you've got either
@uref{http://fmg-www.cs.ucla.edu/fmg-members/geoff/ispell.html, ispell}
or @uref{http://aspell.sourceforge.net/, aspell}
-installed and in your Path. Then you need
+installed and in your Path. Then you need
@uref{http://www.kdstevens.com/~stevens/ispell-page.html, ispell.el}
-and for on-the-fly spell-checking
+and for on-the-fly spell-checking
@uref{http://www-sop.inria.fr/members/Manuel.Serrano/flyspell/flyspell.html, flyspell.el}.
-Ispell.el is shipped with Emacs and available through the XEmacs package system,
-flyspell.el is shipped with Emacs and part of XEmacs text-modes package which is
-available through the package system, so there should be no need to install them
+Ispell.el is shipped with Emacs and available through the XEmacs package system,
+flyspell.el is shipped with Emacs and part of XEmacs text-modes package which is
+available through the package system, so there should be no need to install them
manually.
Ispell.el assumes you use ispell, if you choose aspell say
(setq ispell-program-name "aspell")
@end example
@noindent
-
+
in your Emacs configuration file.
If you want your outgoing messages to be spell-checked, say
(ispell-change-dictionary "english")))))
@end example
@noindent
-
+
in ~/.gnus.el. Change "^de\\." and "deutsch8" to something
that suits your needs.
node "Mail Aliases" in Message (not Gnus) manual for
details.
-However, what you really want is the Insidious Big Brother
+However, what you really want is the Insidious Big Brother
Database bbdb. Get it through the XEmacs package system or from
@uref{http://bbdb.sourceforge.net/, bbdb's homepage}.
Now place the following in ~/.gnus.el, to activate bbdb for Gnus:
@example
(require 'bbdb)
-;;If you don't live in Northern America, you should disable the
+;;If you don't live in Northern America, you should disable the
;;syntax check for telephone numbers by saying
(setq bbdb-north-american-phone-numbers-p nil)
;;Tell bbdb about your email address:
Gimp), open the image you want to include, cut out the
relevant part, reduce color depth to 1 bit, resize to
48*48 and save as bitmap. Now you should get the compface
-package from
+package from
@uref{ftp://ftp.cs.indiana.edu:/pub/faces/, this site}.
and create the actual X-face by saying
@end example
@noindent
-If you can't use compface, there's an online X-face converter at
+If you can't use compface, there's an online X-face converter at
@uref{http://www.dairiki.org/xface/}.
If you use MS Windows, you could also use the WinFace program from
@uref{http://www.xs4all.nl/~walterln/winface/}.
@noindent
in ~/.gnus.el. If you use Gnus 5.9 or earlier, you can use this
-instead (works for newer versions as well):
+instead (works for newer versions as well):
@example
(eval-after-load "message"
when you're online.
Let's talk about Unix systems first: For the news part,
-the easiest solution is a small nntp server like
+the easiest solution is a small nntp server like
@uref{http://www.leafnode.org/, Leafnode} or
@uref{http://infa.abo.fi/~patrik/sn/, sn},
of course you can also install a full featured news
-server like
-@uref{http://www.isc.org/products/INN/, inn}.
+server like
+@uref{http://www.isc.org/products/INN/, inn}.
Then you want to fetch your Mail, popular choices
are @uref{http://www.catb.org/~esr/fetchmail/, fetchmail}
and @uref{http://pyropus.ca/software/getmail/, getmail}.
@uref{http://www.exim.org/, exim} or
@uref{http://www.qmail.org/, qmail}.
-On windows boxes I'd vote for
-@uref{http://www.tglsoft.de/, Hamster},
+On windows boxes I'd vote for
+@uref{http://www.tglsoft.de/, Hamster},
it's a small freeware, open-source program which fetches
your mail and news from remote servers and offers them
to Gnus (or any other mail and/or news reader) via nntp
@subsubheading Answer
There's the newsgroup gnu.emacs.gnus (also available as
-@uref{http://dir.gmane.org/gmane.emacs.gnus.user,
+@uref{http://dir.gmane.org/gmane.emacs.gnus.user,
gmane.emacs.gnus.user}) which deals with general Gnus
questions. If you have questions about development versions of
Gnus, you should better ask on the ding mailing list, see below.
The ding mailing list (ding@@gnus.org) deals with development of
Gnus. You can read the ding list via NNTP, too under the name
-@uref{http://dir.gmane.org/gmane.emacs.gnus.general,
+@uref{http://dir.gmane.org/gmane.emacs.gnus.general,
gmane.emacs.gnus.general} from news.gmane.org.
@node FAQ 8-5
@subsubheading Answer
Say @samp{M-x gnus-bug}, this will start
-a message to the
+a message to the
@email{bugs@@gnus.org, gnus bug mailing list}
including information about your environment which make
it easier to help you.
at the bottom of your ~/.gnus.el, this will make gnus
byte-compile things like
-gnus-summary-line-format.
+gnus-summary-line-format.
then you could increase the value of gc-cons-threshold
by saying something like
(setq gnus-use-correct-string-widths nil)
@end example
@noindent
-
+
in ~/.gnus.el (thanks to Jesper harder for the last
two suggestions). Finally if you are still using 5.8.8
or 5.9 and experience speed problems with summary
@code{gnus-diary} provides two supplemental user formats to be used in
summary line formats. @code{D} corresponds to a formatted time string
for the next occurrence of the event (e.g. ``Sat, Sep 22 01, 12:00''),
-while @code{d} corresponds to an approximative remaining time until the
+while @code{d} corresponds to an approximate remaining time until the
next occurrence of the event (e.g. ``in 6 months, 1 week'').
For example, here's how Joe's birthday is displayed in my
@end lisp
While using a list with face properties as shown for CANCELED @emph{should}
-work, this does not aways seem to be the case. If necessary, define a
+work, this does not always seem to be the case. If necessary, define a
special face and use that. A string is interpreted as a color. The variable
@code{org-faces-easy-properties} determines if that color is interpreted as a
foreground or a background color.
@orgcmd{C-c C-d,org-deadline}
Insert @samp{DEADLINE} keyword along with a stamp. The insertion will happen
in the line directly following the headline. Any CLOSED timestamp will be
-removed. When called with a prefix arg, an existing deadline will be removed
+removed. When called with a prefix arg, an existing deadline will be removed
from the entry. Depending on the variable @code{org-log-redeadline}@footnote{with corresponding
@code{#+STARTUP} keywords @code{logredeadline}, @code{lognoteredeadline},
and @code{nologredeadline}}, a note will be taken when changing an existing
@top Supercite
@comment node-name, next, previous, up
-@insertcopying
+@insertcopying
The manual is divided
into the following chapters.
Supercite mailing list participants.
With version 3, Supercite underwent an almost complete rewrite,
-benefitting in a number of ways, including vast improvements in the
+benefiting in a number of ways, including vast improvements in the
speed of performance, a big reduction in size of the code and in the use
of Emacs resources, and a much cleaner and flexible internal
architecture. Most of this work was internal and not of very great
which automatically associates files with tables in databases so that
tags are @emph{saved} while a buffer is not in memory.
-The database and tables both also provide applicate cache information,
+The database and tables both also provide applicable cache information,
and cache flushing system. The semanticdb search routines use caches
to save datastructures that are complex to calculate.
methods, or @command{pageant} for @option{plink}-like methods.
However, if you cannot apply such native password handling,
-@value{tramp} offers altenatives.
+@value{tramp} offers alternatives.
@anchor{Using an authentication file}
2011-01-04 Jan Moringen <jan.moringen@uni-bielefeld.de>
- * NEWS: Extended behaviour of dbus-register-{method,property}.
+ * NEWS: Extended behavior of dbus-register-{method,property}.
2011-01-02 Kenichi Handa <handa@m17n.org>
* Rmail commands `a' and `k' set message attributes.
`a' adds an attribute and `k' removes one. You specify
-the attrbute by name. You can specify either a built-in
+the attribute by name. You can specify either a built-in
flag such as "deleted" or "filed", or a user-defined keyword
(anything not recognized as built-in).
Local variables:
mode: text
end:
-
*** New keymap `search-map' bound to `M-s' provides global bindings
for search related commands.
-*** New keymap `multi-query-replace-map' contains additonal keys bound
+*** New keymap `multi-query-replace-map' contains additional keys bound
to `automatic-all' and `exit-current' for multi-buffer interactive replacement.
*** The variable `inhibit-changing-match-data', if non-nil, prevents
4) Use lbxproxy on the remote end of the connection. This is an interface
to the low bandwidth X extension in most modern X servers, which
improves performance dramatically, at the slight expense of correctness
- of the X protocol. lbxproxy acheives the performance gain by grouping
+ of the X protocol. lbxproxy achieves the performance gain by grouping
several X requests in one TCP packet and sending them off together,
instead of requiring a round-trip for each X request in a separate
packet. The switches that seem to work best for emacs are:
(`gnus-group-prepare-hook', `gnus-summary-prepare-hook' and
`gnus-summary-article-hook'). (Well, at the very least the first
two.) Gnus provides various integrated functions for highlighting,
-which are both faster and more accurated.
+which are both faster and more accurate.
There is absolutely no chance, whatsoever, of getting Gnus to work
with Emacs 18. It won't even work on Emacsen older than Emacs
If you have any questions on usage, the "ding@ifi.uio.no" mailing list
is where to post the questions.
-
-
%%
(define-lex wisent-{{TARGETMODE}}-lexer
- "Lexical analzer to handle {{TARGETMODE}} buffers."
+ "Lexical analyzer to handle {{TARGETMODE}} buffers."
;; semantic-lex-newline
semantic-lex-ignore-whitespace
semantic-lex-ignore-newline
;; reading mail/USENET.
;; In the message itself, quoted mail messages from different people
-;; are color coordinated, with high contrast beteen citations that are
+;; are color coordinated, with high contrast between citations that are
;; close to each other in the heirarchy, so it is less likely that one
;; misunderstands who said what in a long conversation.
querying the password for.
* ibuffer.el (ibuffer-visit-buffer): To mimick list-buffers
- behaviour, don't bury the ibuffer buffer when visiting other buffers.
+ behavior, don't bury the ibuffer buffer when visiting other buffers.
2010-10-08 Chong Yidong <cyd@stupidchicken.com>
;; omitting any that contain a buffer or a frame.
;; FIXME: Why omit keys that contain buffers and
;; frames? This looks like a bad workaround rather
- ;; than a proper fix. Does anybod know what problem
+ ;; than a proper fix. Does anybody know what problem
;; this is trying to address? --Stef
(dolist (key keys)
(let ((i 0)
(setq archive-file-name-coding-system file-name-coding)
(if (and
(null
- (let (;; We may have to encode file name arguement for
+ (let (;; We may have to encode the file name argument for
;; external programs.
(coding-system-for-write
(and enable-multibyte-characters
;; recomment as we go
;;nil
))
- ;; Do nothing if we are buiding an EDE project already
+ ;; Do nothing if we are building an EDE project already.
(ede-constructing
nil)
;; Load in the project in question.
"EDE Generic Project target for Misc files.
All directories need at least one target.")
-;;; Automatic target aquisition.
+;;; Automatic target acquisition.
(defun ede-generic-find-matching-target (class dir targets)
"Find a target that is a CLASS and is in DIR in the list of TARGETS."
(let ((match nil))
(mapcar 'semantic-tag-type-members
tagtype))))
(oset miniscope fullscope rawscope)))
- ;; Now analayze the type to remove metatypes.
+ ;; Now analyze the type to remove metatypes.
(or (semantic-analyze-type tmp miniscope)
tmp))
(t
result
" ")
">")
- ;; Longer results should have an abreviated form.
+ ;; Longer results should have an abbreviated form.
(format "#<FIND RESULT %d TAGS in %d FILES>"
(semanticdb-find-result-length result)
(length result))))
"Hook used in modification hooks to prevent modification.
Allows deletion of the entire text.
Argument OVERLAY, AFTER, START, END, and LEN are passed in by the system."
- ;; Stolen blithly from cpp.el in Emacs 21.1
+ ;; Stolen blithely from cpp.el in Emacs 21.1
(if (and (not after)
(or (< (semantic-overlay-start overlay) start)
(> (semantic-overlay-end overlay) end)))
If this is an include file that belongs to your project, then you may
need to update `semanticdb-project-roots' or better yet, use `ede'
to manage your project. See the ede manual for projects that will
-wrap existing project code for Semantic's benifit.
+wrap existing project code for Semantic's benefit.
")
(when (or (eq mm 'c++-mode) (eq mm 'c-mode))
)
(if pf
(message "%s" (semantic-format-tag-summarize pf nil t))
- (message "No summary info availalble"))))
+ (message "No summary info available"))))
;;; Variants
;;
;; Jump to a destination based on the local context.
;;
;; This shows how to use the analyzer context, and the
-;; analyer references objects to choose a good destination.
+;; analyzer references objects to choose a good destination.
(defun semantic-ia--fast-jump-helper (dest)
"Jump to DEST, a Semantic tag.
;;; Symbol Is Macro
;;
-;; An analyser that will push tokens from a macro in place
+;; An analyzer that will push tokens from a macro in place
;; of the macro symbol.
;;
(defun semantic-lex-spp-anlyzer-do-replace (sym val beg end)
;;; Comment lexer
;;
;; Predefined lexers that could be used instead of creating new
-;; analyers.
+;; analyzers.
(define-lex semantic-comment-lexer
"A simple lexical analyzer that handles comments.
;;------------------------------------------------------------
(define-overloadable-function semantic-analyze-scoped-tags (typelist parentlist)
- "Return accessable tags when TYPELIST and PARENTLIST is in scope.
+ "Return accessible tags when TYPELIST and PARENTLIST is in scope.
Tags returned are not in the global name space, but are instead
scoped inside a class or namespace. Such items can be referenced
without use of \"object.function()\" style syntax due to an
)
(defun srecode-calculate-nearby-things ()
- ;; NOTE: May need to add bounes to this FCN
+ ;; NOTE: May need to add bounds to this FCN
"Calculate the CONTEXT type items nearby the current point.
Assume that what we want to insert next is based on what is just
before point. If there is nothing, then assume it is whatever is
(if (string-match (car (car al)) (downcase ts))
(progn
(setq newstr (concat newstr (cdr (car al))))
- ;; don't terminate because we may actuall have 2 words
- ;; next to eachother we didn't identify before
+ ;; don't terminate because we may actually have 2 words
+ ;; next to each other we didn't identify before
(setq llow t)))
(setq al (cdr al)))
(if (not llow) (setq newstr (concat newstr ts)))
(oset st lastdict dict))
(defmethod srecode-extract-state-set-anchor ((st srecode-extract-state))
- "Reset the achor point on extract state ST."
+ "Reset the anchor point on extract state ST."
(oset st anchor (point)))
(defmethod srecode-extract-state-extract ((st srecode-extract-state)
))
;; Create a temporary overlay now. We have to use an overlay and
- ;; not a marker becaues of the in-front insertion rules. The rules
+ ;; not a marker because of the in-front insertion rules. The rules
;; are backward from what is wanted while typing.
(setq olay (make-overlay start end (current-buffer) t nil))
(overlay-put olay 'srecode-init-only t)
:group 'comint
:type 'boolean)
-;; Directly analagous to comint-preoutput-filter-functions
+;; Directly analogous to comint-preoutput-filter-functions
(defvar comint-redirect-filter-functions nil
"List of functions to call before inserting redirected process output.
Each function gets one argument, a string containing the text received
(setq desktop-buffer-fail-count (1+ desktop-buffer-fail-count))
(setq result nil))
;; Restore buffer list order with new buffer at end. Don't change
- ;; the order for old desktop files (old desktop module behaviour).
+ ;; the order for old desktop files (old desktop module behavior).
(unless (< desktop-file-version 206)
(mapc 'bury-buffer buffer-list)
(when result (bury-buffer result)))
;; spaces there (and within the filename as well, of course).
(save-excursion
(let (file file-col other other-col)
- ;; Check that there is indeed a file, and that there is anoter adjacent
+ ;; Check that there is indeed a file, and that there is another adjacent
;; file with which to align, and that additional spaces are needed to
;; align the filenames.
(when (and (setq file (progn (goto-char beg)
(progn
(eieio-perform-slot-validation-for-default a type value skipnil)
;; Here we have found a :class version of a slot. This
- ;; requires a very different aproach.
+ ;; requires a very different approach.
(aset newc class-class-allocation-a (cons a (aref newc class-class-allocation-a)))
(aset newc class-class-allocation-doc (cons doc (aref newc class-class-allocation-doc)))
(aset newc class-class-allocation-type (cons type (aref newc class-class-allocation-type)))
\f
;;;
;; We want all objects created by EIEIO to have some default set of
-;; behaviours so we can create object utilities, and allow various
+;; behaviors so we can create object utilities, and allow various
;; types of error checking. To do this, create the default EIEIO
;; class, and when no parent class is specified, use this as the
;; default. (But don't store it in the other classes as the default,
nil
(list (eldoc-current-symbol) argument-index)))))
-;; Move to the beginnig of current sexp. Return the number of nested
+;; Move to the beginning of current sexp. Return the number of nested
;; sexp the point was over or after.
(defun eldoc-beginning-of-sexp ()
(let ((parse-sexp-ignore-comments t)
(defun rx-anything (form)
"Match any character."
(if (consp form)
- (error "rx `anythng' syntax error: %s" form))
+ (error "rx `anything' syntax error: %s" form))
(rx-or (list 'or 'not-newline ?\n)))
;; you put (setq crisp-load-scroll-all t) in your .emacs before
;; loading this package. If this feature is enabled, it will bind
;; meta-f1 to the scroll-all mode toggle. The scroll-all package
-;; duplicates the scroll-alling feature in CRiSP.
+;; duplicates the scroll-all feature in CRiSP.
;; Also, the default keybindings for brief/CRiSP override the M-x
;; key to exit the editor. If you don't like this functionality, you
"Set the away state globally.
If NOTEST is specified, do not check to see whether there is an
-activer server buffer available."
+active server buffer available."
;; Note that the idle timer runs, even when Emacs is inactive. In
;; order to prevent flooding when we connect, we test for an
;; existing process.
;; indent-tabs-mode: t
;; tab-width: 8
;; End:
-
'(eshell-named-command
eshell-lisp-command
eshell-process-identity)
- "A list of functions which might return an ansychronous process.
+ "A list of functions which might return an asynchronous process.
If they return a process object, execution of the calling Eshell
command will wait for completion (in the background) before finishing
the command."
2011-03-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if
+ * gnus-sum.el (gnus-articles-to-read): Revert back to old behavior if
we're selecting a group with unread articles.
* nnimap.el (nnimap-open-connection-1): Allow `network-only', too.
* shr.el (shr-put-image): Use point even if only inserting text.
(shr-put-image): Save excursion when inserting alt text on non-graphic
- display, so the behaviour is the same when we are on a graphic display.
+ display, so the behavior is the same when we are on a graphic display.
* nnir.el (nnir-run-swish-e): Remove hyrex support.
bidning gnus-agent variables.
* shr.el (shr-render-td): Use a cache for the table rendering function
- to avoid getting an exponential rendering behaviour in nested tables.
+ to avoid getting an exponential rendering behavior in nested tables.
(shr-insert): Rework the line-breaking algorithm.
(shr-insert): Don't leave trailing spaces.
(shr-insert-table): Also insert empty TDs.
* gnus-start.el (gnus-get-unread-articles): Allow the backends to
update the group info. This makes the nndraft groups, for instance, go
- back to their old behaviour.
+ back to their old behavior.
* gnus-sum.el (gnus-select-newsgroup): Indent.
* gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default
so that nnimap methods aren't agentized by default. There's apparently
- many problems related to agent/imap behaviour.
+ many problems related to agent/imap behavior.
* gnus-art.el (gnus-article-copy-string): New command and key binding.
storage than before.
* gnus.el (gnus-refer-article-method): Change default to 'current.
- When referring an article, the common behaviour is to refer it from the
+ When referring an article, the common behavior is to refer it from the
current select method, not the native select method. The chances of
the native select method having the message in question is rather slim
these days.
* gnus-sum.el (gnus-summary-goto-unread): Change default to nil, so
that commands like `d' (and the like) go to the next line in the
buffer, instead of the next unread article. I think this is the
- behaviour that is most natural for most users.
+ behavior that is most natural for most users.
(gnus-single-article-buffer): Change default to nil, so that people can
have as many article buffers open as they have summary buffer. I think
this is the most natural way for the groups to behave.
2005-06-16 Arne Jørgensen <arne@arnested.dk>
* smime.el (smime-cert-by-ldap-1): Detect PEM format without
- header by looking for magic "MII" at the beginnig.
+ header by looking for magic "MII" at the beginning.
2005-06-16 Miles Bader <miles@gnu.org>
gnus-treat-from-picon
gnus-treat-from-gravatar
gnus-treat-mail-gravatar)
- ;; If there's much decoration, the user might prefer a boundery.
+ ;; If there's much decoration, the user might prefer a boundary.
'head
nil)
"Draw a boundary at the end of the headers.
;; I just ignore it.
;;;###autoload
(defun gnus-user-format-function-d (header)
- ;; Returns an aproximative delay string for the next occurrence of this
+ ;; Return an approximate delay string for the next occurrence of this
;; message. The delay is given only in the first non zero unit.
;; Code partly stolen from article-make-date-line
(let* ((extras (mail-header-extra header))
;; Sort the methods based so that the primary and secondary
;; methods come first. This is done for legacy reasons to try to
- ;; ensure that side-effect behaviour doesn't change from previous
+ ;; ensure that side-effect behavior doesn't change from previous
;; Gnus versions.
(setq type-cache
(sort (nreverse type-cache)
;; so let's skip over it
(search-backward "(")
(goto-char (scan-sexps (point) 1)))))
- ;; Highlight aguments in the USAGE string
+ ;; Highlight arguments in the USAGE string
(setq usage (help-do-arg-highlight (buffer-string) args))
;; Highlight arguments in the DOC string
(setq doc (and doc (help-do-arg-highlight doc args))))))
it fails once with the error message [initial node], and with
subsequent C-s/C-r continues through other nodes without failing
with this error message in other nodes. When isearch fails for
-the rest of the manual, it wraps aroung the whole manual and
+the rest of the manual, it wraps around the whole manual and
restarts the search from the top/final node depending on
search direction.
;; Searching
(defvar isearch-search-fun-function nil
- "Overrides the default `isearch-search-fun' behaviour.
+ "Overrides the default `isearch-search-fun' behavior.
This variable's value should be a function, which will be called
with no arguments, and should return a function that takes three
arguments: STRING, BOUND, and NOERROR.
(narrow-to-region p (point))
(robin-invert-region (point-min) (point-max) "ethiopic-sera")
- ;; ethio-quote-vowel-alwyas
+ ;; ethio-quote-vowel-always
(goto-char (point-min))
(while (re-search-forward "'[eauio]" nil t)
(save-excursion
Optional WITH-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL
follwoing a consonant and preceding a maa-sakod character. If it is
-nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is alwasy
+nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is always
appended at the tail.
For instance, rule `(\"\e(1`WM\e(B\" (?\e(1`\e(B t ?\e(1W\e(B ?\e(1M\e(B))' tells that this vowel
Some exporters like docbook, odt, etc. expect that footnote
definitions be available before any references to them. Such
exporters can let bind `org-footnote-insert-pos-for-preprocessor' to
-symbol 'point-min to achieve the desired behaviour.
+symbol 'point-min to achieve the desired behavior.
Additional note on `org-footnote-insert-pos-for-preprocessor':
1. This variable has not effect when FOR-PREPROCESSOR is nil.
(add-hook 'mail-send-hook 'feedmail-mail-send-hook-splitter)
Then add the functions you want called to either `feedmail-mail-send-hook-queued'
-or `feedmail-mail-send-hook', as apprpriate. The distinction is that
+or `feedmail-mail-send-hook', as appropriate. The distinction is that
`feedmail-mail-send-hook' will be called when you send mail from a composition
buffer (typically by typing C-c C-c), whether the message is sent immediately
or placed in the queue or drafts directory. `feedmail-mail-send-hook-queued' is
(completing-read prompt mh-alias-alist nil nil) ",")))))
(if (not mh-alias-expand-aliases-flag)
(mapconcat 'identity the-answer ", ")
- ;; Loop over all elements, checking if in passwd aliast or blind first
+ ;; Loop over all elements, checking if in passwd alias or blind first
(mapconcat 'mh-alias-expand the-answer ",\n ")))))
;;;###mh-autoload
;;
;; This package provides a simple method of inserting a URL based on the
;; text at point in the current buffer. This is part of an on-going effort
-;; to increase the information I provide people while reducing the ammount
+;; to increase the information I provide people while reducing the amount
;; of typing I need to do. No-doubt there are undiscovered Emacs packages
;; out there that do all of this and do it better, feel free to point me to
;; them, in the mean time I'm having fun playing with Emacs Lisp.
(tramp-compat-temporary-file-directory)))))
spec)
- ;; Add arguments for asynchrononous processes.
+ ;; Add arguments for asynchronous processes.
(when (and process-name async-args)
(setq login-args (append async-args login-args)))
APROTOCOL stands for the network protocol family ADDRESS is
encoded (`zeroconf-avahi-protocol-inet4' means INET4,
`zeroconf-avahi-protocol-inet6' means INET6). It can be
-different from PROTOCOL, when an adrress resolution has been
+different from PROTOCOL, when an address resolution has been
requested for another protocol family but the default one.
ADDRESS is the service address, encoded according to the
;; In `iso-accents-mode', pseudo accent characters are used to
;; introduce accented keys. The pseudo-accent characters are:
;;
-;; ' (minute) -> actue accent
+;; ' (minute) -> acute accent
;; ` (backtick) -> grave accent
;; " (second) -> diaeresis
;; ^ (caret) -> circumflex
src blocks.
(org-speed-command-default-hook): The default hook for
org-speed-command-hook. Factored out from org-self-insert-command
- and mimics existing behaviour.
+ and mimics existing behavior.
(org-self-insert-command): Modified to use org-speed-command-hook.
2010-11-11 Carsten Dominik <carsten.dominik@gmail.com>
a list of symbols specifying which of the special keywords #+DATE,
#+AUTHOR, #+EMAIL and #+TITLE should be hidden by font lock.
(org-fontify-meta-lines-and-blocks): Changes to font-lock code
- implementing new faces and hiding behaviour.
+ implementing new faces and hiding behavior.
* org-faces.el (org-document-title): New face for #+TITLE lines.
(org-document-info): New face for #+DATE, #+AUTHOR, #+EMAIL lines.
2008-11-23 Carsten Dominik <carsten.dominik@gmail.com>
* org-export-latex.el (org-export-latex-subcontent):
- Interprete target aliases as additonal labels.
+ Interprete target aliases as additional labels.
* org-exp.el (org-export-target-aliases): New variable.
(org-export-preprocess-string)
(org-export-handle-invisible-targets): Fill the alias alist.
(org-export-as-html): Remove the from the anchor, and also
assign an id.
- (org-html-level-start): Insert the target aliases as additonal
+ (org-html-level-start): Insert the target aliases as additional
anchors.
* org.el (org-edit-fixed-width-region): Fix bug when starting a new
((stringp org-beamer-frame-level-now)
(setq org-beamer-frame-level-now
(string-to-number org-beamer-frame-level-now))))
- ;; Find the header additons, most likely theme commands
+ ;; Find the header additions, most likely theme commands
(setq org-beamer-header-extra
(or (and (org-region-active-p)
(save-excursion
;; with the same name as the link; then, if unsuccessful, ask the user if
;; he/she wants to rebuild the 'TAGS' database and try again; then ask if
;; the user wishes to append 'tag' as a new toplevel heading at the end of
-;; the buffer; and finally, defer to org's default behaviour which is to
+;; the buffer; and finally, defer to org's default behavior which is to
;; search the entire text of the current buffer for 'tag'.
;;
-;; This behaviour can be modified by changing the value of
+;; This behavior can be modified by changing the value of
;; ORG-CTAGS-OPEN-LINK-FUNCTIONS. For example I have the following in my
-;; .emacs, which describes the same behaviour as the above paragraph with
+;; .emacs, which describes the same behavior as the above paragraph with
;; one difference:
;;
;; (setq org-ctags-open-link-functions
;; '(org-ctags-find-tag
;; org-ctags-ask-rebuild-tags-file-then-find-tag
;; org-ctags-ask-append-topic
-;; org-ctags-fail-silently)) ; <-- prevents org default behaviour
+;; org-ctags-fail-silently)) ; <-- prevents org default behavior
;;
;;
;; Usage
Some exporters like docbook, odt, etc. expect that footnote
definitions be available before any references to them. Such
exporters can let bind `org-footnote-insert-pos-for-preprocessor' to
-symbol 'point-min to achieve the desired behaviour.
+symbol 'point-min to achieve the desired behavior.
Additional note on `org-footnote-insert-pos-for-preprocessor':
1. This variable has not effect when FOR-PREPROCESSOR is nil.
display folders first or last, respectively.
Any other value will mix files and folders.
:sitemap-sort-files The site map is normally sorted alphabetically.
- You can change this behaviour setting this to
+ You can change this behavior setting this to
`chronologically', `anti-chronologically' or nil.
:sitemap-ignore-case Should sorting be case-sensitive? Default nil.
(let ((ctime (org-publish-cache-ctime-of-src filename)))
(or (< pstamp ctime)
(when included-files-ctime
- (not (null (delq nil (mapcar (lambda(ct) (< ctime ct))
+ (not (null (delq nil (mapcar (lambda(ct) (< ctime ct))
included-files-ctime))))))))))
(defun org-publish-cache-set-file-property (filename property value &optional project-name)
(forward-line 1)
(re-search-forward org-not-done-heading-regexp pos t))
(throw 'dont-block nil)) ; block, there is an older sibling not done.
- ;; Search further up the hierarchy, to see if an anchestor is blocked
+ ;; Search further up the hierarchy, to see if an ancestor is blocked
(while t
(goto-char parent-pos)
(if (not (looking-at org-not-done-heading-regexp))
"Local keymap for the 5x5 game.")
(5x5-defvar-local 5x5-solver-output nil
- "List that is is the output of artihmetic solver.
+ "List that is is the output of an arithmetic solver.
This list L is such that
S_1 ... S_N are all the solutions ordered from least to greatest
number of strokes. S_1 is the solution to be displayed.
-Each solution S_1, ..., S_N is a a list (STROKE-COUNT GRID) where
-STROKE-COUNT is to number of strokes to achieve the solution and
+Each solution S_1, ..., S_N is a list (STROKE-COUNT GRID) where
+STROKE-COUNT is the number of strokes to achieve the solution and
GRID is the grid of positions to click.")
(unless declaration-found
- ;; Since we alread know the number of the file, search for a direct
+ ;; Since we already know the number of the file, search for a direct
;; reference to it
(goto-char (point-min))
(set 'declaration-found t)
;; Just gone back over an ordinary symbol of some sort?
(t (c-crosses-statement-barrier-p
(point) maybe-after-boundary-pos))))
-
+
(when boundary-pos
(setq pptok ptok
ptok tok
pos tok) ; always non-nil
) ; end of (catch loop ....)
) ; end of sexp-at-a-time (while ....)
-
+
;; If the stack isn't empty there might be errors to report.
(while stack
(if (and (vectorp saved-pos) (eq (length saved-pos) 3))
rung-is-marked simple-ws-beg cmt-skip-pos)
;; Skip simple horizontal ws and do a quick check on the preceding
- ;; character to see if it's anying that can't end syntactic ws, so we can
+ ;; character to see if it's anything that can't end syntactic ws, so we can
;; bail out early in the majority of cases when there just are a few ws
;; chars. Newlines are complicated in the backward direction, so we can't
;; skip over them.
;; a relevant match.
(goto-char pos)
nil))))))
-
+
(> (point)
(progn
;; Skip syntactic ws afterwards so that we don't stop at the
;; car ^ ^ point
;; Foo::Foo (int b) : Base (b) {}
;; car ^ ^ point
- ;;
+ ;;
;; The cdr of the return value is non-nil when a
;; `c-typedef-decl-kwds' specifier is found in the declaration.
;; Specifically it is a dotted pair (A . B) where B is t when a
;; other `c-typedef-decl-kwds' (e.g. class, struct, enum)
;; specifier is present. I.e., (some of) the declared
;; identifier(s) are types.
- ;;
+ ;;
;; If a cast is parsed:
;;
;; The point is left at the first token after the closing paren of
nil)
(t nil))))
(eolp))
-
+
(goto-char pos)
(progn (c-backward-syntactic-ws)
(eq (point) pos))
;; FIXME: Should use c-add-stmt-syntax, but it's not yet
;; template aware.
(c-add-syntax 'template-args-cont (point) placeholder))
-
+
;; CASE D: continued statement.
(t
(c-beginning-of-statement-1 containing-sexp)
[foo blahBlahBlah: fred
thisIsTooDamnLong: barney
-This behaviour can be overridden by customizing the indentation of
+This behavior can be overridden by customizing the indentation of
`objc-method-call-cont' in the \"objc\" style."
:type 'integer
:group 'c)
9) When doing indentation of control constructs, may correct
line-breaks/spacing between elements of the construct.
-10) Uses a linear-time algorith for indentation of regions (on Emaxen with
+10) Uses a linear-time algorithm for indentation of regions (on Emaxen with
capable syntax engines).
11) Syntax-highlight, indentation, sexp-recognition inside regular expressions.
;; form. For editing Fortran 90 free format source, use `f90-mode'
;; (f90.el). It is meant to support the GNU Fortran language
;; implemented by g77 (its extensions to Fortran77 and
-;; interpretations, e.g. of blackslash in strings).
+;; interpretations, e.g. of backslash in strings).
;;; History:
(defun gdb-mapcar* (function &rest seqs)
"Apply FUNCTION to each element of SEQS, and make a list of the results.
If there are several SEQS, FUNCTION is called with that many
-arugments, and mapping stops as sson as the shortest list runs
+arguments, and mapping stops as sson as the shortest list runs
out."
(let ((shortest (apply #'min (mapcar #'length seqs))))
(mapcar (lambda (i)
(error "Not recognized as break/watchpoint line")))))
\f
-;; Frames buffer. This displays a perpetually correct bactrack trace.
+;; Frames buffer. This displays a perpetually correct backtrack trace.
;;
(def-gdb-trigger-and-handler
gdb-invalidate-frames (gdb-current-context-command "-stack-list-frames")
massaged-args)))
;; Search for an association with P, a fully qualified class name, in
-;; gud-jdb-class-source-alist. The asssociation gives the fully
+;; gud-jdb-class-source-alist. The association gives the fully
;; qualified file name of the source file which produced the class.
(defun gud-jdb-find-source-file (p)
(cdr (assoc p gud-jdb-class-source-alist)))
(defun meta-beginning-of-defun (&optional arg)
- "Move backward to beginnning of a defun in Metafont or MetaPost code.
+ "Move backward to beginning of a defun in Metafont or MetaPost code.
With numeric argument, do it that many times.
Negative arg -N means move forward to Nth following beginning of defun.
Returns t unless search stops due to beginning or end of buffer."
;; (`prolog-electric-dot-full-predicate-template', defaults to t
;; since it seems quicker to me to just type those commata). A
;; trivial adaptation of a patch by Markus Triska.
-;; o Improved the behaviour of electric if-then-else to only skip
+;; o Improved the behavior of electric if-then-else to only skip
;; forward if the parenthesis/semicolon is preceded by
;; whitespace. Once more a trivial adaptation of a patch by
;; Markus Triska.
:safe 'symbolp)
(defvaralias 'sql-dialect 'sql-product)
-;; misc customization of sql.el behaviour
+;; misc customization of sql.el behavior
(defcustom sql-electric-stuff nil
"Treat some input as electric.
(setq has-schema (and
(>= (length (car names)) schema-len)
(string= schema-dot
- (downcase (substring (car names)
+ (downcase (substring (car names)
0 schema-len))))
names (cdr names)))
(unless has-schema
(sql-build-completions schema)))))
-
+
;; Try to find the completion
(cond
((not predicate)
;; interactive session
(eval `(let ((sql-connection ,connection)
(,param-var ',rem-params))
- (sql-product-interactive sql-product
+ (sql-product-interactive sql-product
new-name)))))
(message "SQL Connection <%s> does not exist" connection)
(if connection
(message "This session was started by a connection; it's already been saved.")
-
+
(let ((login (sql-get-product-feature product :sqli-login))
(alist sql-connection-alist)
connect)
-
+
;; Remove the existing connection if the user says so
(when (and (assoc name alist)
(yes-or-no-p (format "Replace connection definition <%s>? " name)))
(setq alist (assq-delete-all name alist)))
-
+
;; Add the new connection if it doesn't exist
(if (assoc name alist)
(message "Connection <%s> already exists" name)
(sql-redirect sqlbuf "\\t off")
(when (not (string= a "aligned"))
(sql-redirect sqlbuf "\\a"))
-
- ;; Return the list of table names (public schema name can be omitted)
+
+ ;; Return the list of table names (public schema name can be omitted)
(mapcar (lambda (tbl)
(if (string= (car tbl) "public")
(cadr tbl)
Per default, this variable is always set to `t', meaning that a
call of `process-file' could potentially change any file on a
remote host. When set to `nil', a file handler could optimize
-its behaviour with respect to remote file attributes caching.
+its behavior with respect to remote file attributes caching.
This variable should never be changed by `setq'. Instead of, it
shall be set only by let-binding.")
;; The Tar data is made up of bytes and better manipulated as bytes
;; and can be very large, so insert/delete can be costly. The summary we
-;; want to display may contain non-ascci chars, of course, so we'd like it
+;; want to display may contain non-ascii chars, of course, so we'd like it
;; to be multibyte. We used to keep both in the same buffer and switch
;; from/to uni/multibyte. But this had several downsides:
;; - set-buffer-multibyte has an O(N^2) worst case that tends to be triggered
;; Things for drawing lines in all directions.
-;; The line drawing engine is the eight-point alrogithm.
+;; The line drawing engine is the eight-point algorithm.
;;
;; A line is here a list of (x y saved-char new-char)s.
;;
context)
(when (and (not appendix)
(>= (string-to-char (match-string 2)) ?A))
- ;; Just entered the appendex. Get out.
+ ;; Just entered the appendix. Get out.
(throw 'exit nil))
;; Change the section number.
(defvar reftex-toc-mode-map
(let ((map (make-sparse-keymap)))
-
+
(define-key map (if (featurep 'xemacs) [(button2)] [(mouse-2)])
'reftex-toc-mouse-goto-line-and-hide)
(define-key map [follow-link] 'mouse-face)
(setq msg
(catch 'exit
(if (reftex-region-active-p)
- ;; A region is dangerous, check if we have a brandnew scan,
+ ;; A region is dangerous, check if we have a brand new scan,
;; to make sure we are not missing any section statements.
(if (not (reftex-toc-check-docstruct))
(reftex-toc-load-all-files-for-promotion) ;; exits
;;; Finding files
(defun reftex-locate-file (file type master-dir &optional die)
- "Find FILE of type TYPE in MASTER-DIR or on the path associcted with TYPE.
+ "Find FILE of type TYPE in MASTER-DIR or on the path associated with TYPE.
If the file does not have any of the valid extensions for TYPE,
try first the default extension and only then the naked file name.
When DIE is non-nil, throw an error if file not found."
(defvar font-lock-defaults-computed)
(defun reftex-fontify-select-label-buffer (parent-buffer)
;; Fontify the `*RefTeX Select*' buffer. Buffer is temporarily renamed to
- ;; start with none-SPC char, beacuse Font-Lock otherwise refuses operation.
+ ;; start with none-SPC char, because Font-Lock otherwise refuses operation.
(run-hook-with-args 'reftex-pre-refontification-functions
parent-buffer 'reftex-ref)
(let* ((oldname (buffer-name))
;; - Allowing particular views of the initially amorphous data pool
;; (ala the Xanadu concept).
;;
-;; - Storage of the data in a manner most appopriate to that data,
+;; - Storage of the data in a manner most appropriate to that data,
;; such as keeping address-book type information in BBDB, etc.
;;
;; * Using "remember"
;;------------------------------------------------------------------------------
;; FIXME: these next functions should become part of a larger effort to redo the
-;; bullets in bulletted lists. The enumerate would just be one of the possible
+;; bullets in bulleted lists. The enumerate would just be one of the possible
;; outputs.
;;
;; FIXME: TODO we need to do the enumeration removal as well.
;; Revise the mode line to display which difference we have selected
;; Also resets modelines of buffers A/B, since they may be clobbered by
-;; anothe invocations of Ediff.
+;; other invocations of Ediff.
(defun ediff-refresh-mode-lines ()
(let (buf-A-state-diff buf-B-state-diff buf-C-state-diff buf-C-state-merge)
;; `incg' or `buffer-substring-no-properties'. (This is
;; for speed; strictly speaking, it is sufficient to use
;; only the former since it behaves identically to the
- ;; latter in the absense of "@@".)
+ ;; latter in the absence of "@@".)
sub)
(flet ((incg (beg end) (let ((b beg) (e end) @-holes)
(while (and asc (< (car asc) e))
(setq whitespace-display-table-was-local t
whitespace-display-table
(copy-sequence buffer-display-table))
- ;; asure `buffer-display-table' is unique
+ ;; Assure `buffer-display-table' is unique
;; when two or more windows are visible.
(setq buffer-display-table
(copy-sequence buffer-display-table)))
;; Actually, the whole subject of the minibuffer edge of the frame is
;; rather messy. It turns out that with a sufficiently large delta,
;; we can fly off the bottom edge of the frame and miss the minibuffer
-;; altogther. This, I think, is never right: if there's a minibuffer
+;; altogether. This, I think, is never right: if there's a minibuffer
;; and you're not in it, and you move down, the minibuffer should be
;; in your way.
;;
(replace-regexp-in-string "\\s-\\{2,\\}" " " string)
(let ((expansion (xml-substitute-special string)))
(unless (stringp expansion)
- ; We say this is the constraint. It is acctually that
+ ; We say this is the constraint. It is actually that neither
; external entities nor "<" can be in an attribute value.
(error "XML: (Not Well-Formed) Entities in attributes cannot expand into elements"))
(push (cons name expansion) attlist)))
/* Like malloc but used for allocating Lisp data. NBYTES is the
number of bytes to allocate, TYPE describes the intended use of the
- allcated memory block (for strings, for conses, ...). */
+ allocated memory block (for strings, for conses, ...). */
#ifndef USE_LSB_TAG
static void *lisp_malloc_loser;
/* A list of currently active byte-code execution value stacks.
Fbyte_code adds an entry to the head of this list before it starts
processing byte-code, and it removed the entry again when it is
- done. Signaling an error truncates the list analoguous to
+ done. Signaling an error truncates the list analogous to
gcprolist. */
struct byte_stack *byte_stack_list;
#define CODING_REQUIRE_DETECTION_MASK 0x1000
#define CODING_RESET_AT_BOL_MASK 0x2000
-/* Return 1 if the coding context CODING requires annotaion
+/* Return 1 if the coding context CODING requires annotation
handling. */
#define CODING_REQUIRE_ANNOTATION(coding) \
((coding)->common_flags & CODING_ANNOTATION_MASK)
#endif
/* argmatch must not be used after here,
- except when bulding temacs
+ except when building temacs
because the -d argument has not been skipped in skip_args. */
#ifdef MSDOS
the table by a character gives the corresponding glyph code.
REPERTORY specifies a repertory of characters supported by the font.
-If REPERTORY is a charset, all characters beloging to the charset are
+If REPERTORY is a charset, all characters belonging to the charset are
supported. If REPERTORY is a char-table, all characters who have a
non-nil value in the table are supported. If REPERTORY is nil, Emacs
gets the repertory information by an opened font and ENCODING. */);
operation on GNU/Linux of calling dump-emacs after loading some images. */
image_types = NULL;
- /* Must be defined now becase we're going to update it below, while
+ /* Must be defined now because we're going to update it below, while
defining the supported image types. */
DEFVAR_LISP ("image-types", Vimage_types,
doc: /* List of potentially supported image types.
val_compute_motion.prevhpos = contin_hpos;
else
val_compute_motion.prevhpos = prev_hpos;
- /* We alalways handle all of them here; none of them remain to do. */
+ /* We always handle all of them here; none of them remain to do. */
val_compute_motion.ovstring_chars_done = 0;
/* Nonzero if have just continued a line */
struct frame *sf = SELECTED_FRAME ();
/* The immediate context is not interesting for Quits,
- since they are asyncronous. */
+ since they are asynchronous. */
if (EQ (XCAR (data), Qquit))
Vsignaling_function = Qnil;
/* Currently on NS img->mask is always 0. Since
get_window_cursor_type specifies a hollow box cursor when on
a non-masked image we never reach this clause. But we put it
- in in antipication of better support for image masks on
+ in in anticipation of better support for image masks on
NS. */
tdCol = ns_lookup_indexed_color (NS_FACE_FOREGROUND (face), s->f);
}
/* Close device SD. */
void (* close) (struct sound_device *sd);
- /* Configure SD accoring to device-dependent parameters. */
+ /* Configure SD according to device-dependent parameters. */
void (* configure) (struct sound_device *device);
/* Choose a device-dependent format for outputting sound S. */
key_mapping = Qnil;
}
- /* NB. This code runs in the input thread, asychronously to the lisp
+ /* NB. This code runs in the input thread, asynchronously to the lisp
thread, so we must be careful to ensure access to lisp data is
thread-safe. The following code is safe because the modifier
variable values are updated atomically from lisp and symbols are
/* Callback function for EnumFontFamiliesEx.
- * Checks if a font matches everything we are trying to check agaist,
+ * Checks if a font matches everything we are trying to check against,
* and if so, adds it to a list. Both the data we are checking against
* and the list to which the fonts are added are passed in via the
* lparam argument, in the form of a font_callback_data struct. */
out_string = (char *) local_alloc (strlen (wv->name) + 1);
strcpy (out_string, wv->name);
#ifdef MENU_DEBUG
- DebPrint ("Menu: allocing %ld for owner-draw", out_string);
+ DebPrint ("Menu: allocating %ld for owner-draw", out_string);
#endif
fuFlags = MF_OWNERDRAW | MF_DISABLED;
}
f->output_data.w32->asked_for_visible = 1;
/* According to a report in emacs-devel 2008-06-03, SW_SHOWNORMAL
- causes unexpected behaviour when unminimizing frames that were
+ causes unexpected behavior when unminimizing frames that were
previously maximised. But only SW_SHOWNORMAL works properly for
frames that were truely hidden (using make-frame-invisible), so
we need it to avoid Bug#5482. It seems that async_iconified
function res = tcomp (fn)
%% res = tcomp (fn)
%% imports components and rearranges them.
-
+
if nargin ~= 1
print_usage()
end
endfunction
## Copyright (C) 2005, 2006, 2007, 2008, 2009 S�ren Hauberg
-##
+##
## This file is part of Octave.
##
## Octave is free software; you can redistribute it and/or modify it
##
## @table @code
## @item -nodeps
-## The package manager will disable the dependency checking. That way it
-## is possible to install a package even if it depends on another package
+## The package manager will disable the dependency checking. That way it
+## is possible to install a package even if it depends on another package
## that's not installed on the system. @strong{Use this option with care.}
##
## @item -noauto
-## The package manager will not automatically load the installed package
+## The package manager will not automatically load the installed package
## when starting Octave, even if the package requests that it is.
##
## @item -auto
-## The package manager will automatically load the installed package when
+## The package manager will automatically load the installed package when
## starting Octave, even if the package requests that it isn't.
##
## @item -local
## system privileges
##
## @item -verbose
-## The package manager will print the output of all of the commands that are
+## The package manager will print the output of all of the commands that are
## performed.
## @end table
##
## pkg global_list
## @end example
## @item rebuild
-## Rebuilds the package database from the installed directories. This can
+## Rebuilds the package database from the installed directories. This can
## be used in cases where for some reason the package database is corrupted.
## It can also take the @code{-auto} and @code{-noauto} options to allow the
## autoloading state of a package to be changed. For example
## @noindent
## where @code{builddir} is the name of a directory where the temporary
## installation will be produced and the binary packages will be found.
-## The options @code{-verbose} and @code{-nodeps} are respected, while
+## The options @code{-verbose} and @code{-nodeps} are respected, while
## the other options are ignored.
## @end table
## @end deftypefn
available_actions = {"list", "install", "uninstall", "load", ...
"unload", "prefix", "local_list", ...
- "global_list", "rebuild", "build","describe"};
+ "global_list", "rebuild", "build","describe"};
## Handle input
if (length (varargin) == 0 || ! iscellstr (varargin))
print_usage ();
if (length (files) == 0)
error ("you must specify at least one filename when calling 'pkg install'");
endif
- install (files, deps, auto, prefix, archprefix, verbose, local_list,
+ install (files, deps, auto, prefix, archprefix, verbose, local_list,
global_list, global_install);
case "uninstall"
if (length (files) == 0)
error ("you must specify at least one package when calling 'pkg uninstall'");
endif
- uninstall (files, deps, verbose, local_list,
+ uninstall (files, deps, verbose, local_list,
global_list, global_install);
case "load"
case "rebuild"
if (global_install)
- global_packages = rebuild (prefix, archprefix, global_list, files,
+ global_packages = rebuild (prefix, archprefix, global_list, files,
auto, verbose);
global_packages = save_order (global_packages);
save (global_list, "global_packages");
local_packages = global_packages;
endif
else
- local_packages = rebuild (prefix, archprefix, local_list, files, auto,
+ local_packages = rebuild (prefix, archprefix, local_list, files, auto,
verbose);
local_packages = save_order (local_packages);
save (local_list, "local_packages");
otherwise
error ("you can request at most two outputs when calling 'pkg describe'");
endswitch
-
+
otherwise
error ("you must specify a valid action for 'pkg'. See 'help pkg' for details");
endswitch
endfor
if (! isempty (dup))
descriptions (dup) = [];
- endif
+ endif
endif
endfunction
endif
files(1) = [];
buildlist = fullfile (builddir, "octave_packages");
- install (files, handle_deps, autoload, installdir, installdir, verbose,
+ install (files, handle_deps, autoload, installdir, installdir, verbose,
buildlist, "", false);
unwind_protect
repackage (builddir, buildlist);
end_unwind_protect
endfunction
-function install (files, handle_deps, autoload, prefix, archprefix, verbose,
+function install (files, handle_deps, autoload, prefix, archprefix, verbose,
local_list, global_list, global_install)
## Check that the directory in prefix exist. If it doesn't: create it!
endif
## Get the list of installed packages.
- [local_packages, global_packages] = installed_packages (local_list,
+ [local_packages, global_packages] = installed_packages (local_list,
global_list);
- installed_pkgs_lst = {local_packages{:}, global_packages{:}};
+ installed_pkgs_lst = {local_packages{:}, global_packages{:}};
if (global_install)
packages = global_packages;
try
## Warn about non existent files.
for i = 1:length (files)
- if (isempty (glob(files{i})))
+ if (isempty (glob(files{i})))
warning ("file %s does not exist", files{i});
endif
endfor
packdir = fullfile (pwd(), dirlist{3});
endif
packdirs{end+1} = packdir;
-
+
## Make sure the package contains necessary files.
verify_directory (packdir);
-
+
## Read the DESCRIPTION file.
filename = fullfile (packdir, "DESCRIPTION");
desc = get_description (filename);
-
+
## Verify that package name corresponds with filename.
- [dummy, nm] = fileparts (tgz);
+ [dummy, nm] = fileparts (tgz);
if ((length (nm) >= length (desc.name))
&& ! strcmp (desc.name, nm(1:length(desc.name))))
- error ("package name '%s' doesn't correspond to its filename '%s'",
+ error ("package name '%s' doesn't correspond to its filename '%s'",
desc.name, nm);
endif
-
+
## Set default installation directory.
desc.dir = fullfile (prefix, cstrcat (desc.name, "-", desc.version));
-
- ## Set default architectire dependent installation directory.
+
+ ## Set default architecture dependent installation directory.
desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-",
desc.version));
-
+
## Save desc.
descriptions{end+1} = desc;
-
+
## Are any of the new packages already installed?
## If so we'll remove the old version.
for j = 1:length (packages)
if (global_install)
## Global installation is not allowed to have dependencies on locally
## installed packages.
- idx1 = complement (packages_to_uninstall,
+ idx1 = complement (packages_to_uninstall,
1:length(global_packages));
pseudo_installed_packages = {global_packages{idx1}, ...
descriptions{idx2}};
else
- idx1 = complement (packages_to_uninstall,
+ idx1 = complement (packages_to_uninstall,
1:length(local_packages));
- pseudo_installed_packages = {local_packages{idx1}, ...
+ pseudo_installed_packages = {local_packages{idx1}, ...
global_packages{:}, ...
descriptions{idx2}};
endif
try
for i = packages_to_uninstall
if (global_install)
- uninstall ({global_packages{i}.name}, false, verbose, local_list,
+ uninstall ({global_packages{i}.name}, false, verbose, local_list,
global_list, global_install);
else
- uninstall ({local_packages{i}.name}, false, verbose, local_list,
+ uninstall ({local_packages{i}.name}, false, verbose, local_list,
global_list, global_install);
endif
endfor
## requested that it is, then mark the package as autoloaded.
for i = length (descriptions):-1:1
if (autoload > 0 || (autoload == 0 && isautoload (descriptions(i))))
- fclose (fopen (fullfile (descriptions{i}.dir, "packinfo",
+ fclose (fopen (fullfile (descriptions{i}.dir, "packinfo",
".autoload"), "wt"));
descriptions{i}.autoload = 1;
endif
endif
endfunction
-function uninstall (pkgnames, handle_deps, verbose, local_list,
+function uninstall (pkgnames, handle_deps, verbose, local_list,
global_list, global_install)
## Get the list of installed packages.
- [local_packages, global_packages] = installed_packages(local_list,
+ [local_packages, global_packages] = installed_packages(local_list,
global_list);
if (global_install)
installed_pkgs_lst = {local_packages{:}, global_packages{:}};
endfunction
-function [pkg_desc_list, flag] = describe (pkgnames, verbose,
+function [pkg_desc_list, flag] = describe (pkgnames, verbose,
local_list, global_list)
## Get the list of installed packages.
installed_pkgs_lst = installed_packages(local_list, global_list);
num_packages = length (installed_pkgs_lst);
-
+
describe_all = false;
if (any (strcmp ("all", pkgnames)))
non_inst_str = sprintf (" %s ", pkgnames{non_inst});
error ("some packages are not installed: %s", non_inst_str);
else
- pkg_desc_list{non_inst} = struct ("name", {}, "description",
+ pkg_desc_list{non_inst} = struct ("name", {}, "description",
{}, "provides", {});
endif
endif
for i = 1:num_pkgnames
print_package_description (pkg_desc_list{i}.name,
pkg_desc_list{i}.version,
- pkg_desc_list{i}.provides,
+ pkg_desc_list{i}.provides,
pkg_desc_list{i}.description,
flag{i}, verbose);
endfor
if (! exist (index_file, "file"))
error ("could not find any INDEX file in directory %s, try 'pkg rebuild all' to generate missing INDEX files", packdir);
- endif
+ endif
+
-
[fid, msg] = fopen (index_file, "r");
if (fid == -1)
- error ("the INDEX file %s could not be read: %s",
+ error ("the INDEX file %s could not be read: %s",
index_file, msg);
endif
while (! feof (fid) || line != -1)
if (! any (! isspace (line)) || line(1) == "#" || any (line == "="))
- ## Comments, blank lines or comments about unimplemented
+ ## Comments, blank lines or comments about unimplemented
## functions: do nothing
## FIXME: probably comments and pointers to external functions
## could be treated better when printing to screen?
fclose (fid);
endfunction
-function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
+function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
pkg_desc, status, verbose)
printf ("---\nPackage name:\n\t%s\n", pkg_name);
printf ("Short description:\n\t%s\n", pkg_desc);
printf ("Status:\n\t%s\n", status);
if (verbose)
- printf ("---\nProvides:\n");
+ printf ("---\nProvides:\n");
for i = 1:length(pkg_idx_struct)
if (! isempty (pkg_idx_struct{i}.functions))
printf ("%s\n", pkg_idx_struct{i}.category);
unlink (fullfile (pack.name, "inst", "PKG_DEL"));
endif
if (exist (fullfile (archdir, "PKG_ADD"), "file"))
- movefile (fullfile (archdir, "PKG_ADD"),
+ movefile (fullfile (archdir, "PKG_ADD"),
fullfile (pack.name, "PKG_ADD"));
endif
if (exist (fullfile (archdir, "PKG_DEL"), "file"))
- movefile (fullfile (archdir, "PKG_DEL"),
- fullfile (pack.name, "PKG_DEL"));
+ movefile (fullfile (archdir, "PKG_DEL"),
+ fullfile (pack.name, "PKG_DEL"));
endif
else
if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
- movefile (fullfile (pack.name, "inst", "PKG_ADD"),
+ movefile (fullfile (pack.name, "inst", "PKG_ADD"),
fullfile (pack.name, "PKG_ADD"));
- endif
+ endif
if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
- movefile (fullfile (pack.name, "inst", "PKG_DEL"),
- fullfile (pack.name, "PKG_DEL"));
- endif
- endif
+ movefile (fullfile (pack.name, "inst", "PKG_DEL"),
+ fullfile (pack.name, "PKG_DEL"));
+ endif
+ endif
tfile = cstrcat (pack.name, "-", pack.version, ".tar");
tar (tfile, pack.name);
- try
+ try
gzip (tfile);
unlink (tfile);
catch
wd = pwd ();
try
cd (packdir);
- pre_install (desc);
+ pre_install (desc);
cd (wd);
catch
cd (wd);
[status, msg] = mkdir (inst_dir);
if (status != 1)
rm_rf (desc.dir);
- error ("the 'inst' directory did not exist and could not be created: %s",
+ error ("the 'inst' directory did not exist and could not be created: %s",
msg);
endif
endif
endfunction
-function configure_make (desc, packdir, verbose)
+function configure_make (desc, packdir, verbose)
## Perform ./configure, make, make install in "src".
if (exist (fullfile (packdir, "src"), "dir"))
src = fullfile (packdir, "src");
printf (" %s", archdependent{:});
printf (" %s\n", archdir);
endif
- if (! exist (archdir, "dir"))
+ if (! exist (archdir, "dir"))
mkdir (archdir);
endif
[status, output] = copyfile (archdependent, archdir);
function create_pkgadddel (desc, packdir, nm, global_install)
instpkg = fullfile (desc.dir, nm);
instfid = fopen (instpkg, "wt");
- ## If it is exists, most of the PKG_* file should go into the
- ## architecture dependent directory so that the autoload/mfilename
+ ## If it is exists, most of the PKG_* file should go into the
+ ## architecture dependent directory so that the autoload/mfilename
## commands work as expected. The only part that doesn't is the
## part in the main directory.
archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-",
if (! exist (desc.dir, "dir"))
[status, output] = mkdir (desc.dir);
if (status != 1)
- error ("couldn't create installation directory %s : %s",
+ error ("couldn't create installation directory %s : %s",
desc.dir, output);
endif
endif
[status, output] = mkdir (octm3);
if (status != 1)
rm_rf (desc.dir);
- error ("couldn't create installation directory %s : %s",
+ error ("couldn't create installation directory %s : %s",
octm3, output);
endif
endif
[status, output] = mkdir (octm2);
if (status != 1)
rm_rf (desc.dir);
- error ("couldn't create installation directory %s : %s",
+ error ("couldn't create installation directory %s : %s",
octm2, output);
endif
endif
[status, output] = mkdir (octm1);
if (status != 1)
rm_rf (desc.dir);
- error ("couldn't create installation directory %s : %s",
+ error ("couldn't create installation directory %s : %s",
octm1, output);
endif
endif
[status, output] = mkdir (octfiledir);
if (status != 1)
rm_rf (desc.dir);
- error ("couldn't create installation directory %s : %s",
+ error ("couldn't create installation directory %s : %s",
octfiledir, output);
endif
endif
- [status, output] = movefile (fullfile (desc.dir, getarch (), "*"),
+ [status, output] = movefile (fullfile (desc.dir, getarch (), "*"),
octfiledir);
rm_rf (fullfile (desc.dir, getarch ()));
version = fix_version (parts{2});
## If no version is specified for the dependency
- ## we say that the version should be greater than
+ ## we say that the version should be greater than
## or equal to "0.0.0".
else
package = tolower (strip (dep));
if (err)
error ("couldn't read directory %s: %s", tmpdir, msg);
endif
- files = [files; files2];
+ files = [files; files2];
endif
functions = {};
endfor
if (! isempty(dup))
installed_pkgs_lst(dup) = [];
- endif
+ endif
## Now check if the package is loaded.
tmppath = strrep (path(), "\\", "/");
h1 = "Package Name";
h2 = "Version";
h3 = "Installation directory";
- max_name_length = length (h1);
+ max_name_length = length (h1);
max_version_length = length (h2);
- names = cell (num_packages, 1);
+ names = cell (num_packages, 1);
for i = 1:num_packages
max_name_length = max (max_name_length,
length (installed_pkgs_lst{i}.name));
first_char = length (cur_dir) - max_dir_length + 4;
first_filesep = strfind (cur_dir(first_char:end), filesep());
if (! isempty (first_filesep))
- cur_dir = cstrcat ("...",
+ cur_dir = cstrcat ("...",
cur_dir((first_char + first_filesep(1) - 1):end));
else
cur_dir = cstrcat ("...", cur_dir(first_char:end));
if (length (files) == 1 && strcmp (files{1}, "all"))
idx = [1:length(installed_pkgs_lst)];
## Load auto.
- elseif (length (files) == 1 && strcmp (files{1}, "auto"))
+ elseif (length (files) == 1 && strcmp (files{1}, "auto"))
idx = [];
for i = 1:length (installed_pkgs_lst)
if (exist (fullfile (pdirs{i}, "packinfo", ".autoload"), "file"))
function archprefix = getarchprefix (desc, global_install)
if ((nargin == 2 && global_install) || (nargin < 2 && issuperuser ()))
- archprefix = fullfile (octave_config_info ("libexecdir"), "octave",
+ archprefix = fullfile (octave_config_info ("libexecdir"), "octave",
"packages", cstrcat(desc.name, "-", desc.version));
else
archprefix = desc.dir;
newdesc = {};
for i = 1 : length(desc)
deps = desc{i}.depends;
- if (isempty (deps) || (length (deps) == 1 &&
+ if (isempty (deps) || (length (deps) == 1 &&
strcmp(deps{1}.package, "octave")))
newdesc {end + 1} = desc{i};
else
endif
endfor
endfor
- if (! isempty (tmpdesc))
+ if (! isempty (tmpdesc))
newdesc = {newdesc{:}, save_order(tmpdesc){:}, desc{i}};
else
newdesc{end+1} = desc{i};
else
if (handle_deps)
deps = installed_pkgs_lst{i}.depends;
- if ((length (deps) > 1) || (length (deps) == 1 &&
+ if ((length (deps) > 1) || (length (deps) == 1 &&
! strcmp(deps{1}.package, "octave")))
tmplidx = [];
for k = 1 : length (deps)
endif
endfor
endfor
- idx = load_package_dirs (tmplidx, idx, handle_deps,
+ idx = load_package_dirs (tmplidx, idx, handle_deps,
installed_pkgs_lst);
endif
endif
projects / emacs.git / commitdiff