mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-08 15:35:02 +00:00
Spelling fixes.
This commit is contained in:
parent
b6e63cbebd
commit
4c36be58ca
admin/notes
configure.indoc/misc
etc
leim/quail
lib-src
lisp
ChangeLog.12allout-widgets.elallout.elansi-color.eldired-aux.el
calc
cedet
semantic
srecode
emacs-lisp
eshell
ezimage.elffap.elfollow.elgnus
hilit-chg.elhtmlfontify.elinternational
kmacro.ellanguage
loadhist.elmail
net
org
play
progmodes
ada-xref.elcc-awk.elcperl-mode.elebnf2ps.eletags.elgud.elidlw-help.eljs.elmeta-mode.elpython.elverilog-mode.el
ses.elsimple.elspeedbar.elterm
textmodes
url
vc
window.elwoman.elsrc
@ -17,7 +17,7 @@ Date: Tue, 31 Mar 2009 12:21:20 +0900
|
||||
files), not one-by-one. This is pretty easy using vc-dir now.
|
||||
|
||||
(2) Make the log message describe the entire changeset, perhaps
|
||||
including relevant changelog entiries (I often don't bother with
|
||||
including relevant changelog entries (I often don't bother with
|
||||
the latter if it's a trivial sort of change).
|
||||
|
||||
Many modern source-control systems vaguely distinguish the first
|
||||
|
@ -1348,7 +1348,7 @@ AH_TEMPLATE(POINTER_TYPE,
|
||||
[Define as `void' if your compiler accepts `void *'; otherwise
|
||||
define as `char'.])dnl
|
||||
|
||||
dnl Check for endianess
|
||||
dnl Check for endianness.
|
||||
AC_C_BIGENDIAN
|
||||
|
||||
AC_CACHE_CHECK([for __attribute__ ((__aligned__ (expr)))],
|
||||
|
@ -184,7 +184,7 @@ convention, where file names are a simple modification of the Ada
|
||||
names, and the extension for specs and bodies are
|
||||
@samp{.ads} and @samp{.adb}, respectively.
|
||||
|
||||
Ada mode uses the file extentions to allow moving from a package body
|
||||
Ada mode uses the file extensions to allow moving from a package body
|
||||
to the corresponding spec and back.
|
||||
|
||||
Ada mode supports a list of alternative file extensions for specs and bodies.
|
||||
|
@ -26756,7 +26756,7 @@ Sudish Joseph---innumerable bug fixes.
|
||||
Ilja Weis---@file{gnus-topic.el}.
|
||||
|
||||
@item
|
||||
Steven L. Baur---lots and lots and lots of bugs detections and fixes.
|
||||
Steven L. Baur---lots and lots and lots of bug detection and fixes.
|
||||
|
||||
@item
|
||||
Vladimir Alexiev---the refcard and reference booklets.
|
||||
|
@ -6216,7 +6216,7 @@ not started at exactly the right moment.
|
||||
@kindex ;
|
||||
|
||||
Calling @code{org-timer-set-timer} from an Org-mode buffer runs a countdown
|
||||
timer. Use @kbd{;} from agenda buffers, @key{C-c C-x ;} everwhere else.
|
||||
timer. Use @kbd{;} from agenda buffers, @key{C-c C-x ;} everywhere else.
|
||||
|
||||
@code{org-timer-set-timer} prompts the user for a duration and displays a
|
||||
countdown timer in the modeline. @code{org-timer-default-timer} sets the
|
||||
|
@ -57,18 +57,18 @@ and various tools for secure communication. PGG also provides a simple
|
||||
user interface to encrypt, decrypt, sign, and verify MIME messages.
|
||||
|
||||
@ifnottex
|
||||
@insertcopying
|
||||
@insertcopying
|
||||
@end ifnottex
|
||||
|
||||
@menu
|
||||
* Overview:: What PGG is.
|
||||
* Prerequisites:: Complicated stuff you may have to do.
|
||||
* How to use:: Getting started quickly.
|
||||
* Architecture::
|
||||
* Parsing OpenPGP packets::
|
||||
* Architecture::
|
||||
* Parsing OpenPGP packets::
|
||||
* GNU Free Documentation License:: The license for this documentation.
|
||||
* Function Index::
|
||||
* Variable Index::
|
||||
* Function Index::
|
||||
* Variable Index::
|
||||
@end menu
|
||||
|
||||
@node Overview
|
||||
@ -137,10 +137,10 @@ list autoload setting for desired functions as follows.
|
||||
@end lisp
|
||||
|
||||
@menu
|
||||
* User Commands::
|
||||
* Selecting an implementation::
|
||||
* Caching passphrase::
|
||||
* Default user identity::
|
||||
* User Commands::
|
||||
* Selecting an implementation::
|
||||
* Caching passphrase::
|
||||
* Default user identity::
|
||||
@end menu
|
||||
|
||||
@node User Commands
|
||||
@ -358,13 +358,13 @@ singleton object wrapped with the luna object system.
|
||||
|
||||
Since PGG was designed for accessing and developing PGP functionality,
|
||||
the architecture had to be designed not just for interoperability but
|
||||
also for extensiblity. In this chapter we explore the architecture
|
||||
also for extensibility. In this chapter we explore the architecture
|
||||
while finding out how to write the PGG back end.
|
||||
|
||||
@menu
|
||||
* Initializing::
|
||||
* Back end methods::
|
||||
* Getting output::
|
||||
* Initializing::
|
||||
* Back end methods::
|
||||
* Getting output::
|
||||
@end menu
|
||||
|
||||
@node Initializing
|
||||
|
@ -606,7 +606,7 @@ Emacs Lisp. It is an LALR parser suitable for complex languages.
|
||||
@c LocalWords: concat concocting const constantness ctxt Decl defcustom
|
||||
@c LocalWords: deffn deffnx defun defvar destructor's dfn diff dir
|
||||
@c LocalWords: doc docstring EDE EIEIO elisp emacsman emph enum
|
||||
@c LocalWords: eq Exp EXPANDFULL expresssion fn foo func funcall
|
||||
@c LocalWords: eq Exp EXPANDFULL expression fn foo func funcall
|
||||
@c LocalWords: ia ids iff ifinfo imenu imenus init int isearch itemx java kbd
|
||||
@c LocalWords: keymap keywordtable lang languagemode lexer lexing Ludlam
|
||||
@c LocalWords: menubar metaparent metaparents min minibuffer Misc mode's
|
||||
|
@ -1612,7 +1612,7 @@ Changes in Emacs 13
|
||||
The string "../lisp" now adds to the front of the load-path
|
||||
used for searching for Lisp files during Emacs initialization.
|
||||
It used to replace the path specified in paths.h entirely.
|
||||
Now the directory ../lisp is searched first and the directoris
|
||||
Now the directory ../lisp is searched first and the directories
|
||||
specified in paths.h are searched afterward.
|
||||
|
||||
|
||||
@ -1670,7 +1670,7 @@ Changes in Emacs 1.12
|
||||
the string, it is used unchanged.
|
||||
|
||||
One way this feature can be used is to fix bad keyboard
|
||||
designes. For example, on some terminals, Delete is
|
||||
designs. For example, on some terminals, Delete is
|
||||
Shift-Underscore. Since Delete is a more useful character
|
||||
than Underscore, it is an improvement to make the unshifted
|
||||
character Delete and the shifted one Underscore. This can
|
||||
@ -2446,7 +2446,7 @@ Changes in Emacs 1.1
|
||||
containing *'s, etc, all processed by the shell). Also, you
|
||||
can dired more than one directory; dired names the buffer
|
||||
according to the filespec or directory name. Reinvoking
|
||||
dired on a directory already direded just switches back to
|
||||
dired on a directory already diredded just switches back to
|
||||
the same directory used last time; do M-x revert if you want
|
||||
to read in the current contents of the directory.
|
||||
|
||||
|
@ -337,7 +337,7 @@
|
||||
("(" . "$(7!l(B")
|
||||
("0" . "$(7!P(B")
|
||||
(")" . "$(7!m(B")
|
||||
;;; ("-" ) ; enphatic, not yet supported
|
||||
;;; ("-" ) ; emphatic, not yet supported
|
||||
;;; ("_" ) ; id.
|
||||
;;; ("=" ) ; special sign, not yet supported
|
||||
("+" . "$(7!A(B")
|
||||
|
@ -346,7 +346,7 @@ read_scores (const char *filename, struct score_entry **scores, int *count)
|
||||
return -1;
|
||||
while ((readval = read_score (f, &ret[scorecount])) == 0)
|
||||
{
|
||||
/* We encoutered an error */
|
||||
/* We encountered an error. */
|
||||
if (readval < 0)
|
||||
return -1;
|
||||
scorecount++;
|
||||
|
@ -16735,7 +16735,7 @@
|
||||
* progmodes/cc-cmds.el (c-beginning-of-statement (and
|
||||
subfunctions)): Adapt c-\(back\|forward\)-over-illiterals such
|
||||
that movement over macros and code are rigorously separated from
|
||||
eachother. Correct a few incidental bugs.
|
||||
each other. Correct a few incidental bugs.
|
||||
|
||||
* progmodes/cc-cmds.el: Restructure c-beginning-of-statement:
|
||||
Improve its doc-string. Improve the handling of certain specific cases.
|
||||
|
@ -49,7 +49,7 @@
|
||||
;; systematically couple overlays, graphics, and other features with
|
||||
;; allout-governed text.
|
||||
|
||||
;;;_: Code (structured with comments that delinieate an allout outline)
|
||||
;;;_: Code (structured with comments that delineate an allout outline)
|
||||
|
||||
;;;_ : General Environment
|
||||
(require 'allout)
|
||||
|
@ -1544,7 +1544,7 @@ substitution is used against the regexp matches, a la `replace-match'.")
|
||||
"Variable for regexps matching plaintext to remove before encryption.
|
||||
|
||||
This is used to detect strings in encryption results that would
|
||||
register as allout mode structural elements, for exmple, as a
|
||||
register as allout mode structural elements, for example, as a
|
||||
topic prefix.
|
||||
|
||||
Entries must be symbols that are bound to the desired regexp values.
|
||||
@ -3543,7 +3543,7 @@ PRIOR-BULLET.)
|
||||
Fifth arg, NUMBER-CONTROL, matters only if `allout-numbered-bullet'
|
||||
is non-nil *and* no specific INSTEAD was specified. Then
|
||||
NUMBER-CONTROL non-nil forces prefix to either numbered or
|
||||
denumbered format, depending on the value of the sixth arg, INDEX.
|
||||
unnumbered format, depending on the value of the sixth arg, INDEX.
|
||||
|
||||
\(Note that NUMBER-CONTROL does *not* apply to level 1 topics. Sorry...)
|
||||
|
||||
|
@ -68,7 +68,7 @@
|
||||
;;
|
||||
;; Markus Kuhn <Markus.Kuhn@cl.cam.ac.uk> for pointing me to ECMA-48.
|
||||
;;
|
||||
;; Stefan Monnier <foo@acm.com> explaing obscure font-lock stuff and
|
||||
;; Stefan Monnier <foo@acm.com> for explaining obscure font-lock stuff and for
|
||||
;; code suggestions.
|
||||
|
||||
|
||||
|
@ -125,7 +125,7 @@
|
||||
"The mode settings for Calc buffer when put in embedded mode.")
|
||||
|
||||
(defun calc-embedded-save-original-modes ()
|
||||
"Save the current Calc modes when entereding embedded mode."
|
||||
"Save the current Calc modes when entering embedded mode."
|
||||
(let ((calcbuf (save-excursion
|
||||
(calc-create-buffer)
|
||||
(current-buffer)))
|
||||
@ -144,7 +144,7 @@
|
||||
(let ((var (cdr (car v))))
|
||||
(unless (memq var '(the-language the-display-just))
|
||||
(setq modes
|
||||
(cons (cons var (symbol-value var))
|
||||
(cons (cons var (symbol-value var))
|
||||
modes))))
|
||||
(setq v (cdr v))))
|
||||
(setq calc-embedded-original-modes (cons lang modes)))
|
||||
@ -182,7 +182,7 @@
|
||||
(calc-set-mode-line))))
|
||||
(setq calc-embedded-original-modes nil)))
|
||||
|
||||
;; The variables calc-embed-outer-top, calc-embed-outer-bot,
|
||||
;; The variables calc-embed-outer-top, calc-embed-outer-bot,
|
||||
;; calc-embed-top and calc-embed-bot are
|
||||
;; local to calc-do-embedded, calc-embedded-mark-formula,
|
||||
;; calc-embedded-duplicate, calc-embedded-new-formula and
|
||||
@ -195,7 +195,7 @@
|
||||
|
||||
;; The variable calc-embed-arg is local to calc-do-embedded,
|
||||
;; calc-embedded-update-formula, calc-embedded-edit and
|
||||
;; calc-do-embedded-activate, but is used by
|
||||
;; calc-do-embedded-activate, but is used by
|
||||
;; calc-embedded-make-info, which is called by the above
|
||||
;; functions.
|
||||
(defvar calc-embed-arg)
|
||||
@ -208,14 +208,14 @@
|
||||
|
||||
;; The following is to take care of any minor modes which override
|
||||
;; a Calc command.
|
||||
(defvar calc-override-minor-modes-map
|
||||
(defvar calc-override-minor-modes-map
|
||||
(make-sparse-keymap)
|
||||
"A list of keybindings that might be overwritten by minor modes.")
|
||||
|
||||
;; Add any keys that might be overwritten here.
|
||||
(define-key calc-override-minor-modes-map "`" 'calc-edit)
|
||||
|
||||
(defvar calc-override-minor-modes
|
||||
(defvar calc-override-minor-modes
|
||||
(cons t calc-override-minor-modes-map))
|
||||
|
||||
(defun calc-do-embedded (calc-embed-arg end obeg oend)
|
||||
@ -279,7 +279,7 @@
|
||||
(calc-embedded-save-original-modes)
|
||||
(or calc-embedded-globals
|
||||
(calc-find-globals))
|
||||
(setq info
|
||||
(setq info
|
||||
(calc-embedded-make-info (point) nil t calc-embed-arg end obeg oend))
|
||||
(if (eq (car-safe (aref info 8)) 'error)
|
||||
(progn
|
||||
@ -564,7 +564,7 @@ The command \\[yank] can retrieve it from there."
|
||||
(goto-char calc-embed-outer-bot)
|
||||
(insert "\n")
|
||||
(setq new-top (point))
|
||||
(insert-buffer-substring (current-buffer)
|
||||
(insert-buffer-substring (current-buffer)
|
||||
calc-embed-outer-top calc-embed-outer-bot)
|
||||
(goto-char (+ new-top (- calc-embed-top calc-embed-outer-top)))
|
||||
(let ((calc-embedded-quiet (if already t 'x)))
|
||||
@ -659,7 +659,7 @@ The command \\[yank] can retrieve it from there."
|
||||
(equal (symbol-value (car (car v))) value))
|
||||
(progn
|
||||
(setq changed t)
|
||||
(if temp (setq calc-embed-prev-modes
|
||||
(if temp (setq calc-embed-prev-modes
|
||||
(cons (cons (car (car v))
|
||||
(symbol-value (car (car v))))
|
||||
calc-embed-prev-modes)))
|
||||
@ -809,12 +809,12 @@ The command \\[yank] can retrieve it from there."
|
||||
(list modes emodes pmodes)))
|
||||
|
||||
;; The variable calc-embed-vars-used is local to calc-embedded-make-info,
|
||||
;; calc-embedded-evaluate-expr and calc-embedded-update, but is
|
||||
;; calc-embedded-evaluate-expr and calc-embedded-update, but is
|
||||
;; used by calc-embedded-find-vars, which is called by the above functions.
|
||||
(defvar calc-embed-vars-used)
|
||||
|
||||
(defun calc-embedded-make-info (point cbuf fresh &optional
|
||||
calc-embed-top calc-embed-bot
|
||||
calc-embed-top calc-embed-bot
|
||||
calc-embed-outer-top calc-embed-outer-bot)
|
||||
(let* ((bufentry (assq (current-buffer) calc-embedded-active))
|
||||
(found bufentry)
|
||||
@ -831,7 +831,7 @@ The command \\[yank] can retrieve it from there."
|
||||
(newform (assoc major-mode calc-embedded-open-close-formula-alist))
|
||||
(newword (assoc major-mode calc-embedded-word-regexp-alist))
|
||||
(newplain (assoc major-mode calc-embedded-open-close-plain-alist))
|
||||
(newnewform
|
||||
(newnewform
|
||||
(assoc major-mode calc-embedded-open-close-new-formula-alist))
|
||||
(newmode (assoc major-mode calc-embedded-open-close-mode-alist)))
|
||||
(when newann
|
||||
@ -874,9 +874,9 @@ The command \\[yank] can retrieve it from there."
|
||||
(aset info 1 (or cbuf (save-excursion
|
||||
(calc-create-buffer)
|
||||
(current-buffer)))))
|
||||
(if (and
|
||||
(if (and
|
||||
(or (integerp calc-embed-top) (equal calc-embed-top '(4)))
|
||||
(not calc-embed-bot))
|
||||
(not calc-embed-bot))
|
||||
; started with a user-supplied argument
|
||||
(progn
|
||||
(if (equal calc-embed-top '(4))
|
||||
@ -1157,7 +1157,7 @@ The command \\[yank] can retrieve it from there."
|
||||
(if need-display
|
||||
(calc-embedded-set-justify (cdr (car calc-embed-prev-modes)))))
|
||||
(t
|
||||
(set (car (car calc-embed-prev-modes))
|
||||
(set (car (car calc-embed-prev-modes))
|
||||
(cdr (car calc-embed-prev-modes)))))
|
||||
(setq calc-embed-prev-modes (cdr calc-embed-prev-modes))))))
|
||||
|
||||
|
@ -432,7 +432,7 @@
|
||||
(define-key calc-mode-map "ls" 'calc-spn)
|
||||
(define-key calc-mode-map "lm" 'calc-midi)
|
||||
(define-key calc-mode-map "lf" 'calc-freq)
|
||||
|
||||
|
||||
(define-key calc-mode-map "l?" 'calc-l-prefix-help)
|
||||
|
||||
(define-key calc-mode-map "m" nil)
|
||||
@ -2867,7 +2867,7 @@ If X is not an error form, return 1."
|
||||
(memq (nth 2 expr) '(var-inf var-uinf var-nan)))))
|
||||
|
||||
;; The variable math-integral-cache is originally declared in calcalg2.el,
|
||||
;; but is set by math-defintegral and math-definitegral2.
|
||||
;; but is set by math-defintegral and math-defintegral-2.
|
||||
(defvar math-integral-cache)
|
||||
|
||||
(defmacro math-defintegral (funcs &rest code)
|
||||
|
@ -823,7 +823,7 @@ In Emacs Lisp this is easily defined by parenthesis bounding."
|
||||
(&optional point)
|
||||
"Return a list of tag classes allowed at POINT.
|
||||
Emacs Lisp knows much more about the class of the tag needed to perform
|
||||
completion than some languages. We distincly know if we are to be a
|
||||
completion than some languages. We distinctly know if we are to be a
|
||||
function name, variable name, or any type of symbol. We could identify
|
||||
fields and such to, but that is for some other day."
|
||||
(save-excursion
|
||||
|
@ -891,7 +891,7 @@ making the action of homing in on a token faster.")
|
||||
This completion is calculated and saved for future use.")
|
||||
(last-whitespace-completion :type (or null string)
|
||||
:documentation "The last whitespace completion.
|
||||
For partial completion, SPC will disabiguate over whitespace type
|
||||
For partial completion, SPC will disambiguate over whitespace type
|
||||
characters. This is the last calculated version.")
|
||||
(current-exact-match :type list
|
||||
:protection :protected
|
||||
@ -1353,7 +1353,7 @@ to click on the items to aid in completion.")
|
||||
(defmethod semantic-displayor-show-request ((obj semantic-displayor-traditional))
|
||||
"A request to show the current tags table."
|
||||
|
||||
;; NOTE TO SELF. Find the character to type next, and emphesize it.
|
||||
;; NOTE TO SELF. Find the character to type next, and emphasize it.
|
||||
|
||||
(with-output-to-temp-buffer "*Completions*"
|
||||
(display-completion-list
|
||||
@ -1377,7 +1377,7 @@ given tag, by highlighting its location.")
|
||||
)
|
||||
"Abstract displayor supporting `focus'.
|
||||
A displayor which has the ability to focus in on one tag.
|
||||
Focusing is a way of differentiationg between multiple tags
|
||||
Focusing is a way of differentiating among multiple tags
|
||||
which have the same name."
|
||||
:abstract t)
|
||||
|
||||
|
@ -289,7 +289,7 @@ Argument OBJ is the object to write."
|
||||
(when (and (boundp semantic-show-unmatched-syntax-mode)
|
||||
semantic-show-unmatched-syntax-mode)
|
||||
;; Only do this if the user runs unmatched syntax
|
||||
;; mode display enties.
|
||||
;; mode display entries.
|
||||
(oset obj unmatched-syntax
|
||||
(semantic-show-unmatched-lex-tokens-fetch))
|
||||
)
|
||||
|
@ -368,7 +368,7 @@ a master list."
|
||||
(semanticdb-typecache-merge-streams
|
||||
incstream
|
||||
;; Getting the cache from this table will also cause this
|
||||
;; file to update it's cache from it's decendants.
|
||||
;; file to update its cache from its decendents.
|
||||
;;
|
||||
;; In theory, caches are only built for most includes
|
||||
;; only once (in the loop before this one), so this ends
|
||||
|
@ -606,7 +606,7 @@ The file associated with OBJ does not need to be in a buffer."
|
||||
;; The lexical table should be good too.
|
||||
(when (featurep 'semantic/lex-spp)
|
||||
(oset table lexical-table (semantic-lex-spp-save-table)))
|
||||
;; this implies dirtyness
|
||||
;; this implies dirtiness
|
||||
(semanticdb-set-dirty table)
|
||||
|
||||
;; Synchronize the index
|
||||
|
@ -537,7 +537,7 @@ This function is for internal use by `semantic-edits-incremental-parser'."
|
||||
;; We want to take some set of changes, and group them
|
||||
;; together into a small change group. One change forces
|
||||
;; a reparse of a larger region (the size of some set of
|
||||
;; tags it encompases.) It may contain several tags.
|
||||
;; tags it encompasses.) It may contain several tags.
|
||||
;; That region may have other changes in it (several small
|
||||
;; changes in one function, for example.)
|
||||
;; Optimize for the simple cases here, but try to handle
|
||||
|
@ -603,7 +603,7 @@ This associates a symbol, such as 'public with the st ring \"+\".")
|
||||
"Convert PROTECTION-SYMBOL to a string for UML.
|
||||
By default, uses `semantic-format-tag-protection-symbol-to-string-assoc-list'
|
||||
to convert.
|
||||
By defaul character returns are:
|
||||
By default character returns are:
|
||||
public -- +
|
||||
private -- -
|
||||
protected -- #.
|
||||
|
@ -639,7 +639,7 @@ and what valid VAL values are."
|
||||
|
||||
;;; Macro Merging
|
||||
;;
|
||||
;; Used when token streams from different macros include eachother.
|
||||
;; Used when token streams from different macros include each other.
|
||||
;; Merged macro streams perform in place replacements.
|
||||
|
||||
(defun semantic-lex-spp-merge-streams (raw-stream)
|
||||
|
@ -399,7 +399,7 @@ Returns the tag list, or t for an error."
|
||||
(if (listp out)
|
||||
(condition-case nil
|
||||
(progn
|
||||
;; This brings externally defind methods into
|
||||
;; This brings externally defined methods into
|
||||
;; their classes, and creates meta classes for
|
||||
;; orphans.
|
||||
(setq out (semantic-adopt-external-members out))
|
||||
|
@ -597,7 +597,7 @@ Note: TYPE not yet implemented."
|
||||
;; ;; If we have a string, do the replacement.
|
||||
;; (delete-region (semantic-tag-start tag)
|
||||
;; (semantic-tag-end tag))
|
||||
;; ;; Use useful functions from the docaument library.
|
||||
;; ;; Use useful functions from the document library.
|
||||
;; (srecode-texi-insert-tag-as-doc doctag)
|
||||
;; ;(semantic-insert-foreign-tag doctag)
|
||||
;; ))
|
||||
|
@ -62,7 +62,7 @@
|
||||
(dictionary :initarg :dictionary
|
||||
:type (or null srecode-dictionary)
|
||||
:documentation
|
||||
"List of section dictinaries.
|
||||
"List of section dictionaries.
|
||||
The compiled template can contain lists of section dictionaries,
|
||||
or values that are expected to be passed down into different
|
||||
section macros. The template section dictionaries are merged in with
|
||||
|
@ -202,7 +202,7 @@ associated with a buffer or parent."
|
||||
:size 20)
|
||||
:origin origin)))
|
||||
;; Only set up the default variables if we are being built
|
||||
;; directroy for a particular buffer.
|
||||
;; directly for a particular buffer.
|
||||
(when initfrombuff
|
||||
;; Variables from the table we are inserting from.
|
||||
;; @todo - get a better tree of tables.
|
||||
|
@ -720,7 +720,7 @@ allocating something based on its type."
|
||||
"Convert tag or string PARAM into a name,comment pair.
|
||||
Optional COMMENTLIST is list of previously existing comments to
|
||||
use instead in alist form. If the name doesn't appear in the list of
|
||||
standard names, then englishify it instead."
|
||||
standard names, then english it instead."
|
||||
(let ((cmt "")
|
||||
(aso srecode-document-autocomment-param-alist)
|
||||
(fnd nil)
|
||||
|
@ -936,7 +936,7 @@ with the dictionaries found in the dictionary."
|
||||
(if (srecode-dictionary-lookup-name dictionary (oref sti :object-name))
|
||||
;; If we have a value, then call the next method
|
||||
(srecode-insert-method-helper sti dictionary 'includedtemplate)
|
||||
;; If we don't have a special dictitonary, then just insert with the
|
||||
;; If we don't have a special dictionary, then just insert with the
|
||||
;; current dictionary.
|
||||
(srecode-insert-subtemplate sti dictionary 'includedtemplate))
|
||||
)
|
||||
|
@ -347,7 +347,7 @@ This calls touch."
|
||||
;; Do the operation and record failures.
|
||||
failures (nconc (apply function (append args pending))
|
||||
failures)
|
||||
;; Transfer the elemens of PENDING onto PAST
|
||||
;; Transfer the elements of PENDING onto PAST
|
||||
;; and clear it out. Now PAST contains the first N files
|
||||
;; specified (for some N), and FILES contains the rest.
|
||||
past (nconc past pending)
|
||||
@ -1490,7 +1490,7 @@ ARG as in `dired-get-marked-files'.
|
||||
Optional arg MARKER-CHAR as in `dired-create-files'.
|
||||
Optional arg OP1 is an alternate form for OPERATION if there is
|
||||
only one file.
|
||||
Optional arg HOW-TO determiness how to treat the target.
|
||||
Optional arg HOW-TO determines how to treat the target.
|
||||
If HOW-TO is nil, use `file-directory-p' to determine if the
|
||||
target is a directory. If so, the marked file(s) are created
|
||||
inside that directory. Otherwise, the target is a plain file;
|
||||
|
@ -664,8 +664,8 @@
|
||||
|
||||
;; @@@ Enabling automatic advice activation:
|
||||
;; =========================================
|
||||
;; Automatic advice activation is enabled by default. It can be disabled by
|
||||
;; doint `M-x ad-stop-advice' and enabled again with `M-x ad-start-advice'.
|
||||
;; Automatic advice activation is enabled by default. It can be disabled with
|
||||
;; `M-x ad-stop-advice' and enabled again with `M-x ad-start-advice'.
|
||||
|
||||
;; @@ Caching of advised definitions:
|
||||
;; ==================================
|
||||
|
@ -743,7 +743,7 @@ BYTES and PC are updated after evaluating all the arguments."
|
||||
|
||||
(defmacro byte-compile-push-bytecode-const2 (opcode const2 bytes pc)
|
||||
"Push OPCODE and the two-byte constant CONST2 onto BYTES, and add 3 to PC.
|
||||
CONST2 may be evaulated multiple times."
|
||||
CONST2 may be evaluated multiple times."
|
||||
`(byte-compile-push-bytecodes ,opcode (logand ,const2 255) (lsh ,const2 -8)
|
||||
,bytes ,pc))
|
||||
|
||||
|
@ -1579,8 +1579,9 @@ KEYWORDS are additional arguments, which can use the following keywords:
|
||||
(while (setq closer (pop closers))
|
||||
(unless (and closers
|
||||
;; FIXME: this eliminates prefixes of other
|
||||
;; closers, but we should probably elimnate
|
||||
;; prefixes of other keywords as well.
|
||||
;; closers, but we should probably
|
||||
;; eliminate prefixes of other keywords
|
||||
;; as well.
|
||||
(string-prefix-p closer (car closers)))
|
||||
(push (aref closer (1- (length closer))) triggers)))
|
||||
(delete-dups triggers)))))))
|
||||
|
@ -607,7 +607,7 @@ will return the parsed command."
|
||||
(setq command (eshell-parse-command (cons beg end)
|
||||
args t)))))
|
||||
(ignore
|
||||
(message "Expecting completion of delimeter %c ..."
|
||||
(message "Expecting completion of delimiter %c ..."
|
||||
(if (listp delim)
|
||||
(car delim)
|
||||
delim)))
|
||||
|
@ -59,7 +59,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image."
|
||||
(defimage ,variable ,imagespec ,docstring)
|
||||
(put (quote ,variable) 'ezimage t)))
|
||||
|
||||
;; This hack is for the ezimage install which has an icons direcory for
|
||||
;; This hack is for the ezimage install which has an icons directory for
|
||||
;; the default icons to be used.
|
||||
;; (add-to-list 'load-path
|
||||
;; (concat (file-name-directory
|
||||
|
@ -523,7 +523,7 @@ The optional NOMODIFY argument suppresses the extra search."
|
||||
;; (ffap-file-remote-p "/ffap.el:80")
|
||||
(or (and ffap-ftp-regexp
|
||||
(string-match ffap-ftp-regexp filename)
|
||||
;; Convert "/host.com://dir" to "/host:/dir", to handle a dieing
|
||||
;; Convert "/host.com://dir" to "/host:/dir", to handle a dying
|
||||
;; practice of advertising ftp files as "host.dom://filename".
|
||||
(if (string-match "//" filename)
|
||||
;; (replace-match "/" nil nil filename)
|
||||
|
@ -560,7 +560,7 @@ Keys specific to Follow mode:
|
||||
|
||||
;; `scroll-up' and `-down', but for windows in Follow mode.
|
||||
;;
|
||||
;; Almost like the real thing, excpet when the cursor ends up outside
|
||||
;; Almost like the real thing, except when the cursor ends up outside
|
||||
;; the top or bottom... In our case however, we end up outside the
|
||||
;; window and hence we are recenterd. Should we let `recenter' handle
|
||||
;; the point position we would never leave the selected window. To do
|
||||
|
@ -553,7 +553,7 @@ The following commands are available:
|
||||
(gnus-server-list-servers))
|
||||
|
||||
(defun gnus-server-copy-server (from to)
|
||||
"Copy a server definiton to a new name."
|
||||
"Copy a server definition to a new name."
|
||||
(interactive
|
||||
(list
|
||||
(or (gnus-server-server-name)
|
||||
|
@ -3582,7 +3582,7 @@ that that variable is buffer-local to the summary buffers."
|
||||
(equal (nth 1 m1) (nth 1 m2)))))))
|
||||
|
||||
(defsubst gnus-sloppily-equal-method-parameters (m1 m2)
|
||||
;; Check parameters for sloppy equalness.
|
||||
;; Check parameters for sloppy equality.
|
||||
(let ((p1 (copy-sequence (cddr m1)))
|
||||
(p2 (copy-sequence (cddr m2)))
|
||||
e1 e2)
|
||||
|
@ -123,7 +123,7 @@ If this list contains the element \"font\".")
|
||||
This is an alist where each dotted pair consists of a tag, and then
|
||||
the name of a function to be called when this tag is found. The
|
||||
function is called with the arguments p1, p2, p3 and p4. These are
|
||||
demontrated below:
|
||||
demonstrated below:
|
||||
|
||||
\"<b> This is bold text </b>\"
|
||||
^ ^ ^ ^
|
||||
|
@ -2503,7 +2503,7 @@ Return the number of headers removed."
|
||||
(point-max)))
|
||||
(goto-char (point-min)))
|
||||
|
||||
;; FIXME: clarify diffference: message-narrow-to-head,
|
||||
;; FIXME: clarify difference: message-narrow-to-head,
|
||||
;; message-narrow-to-headers-or-head, message-narrow-to-headers
|
||||
(defun message-narrow-to-head ()
|
||||
"Narrow the buffer to the head of the message.
|
||||
|
@ -72,7 +72,7 @@
|
||||
;; * nndiary-get-new-mail, nndiary-mail-source and nndiary-split-methods:
|
||||
;; NNDiary has some experimental parts, in the sense Gnus normally uses only
|
||||
;; one mail back ends for mail retreival and splitting. This back end is
|
||||
;; also an attempt to make it behave differently. For Gnus developpers: as
|
||||
;; also an attempt to make it behave differently. For Gnus developers: as
|
||||
;; you can see if you snarf into the code, that was not a very difficult
|
||||
;; thing to do. Something should be done about the respooling breakage
|
||||
;; though.
|
||||
|
@ -1634,7 +1634,7 @@ search in raw mode."
|
||||
(nnheader-message 3 "Couldn't find original article"))))
|
||||
|
||||
(defun nnmairix-determine-original-group-from-registry (mid)
|
||||
"Try to determinale original group for message-id MID from the registry."
|
||||
"Try to determine original group for message-id MID from the registry."
|
||||
(when (gnus-bound-and-true-p 'gnus-registry-enabled)
|
||||
(unless (string-match "^<" mid)
|
||||
(set mid (concat "<" mid)))
|
||||
|
@ -480,7 +480,7 @@ This is the opposite of `hilit-chg-hide-changes'."
|
||||
(defun hilit-chg-make-ov (prop start end)
|
||||
(or prop
|
||||
(error "hilit-chg-make-ov: prop is nil"))
|
||||
;; For the region create overlays with a distincive face
|
||||
;; For the region create overlays with a distinctive face
|
||||
;; and the text property 'hilit-chg.
|
||||
(let ((ov (make-overlay start end))
|
||||
(face (if (eq prop 'hilit-chg-delete)
|
||||
|
@ -586,7 +586,7 @@ If a window system is unavailable, calls `hfy-fallback-colour-values'."
|
||||
(defvar hfy-cperl-mode-kludged-p nil)
|
||||
|
||||
(defun hfy-kludge-cperl-mode ()
|
||||
"CPerl mode does its damndest not to do some of its fontification when not
|
||||
"CPerl mode does its damnedest not to do some of its fontification when not
|
||||
in a windowing system - try to trick it..."
|
||||
(if (not hfy-cperl-mode-kludged-p)
|
||||
(progn (if (not window-system)
|
||||
@ -1773,7 +1773,7 @@ Strips any leading \"./\" from each filename."
|
||||
(mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F))
|
||||
(split-string (shell-command-to-string hfy-find-cmd))) )
|
||||
|
||||
;; strip the filename off, return a directiry name
|
||||
;; strip the filename off, return a directory name
|
||||
;; not a particularly thorough implementaion, but it will be
|
||||
;; fed pretty carefully, so it should be Ok:
|
||||
(defun hfy-dirname (file)
|
||||
|
@ -700,7 +700,7 @@ Internal use only. Should be called at startup time."
|
||||
;; HPHEBREW8 8-bit character set
|
||||
;; "HP-Japanese15" [36]
|
||||
;; HPJAPAN15 15-bit character set,
|
||||
;; modified from industry defacto
|
||||
;; modified from industry de facto
|
||||
;; standard Shift-JIS
|
||||
;; "HP-Kana8" [36]
|
||||
;; HPKANA8 8-bit character set
|
||||
|
@ -305,7 +305,7 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy
|
||||
(cond ((looking-at "PROMPT:[ \t]*")
|
||||
(goto-char (match-end 0))
|
||||
(setq tit-prompt (tit-read-key-value))
|
||||
;; Some TIT dictionaies that are encoded by
|
||||
;; Some TIT dictionaries that are encoded by
|
||||
;; euc-china contains invalid character at the tail.
|
||||
(let* ((last (aref tit-prompt (1- (length tit-prompt))))
|
||||
(split (split-char last)))
|
||||
|
@ -1020,7 +1020,7 @@ following additional answers: `insert', `insert-1', `replace', `replace-1',
|
||||
(setq executing-kbd-macro-index (- executing-kbd-macro-index (length unread-command-events))
|
||||
next-index executing-kbd-macro-index)))))
|
||||
|
||||
;; Query the user; stop macro exection temporarily
|
||||
;; Query the user; stop macro execution temporarily.
|
||||
(let ((macro executing-kbd-macro)
|
||||
(executing-kbd-macro nil)
|
||||
(defining-kbd-macro nil))
|
||||
|
@ -61,7 +61,7 @@
|
||||
(features ethio-util)
|
||||
(sample-text . "ፊደል")
|
||||
(documentation .
|
||||
"This language envrironment provides these function key bindings:
|
||||
"This language environment provides these function key bindings:
|
||||
[f3] ethio-fidel-to-sera-buffer
|
||||
[S-f3] ethio-fidel-to-sera-region
|
||||
[C-f3] ethio-fidel-to-sera-marker
|
||||
|
@ -144,7 +144,7 @@ These are symbols with hooklike values whose names don't end in
|
||||
pertinent symbols.")
|
||||
|
||||
(defvar unload-function-defs-list nil
|
||||
"List of defintions in the Lisp library being unloaded.
|
||||
"List of definitions in the Lisp library being unloaded.
|
||||
|
||||
This is meant to be used by `FEATURE-unload-function'; see the
|
||||
documentation of `unload-feature' for details.")
|
||||
|
@ -83,7 +83,7 @@
|
||||
;; work properly. If you don't know what custom is all about and want
|
||||
;; to edit your user option elisp variables the old fashioned way,
|
||||
;; just imagine that all the "defcustom" stuff you see below is really
|
||||
;; "defvar", and ignore everthing else. For info about custom, see
|
||||
;; "defvar", and ignore everything else. For info about custom, see
|
||||
;; <URL:http://www.dina.kvl.dk/~abraham/custom/>.
|
||||
;;
|
||||
;; This code does in elisp a superset of the stuff that used to be done
|
||||
|
@ -412,7 +412,7 @@ element is not omitted."
|
||||
(program &optional infile destination display &rest args)
|
||||
"Calls `call-process' on the local host.
|
||||
This is needed because for some Emacs flavors Tramp has
|
||||
defadviced `call-process' to behave like `process-file'. The
|
||||
defadvised `call-process' to behave like `process-file'. The
|
||||
Lisp error raised when PROGRAM is nil is trapped also, returning 1."
|
||||
(let ((default-directory
|
||||
(if (file-remote-p default-directory)
|
||||
|
@ -549,7 +549,7 @@ as given in your `~/.profile'."
|
||||
"*List of environment variables to be set on the remote host.
|
||||
|
||||
Each element should be a string of the form ENVVARNAME=VALUE. An
|
||||
entry ENVVARNAME= diables the corresponding environment variable,
|
||||
entry ENVVARNAME= disables the corresponding environment variable,
|
||||
which might have been set in the init files like ~/.profile.
|
||||
|
||||
Special handling is applied to the PATH environment, which should
|
||||
|
@ -152,7 +152,7 @@ local host, so if you want to use `~' in those commands, you should
|
||||
choose a shell here which groks tilde expansion. `/bin/sh' normally
|
||||
does not understand tilde expansion.
|
||||
|
||||
For encoding and deocding, commands like the following are executed:
|
||||
For encoding and decoding, commands like the following are executed:
|
||||
|
||||
/bin/sh -c COMMAND < INPUT > OUTPUT
|
||||
|
||||
|
@ -2125,7 +2125,7 @@ the currently selected interval size."
|
||||
"Write out a clock table at position IPOS in the current buffer.
|
||||
TABLES is a list of tables with clocking data as produced by
|
||||
`org-clock-get-table-data'. PARAMS is the parameter property list obtained
|
||||
from the dynamic block defintion."
|
||||
from the dynamic block definition."
|
||||
;; This function looks quite complicated, mainly because there are a
|
||||
;; lot of options which can add or remove columns. I have massively
|
||||
;; commented this function, the I hope it is understandable. If
|
||||
|
@ -272,7 +272,7 @@ Works on both Emacs and XEmacs."
|
||||
nil))
|
||||
|
||||
(defmacro org-xemacs-without-invisibility (&rest body)
|
||||
"Turn off exents with invisibility while executing BODY."
|
||||
"Turn off extents with invisibility while executing BODY."
|
||||
`(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol)
|
||||
'all-extents-closed-open 'invisible))
|
||||
ext-inv-specs)
|
||||
|
@ -681,7 +681,7 @@ Assume point is at an item."
|
||||
(cond
|
||||
((<= (point) lim-up)
|
||||
;; At upward limit: if we ended at an item, store it,
|
||||
;; else dimiss useless data recorded above BEG-CELL.
|
||||
;; else dismiss useless data recorded above BEG-CELL.
|
||||
;; Jump to part 2.
|
||||
(throw 'exit
|
||||
(setq itm-lst
|
||||
|
@ -1482,7 +1482,7 @@ in the search text."
|
||||
:type '(choice
|
||||
(const :tag "Use fuzy text search" nil)
|
||||
(const :tag "Match only exact headline" t)
|
||||
(const :tag "Match extact headline or query to create it"
|
||||
(const :tag "Match exact headline or query to create it"
|
||||
query-to-create)))
|
||||
|
||||
(defcustom org-link-frame-setup
|
||||
@ -5052,7 +5052,7 @@ The time stamps may be either active or inactive.")
|
||||
(defvar org-emph-face nil)
|
||||
|
||||
(defun org-do-emphasis-faces (limit)
|
||||
"Run through the buffer and add overlays to emphasised strings."
|
||||
"Run through the buffer and add overlays to emphasized strings."
|
||||
(let (rtn a)
|
||||
(while (and (not rtn) (re-search-forward org-emph-re limit t))
|
||||
(if (not (= (char-after (match-beginning 3))
|
||||
@ -14835,7 +14835,7 @@ user."
|
||||
(setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
|
||||
t nil ans)))
|
||||
|
||||
;; Help matching dottet european dates
|
||||
;; Help matching dotted european dates
|
||||
(when (string-match
|
||||
"^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans)
|
||||
(setq year (if (match-end 3)
|
||||
|
@ -93,7 +93,7 @@
|
||||
|
||||
(defvar animation-buffer-name nil
|
||||
"*String naming the default buffer for animations.
|
||||
When nil animations dipslayed in the buffer named *Animation*.")
|
||||
When nil animations displayed in the buffer named *Animation*.")
|
||||
|
||||
;;;###autoload
|
||||
(defun animate-string (string vpos &optional hpos)
|
||||
|
@ -672,7 +672,7 @@ X: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z * 11 14 9%
|
||||
1 1 1 2 1 1 2 5 7
|
||||
This says that X comes before D once, and after B once. X begins 5
|
||||
words, and ends 3 words (`*' represents a space). X comes before 8
|
||||
different letters, after 7 differerent letters, and is next to a total
|
||||
different letters, after 7 different letters, and is next to a total
|
||||
of 11 different letters. It occurs 14 times, making up 9% of the
|
||||
ciphertext."
|
||||
(interactive (list (upcase (following-char))))
|
||||
|
@ -1584,7 +1584,7 @@ If the game is finished, this command requests for another game."
|
||||
|
||||
;;;_ - something which doesn't work
|
||||
; no-a-worka!!
|
||||
;(defum landmark-sum-list (list)
|
||||
;(defun landmark-sum-list (list)
|
||||
; (if (> (length list) 0)
|
||||
; (+ (car list) (landmark-sum-list (cdr list)))
|
||||
; 0))
|
||||
|
@ -1163,7 +1163,8 @@ If OTHER-FRAME is non-nil, display the cross-reference in another frame."
|
||||
|
||||
(defun ada-goto-declaration-other-frame (pos)
|
||||
"Display the declaration of the identifier around POS.
|
||||
The declation is shown in another frame if `ada-xref-other-buffer' is non-nil."
|
||||
The declaration is shown in another frame if `ada-xref-other-buffer' is
|
||||
non-nil."
|
||||
(interactive "d")
|
||||
(ada-goto-declaration pos t))
|
||||
|
||||
|
@ -776,7 +776,7 @@
|
||||
(setq anchor (point))
|
||||
(search-forward-regexp c-awk-harmless-string*-here-re nil t)
|
||||
;; We are now looking at either a " or a /.
|
||||
;; Do our thing on the string, regexp or divsion sign.
|
||||
;; Do our thing on the string, regexp or division sign.
|
||||
(setq anchor-state-/div
|
||||
(if (looking-at "_?\"")
|
||||
(c-awk-syntax-tablify-string)
|
||||
|
@ -1304,7 +1304,7 @@ versions of Emacs."
|
||||
(get-text-property (point) 'syntax-type))
|
||||
'(here-doc pod))]
|
||||
"----"
|
||||
["CPerl pretty print (exprmntl)" cperl-ps-print
|
||||
["CPerl pretty print (experimental)" cperl-ps-print
|
||||
(fboundp 'ps-extend-face-list)]
|
||||
"----"
|
||||
["Syntaxify region" cperl-find-pods-heres-region
|
||||
@ -5793,7 +5793,7 @@ indentation and initial hashes. Behaves usually outside of comment."
|
||||
;; "\\|")
|
||||
'("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
|
||||
font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
|
||||
;; This highlights declarations and definitions differenty.
|
||||
;; This highlights declarations and definitions differently.
|
||||
;; We do not try to highlight in the case of attributes:
|
||||
;; it is already done by `cperl-find-pods-heres'
|
||||
(list (concat "\\<sub"
|
||||
@ -8946,7 +8946,7 @@ do extra unwind via `cperl-unwind-to-safe'."
|
||||
;; Called when any modification is made to buffer text.
|
||||
(defun cperl-after-change-function (beg end old-len)
|
||||
;; We should have been informed about changes by `font-lock'. Since it
|
||||
;; does not inform as which calls are defered, do it ourselves
|
||||
;; does not inform as which calls are deferred, do it ourselves
|
||||
(if cperl-syntax-done-to
|
||||
(setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))
|
||||
|
||||
|
@ -2084,7 +2084,7 @@ special."
|
||||
"*Specify extra width for arrow shape drawing.
|
||||
|
||||
The extra width is used to avoid that the arrowhead and the terminal border
|
||||
overlap. It depens on `ebnf-arrow-shape' and `ebnf-line-width'."
|
||||
overlap. It depends on `ebnf-arrow-shape' and `ebnf-line-width'."
|
||||
:type 'number
|
||||
:version "22"
|
||||
:group 'ebnf-shape)
|
||||
|
@ -1144,7 +1144,7 @@ error message."
|
||||
(setq order tag-order))
|
||||
;; We throw out on match, so only get here if there were no matches.
|
||||
;; Clear out the markers we use to avoid duplicate matches so they
|
||||
;; don't slow down editting and are immediately available for GC.
|
||||
;; don't slow down editing and are immediately available for GC.
|
||||
(while tag-lines-already-matched
|
||||
(set-marker (car tag-lines-already-matched) nil nil)
|
||||
(setq tag-lines-already-matched (cdr tag-lines-already-matched)))
|
||||
|
@ -3387,7 +3387,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 if ARG is positive, otherwise do not derereference."
|
||||
With arg, dereference expr if ARG is positive, otherwise do not dereference."
|
||||
(interactive "P")
|
||||
(setq gud-tooltip-dereference
|
||||
(if (null arg)
|
||||
|
@ -705,7 +705,8 @@ Those words in `idlwave-completion-help-links' have links. The
|
||||
;; we kill the help frame before the return-frame is selected.
|
||||
;; To protect the workings, we wait for up to one second
|
||||
;; and check if the return-frame *is* now selected.
|
||||
;; This is marked "eperimental" since we are not sure when its OK.
|
||||
;; This is marked "experimental" since we are not sure when
|
||||
;; it's OK.
|
||||
(let ((maxtime 1.0) (time 0.) (step 0.1))
|
||||
(select-frame idlwave-help-return-frame)
|
||||
(while (and (sit-for step)
|
||||
|
@ -3352,7 +3352,7 @@ If one hasn't been set, or if it's stale, prompt for a new one."
|
||||
;; etc. and produce maddening "unbalanced parenthesis" errors.
|
||||
;; When we attempt to find the error and scroll to the portion of
|
||||
;; the buffer containing the problem, JIT-lock will apply the
|
||||
;; correct syntax to the regular expresion literal and the problem
|
||||
;; correct syntax to the regular expression literal and the problem
|
||||
;; will mysteriously disappear.
|
||||
;; FIXME: We should actually do this fontification lazily by adding
|
||||
;; calls to syntax-propertize wherever it's really needed.
|
||||
|
@ -161,7 +161,7 @@
|
||||
"[ \t\f]+\\(\\sw+\\|\\s_+\\|\\s.+\\)")
|
||||
'((1 font-lock-keyword-face)
|
||||
(2 font-lock-function-name-face)))
|
||||
;; binary macro defintions: <leveldef> x operator y
|
||||
;; binary macro definitions: <leveldef> x operator y
|
||||
(cons (concat "\\<" macro-keywords-2 "\\>"
|
||||
"[ \t\f]+\\(\\sw+\\)"
|
||||
"[ \t\f]*\\(\\sw+\\|\\s.+\\)"
|
||||
|
@ -119,7 +119,7 @@
|
||||
(1 font-lock-type-face))
|
||||
;; Built-ins. (The next three blocks are from
|
||||
;; `__builtin__.__dict__.keys()' in Python 2.7) These patterns
|
||||
;; are debateable, but they at least help to spot possible
|
||||
;; are debatable, but they at least help to spot possible
|
||||
;; shadowing of builtins.
|
||||
(,(rx symbol-start (or
|
||||
;; exceptions
|
||||
|
@ -913,7 +913,7 @@ the MSB or LSB of a signal inside an AUTORESET."
|
||||
(put 'verilog-assignment-delay 'safe-local-variable 'stringp)
|
||||
|
||||
(defcustom verilog-auto-arg-sort nil
|
||||
"*If set, AUTOARG signal names will be sorted, not in delaration order.
|
||||
"*If set, AUTOARG signal names will be sorted, not in declaration order.
|
||||
Declaration order is advantageous with order based instantiations
|
||||
and is the default for backward compatibility. Sorted order
|
||||
reduces changes when declarations are moved around in a file, and
|
||||
@ -2151,7 +2151,7 @@ find the errors."
|
||||
"interface" "endinterface"
|
||||
"module" "macromodule" "endmodule"
|
||||
"package" "endpackage"
|
||||
"primitive" "endprimative"
|
||||
"primitive" "endprimitive"
|
||||
"program" "endprogram"
|
||||
"property" "endproperty"
|
||||
"sequence" "randsequence" "endsequence"
|
||||
@ -3579,7 +3579,7 @@ With ARG, first kill any existing labels."
|
||||
"Move backward to beginning of statement."
|
||||
(interactive)
|
||||
;; Move back token by token until we see the end
|
||||
;; of some ealier line.
|
||||
;; of some earlier line.
|
||||
(let (h)
|
||||
(while
|
||||
;; If the current point does not begin a new
|
||||
|
@ -980,7 +980,7 @@ if the cell's value is unchanged and FORCE is nil."
|
||||
(error "Circular references: %s" ses--deferred-recalc))
|
||||
(message " "))
|
||||
;; Can't use save-excursion here: if the cell under point is updated,
|
||||
;; save-excusion's marker will move past the cell.
|
||||
;; save-excursion's marker will move past the cell.
|
||||
(goto-char pos)))
|
||||
|
||||
|
||||
@ -3204,7 +3204,7 @@ By passing in REST some flags one can configure the way the range
|
||||
is read and how it is formatted.
|
||||
|
||||
In the sequel we assume that cells A1, B1, A2 B2 have respective values
|
||||
1 2 3 and 4 for examplication.
|
||||
1 2 3 and 4.
|
||||
|
||||
Readout direction is specified by a `>v', '`>^', `<v', `<^',
|
||||
`v>', `v<', `^>', `^<' flag. For historical reasons, in absence
|
||||
@ -3230,7 +3230,7 @@ vector or a matrix depending on the number of rows, `*1' will
|
||||
flatten the result to a one row vector, and `*2' will make a
|
||||
matrix whatever the number of rows.
|
||||
|
||||
Warning: interaction with Calc is expermimental and may produce
|
||||
Warning: interaction with Calc is experimental and may produce
|
||||
confusing results if you are not aware of Calc data format. Use
|
||||
`math-format-value' as a printer for Calc objects."
|
||||
(let (result-row
|
||||
|
@ -2409,7 +2409,7 @@ and only used if a buffer is displayed."
|
||||
1))
|
||||
1)))
|
||||
;; Don't use the echo area if the output buffer is
|
||||
;; already dispayed in the selected frame.
|
||||
;; already displayed in the selected frame.
|
||||
(not (get-buffer-window (current-buffer))))
|
||||
;; Echo area
|
||||
(goto-char (point-max))
|
||||
|
@ -631,7 +631,7 @@ with `.' followed by extensions, followed by full-filenames."
|
||||
(substring (car extlist) 1)))
|
||||
(setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist))))
|
||||
(setq extlist (cdr extlist)))
|
||||
;; concat all the sub-exressions together, making sure all types
|
||||
;; Concatenate all the subexpressions together, making sure all types
|
||||
;; of parts exist during concatenation.
|
||||
(concat "\\("
|
||||
(if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "")
|
||||
@ -2105,7 +2105,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
|
||||
(let ((sf (cdr (reverse speedbar-shown-directories))))
|
||||
(setq speedbar-shown-directories
|
||||
(list (expand-file-name default-directory)))
|
||||
;; exand them all as we find them
|
||||
;; Expand them all as we find them.
|
||||
(while sf
|
||||
(if (speedbar-goto-this-file (car sf))
|
||||
(progn
|
||||
@ -3292,7 +3292,7 @@ With universal argument ARG, flush cached data."
|
||||
Optional argument ARG indicates that any cache should be flushed."
|
||||
(interactive "P")
|
||||
(speedbar-expand-line arg)
|
||||
;; Now, inside the area expaded here, expand all subnodes of
|
||||
;; Now, inside the area expanded here, expand all subnodes of
|
||||
;; the same descendant type.
|
||||
(save-excursion
|
||||
(speedbar-next 1) ;; Move into the list.
|
||||
|
@ -118,7 +118,7 @@
|
||||
;; function keys F11->F42 from the termcap/terminfo information. On
|
||||
;; a PC-style keyboard these keys correspond to
|
||||
;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-. The
|
||||
;; code here subsitutes the corresponding defintions in
|
||||
;; code here subsitutes the corresponding definitions in
|
||||
;; function-key-map. This substitution is needed because if a key
|
||||
;; definition if found in function-key-map, there are no further
|
||||
;; lookups in other keymaps.
|
||||
|
@ -2514,7 +2514,7 @@ This function returns a point-list."
|
||||
|
||||
|
||||
;;
|
||||
;; functions for accessing endoints and elements in object requiring
|
||||
;; functions for accessing endpoints and elements in object requiring
|
||||
;; 2 endpoints
|
||||
;;
|
||||
|
||||
@ -3582,7 +3582,7 @@ FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
|
||||
(width (abs (- x2 x1)))
|
||||
(height (abs (- y2 y1)))
|
||||
;; When drawing our circle, we want it to through the cursor
|
||||
;; just as when drawing the ellispe, but we have to take
|
||||
;; just as when drawing the ellipse, but we have to take
|
||||
;; care for the aspect-ratio.
|
||||
;; The equation for the ellipse (where a is the x-radius and
|
||||
;; b is the y-radius):
|
||||
|
@ -59,7 +59,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
(error "Not on a crossref macro argument"))
|
||||
|
||||
(setq reftex-call-back-to-this-buffer (current-buffer))
|
||||
|
||||
|
||||
(cond
|
||||
((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
|
||||
;; A citation macro: search for bibitems or BibTeX entries
|
||||
@ -87,7 +87,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
(format reftex-find-index-entry-regexp-format
|
||||
(regexp-quote key))
|
||||
3 nil nil)))
|
||||
(t
|
||||
(t
|
||||
(reftex-access-scan-info arg)
|
||||
(catch 'exit
|
||||
(let ((list reftex-view-crossref-extra)
|
||||
@ -97,14 +97,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
action (nth 1 entry)
|
||||
group (nth 2 entry))
|
||||
(when (string-match mre macro)
|
||||
(setq dw (reftex-view-regexp-match
|
||||
(setq dw (reftex-view-regexp-match
|
||||
(format action key) group nil nil))
|
||||
(throw 'exit t))))
|
||||
(error "Not on a crossref macro argument"))))
|
||||
(if (and (eq arg 2) (windowp dw)) (select-window dw)))))
|
||||
|
||||
|
||||
(defun reftex-view-cr-cite (arg key how)
|
||||
;; View crossreference of a ref cite. HOW can have the values
|
||||
;; View crossreference of a ref cite. HOW can have the values
|
||||
;; nil: Show in another window.
|
||||
;; echo: Show one-line info in echo area.
|
||||
;; tmp-window: Show in small window and arrange for window to disappear.
|
||||
@ -114,7 +114,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
|
||||
(if (eq how 'tmp-window)
|
||||
;; Remember the window configuration
|
||||
(put 'reftex-auto-view-crossref 'last-window-conf
|
||||
(put 'reftex-auto-view-crossref 'last-window-conf
|
||||
(current-window-configuration)))
|
||||
|
||||
(let (files size item (pos (point)) (win (selected-window)) pop-win
|
||||
@ -130,7 +130,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
(setq item t
|
||||
files (reftex-uniquify
|
||||
(mapcar 'cdr
|
||||
(reftex-all-assq
|
||||
(reftex-all-assq
|
||||
'thebib (symbol-value reftex-docstruct-symbol))))))
|
||||
(reftex-default-bibliography
|
||||
(setq item nil
|
||||
@ -169,17 +169,17 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
(select-window pop-win)))))
|
||||
|
||||
(defun reftex-view-cr-ref (arg label how)
|
||||
;; View crossreference of a ref macro. HOW can have the values
|
||||
;; View crossreference of a ref macro. HOW can have the values
|
||||
;; nil: Show in another window.
|
||||
;; echo: Show one-line info in echo area.
|
||||
;; tmp-window: Show in small window and arrange for window to disappear.
|
||||
|
||||
;; Ensure access to scanning info
|
||||
(reftex-access-scan-info (or arg current-prefix-arg))
|
||||
|
||||
|
||||
(if (eq how 'tmp-window)
|
||||
;; Remember the window configuration
|
||||
(put 'reftex-auto-view-crossref 'last-window-conf
|
||||
(put 'reftex-auto-view-crossref 'last-window-conf
|
||||
(current-window-configuration)))
|
||||
|
||||
(let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
|
||||
@ -191,14 +191,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
||||
;; Label is defined in external document
|
||||
(save-excursion
|
||||
(save-match-data
|
||||
(set-buffer
|
||||
(set-buffer
|
||||
(or (reftex-get-file-buffer-force
|
||||
(cdr (assoc (match-string 1 label) (nth 1
|
||||
xr-data))))
|
||||
(error "Problem with external label %s" label))))
|
||||
(setq label (substring label (match-end 1)))
|
||||
(reftex-access-scan-info)
|
||||
(setq entry
|
||||
(setq entry
|
||||
(assoc label (symbol-value reftex-docstruct-symbol)))))
|
||||
(if (eq how 'echo)
|
||||
;; Display in echo area
|
||||
@ -234,7 +234,7 @@ With argument, actually select the window showing the cross reference."
|
||||
|
||||
(defun reftex-view-crossref-when-idle ()
|
||||
;; Display info about crossref at point in echo area or a window.
|
||||
;; This function was desigend to work with an idle timer.
|
||||
;; This function was designed to work with an idle timer.
|
||||
;; We try to get out of here as quickly as possible if the call is useless.
|
||||
(and reftex-mode
|
||||
;; Make sure message area is free if we need it.
|
||||
@ -244,7 +244,7 @@ With argument, actually select the window showing the cross reference."
|
||||
reftex-mouse-view-crossref)))
|
||||
;; Quick precheck if this might be a relevant spot
|
||||
;; `reftex-view-crossref' will do a more thorough check.
|
||||
(save-excursion
|
||||
(save-excursion
|
||||
(search-backward "\\" nil t)
|
||||
(looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
|
||||
|
||||
@ -262,12 +262,12 @@ With argument, actually select the window showing the cross reference."
|
||||
(set-window-configuration (get 'reftex-auto-view-crossref 'last-window-conf))
|
||||
(put 'reftex-auto-view-crossref 'last-window-conf nil)
|
||||
(remove-hook 'pre-command-hook 'reftex-restore-window-conf))
|
||||
|
||||
|
||||
(defun reftex-echo-ref (label entry docstruct)
|
||||
;; Display crossref info in echo area.
|
||||
(cond
|
||||
((null docstruct)
|
||||
(message "%s"
|
||||
(message "%s"
|
||||
(substitute-command-keys (format reftex-no-info-message "ref"))))
|
||||
((null entry)
|
||||
(message "ref: unknown label: %s" label))
|
||||
@ -293,14 +293,14 @@ With argument, actually select the window showing the cross reference."
|
||||
(unless reftex-revisit-to-echo
|
||||
(setq files (reftex-visited-files files)))
|
||||
|
||||
(setq entry
|
||||
(setq entry
|
||||
(condition-case nil
|
||||
(save-excursion
|
||||
(reftex-pop-to-bibtex-entry key files nil nil item t))
|
||||
(error
|
||||
(if (and files (= (length all-files) (length files)))
|
||||
(message "cite: no such database entry: %s" key)
|
||||
(message "%s" (substitute-command-keys
|
||||
(message "%s" (substitute-command-keys
|
||||
(format reftex-no-info-message "cite"))))
|
||||
nil)))
|
||||
(when entry
|
||||
@ -337,7 +337,7 @@ will display info in the echo area."
|
||||
(if (featurep 'xemacs)
|
||||
(if reftex-use-itimer-in-xemacs
|
||||
(start-itimer "RefTeX Idle Timer"
|
||||
'reftex-view-crossref-when-idle
|
||||
'reftex-view-crossref-when-idle
|
||||
reftex-idle-time reftex-idle-time t)
|
||||
(add-hook 'post-command-hook 'reftex-start-itimer-once)
|
||||
t)
|
||||
@ -352,7 +352,7 @@ will display info in the echo area."
|
||||
(not (itimer-live-p reftex-auto-view-crossref-timer))
|
||||
(setq reftex-auto-view-crossref-timer
|
||||
(start-itimer "RefTeX Idle Timer"
|
||||
'reftex-view-crossref-when-idle
|
||||
'reftex-view-crossref-when-idle
|
||||
reftex-idle-time nil t))))
|
||||
|
||||
(declare-function bibtex-beginning-of-entry "bibtex" ())
|
||||
@ -364,7 +364,7 @@ prompts upon first use for a buffer in RefTeX mode. To reset this
|
||||
link to a document, call the function with with a prefix arg.
|
||||
Calling this function several times find successive citation locations."
|
||||
(interactive "P")
|
||||
(when arg
|
||||
(when arg
|
||||
;; Break connection to reference buffer
|
||||
(put 'reftex-bibtex-view-cite-locations :ref-buffer nil))
|
||||
(let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer)))
|
||||
@ -372,10 +372,10 @@ Calling this function several times find successive citation locations."
|
||||
(unless ref-buffer
|
||||
(setq ref-buffer
|
||||
(save-current-buffer
|
||||
(completing-read
|
||||
(completing-read
|
||||
"Reference buffer: "
|
||||
(delq nil
|
||||
(mapcar
|
||||
(mapcar
|
||||
(lambda (b)
|
||||
(set-buffer b)
|
||||
(if reftex-mode (list (buffer-name b)) nil))
|
||||
|
@ -230,7 +230,7 @@ one with the `xr' package."
|
||||
;; Save all document buffers before this operation
|
||||
(reftex-save-all-document-buffers)
|
||||
|
||||
;; First test to check for erros
|
||||
;; First test to check for errors.
|
||||
(setq n (reftex-translate
|
||||
files search-re translate-alist error-fmt 'test))
|
||||
|
||||
|
@ -470,7 +470,7 @@ Label context is only displayed when the labels are there as well."
|
||||
(defun reftex-toc-max-level (arg)
|
||||
"Set the maximum level of toc lines in this buffer to value of prefix ARG.
|
||||
When no prefix is given, set the max level to a large number, so that all
|
||||
levels are shown. For eaxample, to set the level to 3, type `3 m'."
|
||||
levels are shown. For example, to set the level to 3, type `3 m'."
|
||||
(interactive "P")
|
||||
(setq reftex-toc-max-level (if arg
|
||||
(prefix-numeric-value arg)
|
||||
@ -850,7 +850,7 @@ When finished, we exit with an error message."
|
||||
(defun reftex-toc-rename-label ()
|
||||
"Rename the currently selected label in the *TOC* buffer.
|
||||
This launches a global search and replace in order to rename a label.
|
||||
Renaming a label is hardly ever necessary - the only exeption is after
|
||||
Renaming a label is hardly ever necessary - the only exception is after
|
||||
promotion/demotion in connection with a package like fancyref, where the
|
||||
label prefix determines the wording of a reference."
|
||||
(interactive)
|
||||
|
@ -42,7 +42,7 @@
|
||||
;; - For XEmacs 21.x, you need to install the RefTeX plug-in package
|
||||
;; available from the XEmacs distribution sites.
|
||||
;; - If you have downloaded this file from the maintainers webpage, follow
|
||||
;; the instructions in the INSTALL file of the distrubution.
|
||||
;; the instructions in the INSTALL file of the distribution.
|
||||
;;
|
||||
;; To turn RefTeX Mode on and off in a buffer, use `M-x reftex-mode'.
|
||||
;;
|
||||
|
@ -620,7 +620,7 @@ if large. You can use `Info-split' to do this manually."
|
||||
"var{\\|"
|
||||
"w{\\|"
|
||||
"xref{\\|"
|
||||
"@-\\|" ; @- is a descretionary hyphen (not an accent) (a noop).
|
||||
"@-\\|" ; @- is a discretionary hyphen (not an accent) (a noop).
|
||||
texinfo-accent-commands
|
||||
"\\)"
|
||||
)
|
||||
|
@ -173,7 +173,7 @@ URL can be a URL string, or a URL vector of the type returned by
|
||||
(if attributes
|
||||
(setq attributes (mapcar 'url-unhex-string (split-string attributes ","))))
|
||||
|
||||
;; Parse out the exentions
|
||||
;; Parse out the extensions.
|
||||
(if extensions
|
||||
(setq extensions (mapcar (lambda (ext)
|
||||
(if (string-match "\\([^=]*\\)=\\(.*\\)" ext)
|
||||
|
@ -335,7 +335,7 @@ Currently supported methods:
|
||||
`socks': Connect through a socks server;
|
||||
`tls': Connect with TLS;
|
||||
`ssl': Connect with SSL (deprecated, use `tls' instead);
|
||||
`native': Connect directy."
|
||||
`native': Connect directly."
|
||||
:type '(radio (const :tag "Telnet to gateway host" :value telnet)
|
||||
(const :tag "Rlogin to gateway host" :value rlogin)
|
||||
(const :tag "Use SOCKS proxy" :value socks)
|
||||
|
@ -502,7 +502,7 @@ It is expected to call the function.")
|
||||
(if (or (null cvs-version)
|
||||
(or (>= (cdr cvs-version) 10) (> (car cvs-version) 1)))
|
||||
;; Supposedly some recent versions of CVS output some directory info
|
||||
;; as they recurse downthe tree, but it's not good enough in the case
|
||||
;; as they recurse down the tree, but it's not good enough in the case
|
||||
;; where we run "cvs status foo bar/foo".
|
||||
'("status")
|
||||
t)
|
||||
|
@ -307,7 +307,7 @@ If it is \\[universal-argument] \\[universal-argument], behave just
|
||||
See `cvs-prefix-set' for further description of the behavior."))
|
||||
(defvar ,cps
|
||||
(let ((defaults ,defaults))
|
||||
;; sanity ensurance
|
||||
;; sanity insurance
|
||||
(unless (>= (length defaults) cvs-prefix-number)
|
||||
(setq defaults (append defaults
|
||||
(make-list (1- cvs-prefix-number)
|
||||
|
@ -620,7 +620,7 @@ If non-nil, NEW means to create a new buffer no matter what."
|
||||
(str (car hf))
|
||||
(done "")
|
||||
(tin (ewoc-nth cvs-cookies 0)))
|
||||
;; look for the first *real* fileinfo (to determine emptyness)
|
||||
;; look for the first *real* fileinfo (to determine emptiness)
|
||||
(while
|
||||
(and tin
|
||||
(memq (cvs-fileinfo->type (ewoc-data tin))
|
||||
|
@ -3432,7 +3432,7 @@ is non-nil."
|
||||
"Balance the sizes of windows of WINDOW-OR-FRAME.
|
||||
WINDOW-OR-FRAME is optional and defaults to the selected frame.
|
||||
If WINDOW-OR-FRAME denotes a frame, balance the sizes of all
|
||||
windows of that frame. If WINDOW-OR-FRAME denots a window,
|
||||
windows of that frame. If WINDOW-OR-FRAME denotes a window,
|
||||
recursively balance the sizes of all child windows of that
|
||||
window."
|
||||
(interactive)
|
||||
|
@ -2023,7 +2023,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated."
|
||||
;; Both advices are disabled because "a file in Emacs should not put
|
||||
;; advice on a function in Emacs" (see Info node "(elisp)Advising
|
||||
;; Functions"). Counting the formatting time is useful for
|
||||
;; developping, but less applicable for daily use. The advice for
|
||||
;; developing, but less applicable for daily use. The advice for
|
||||
;; `Man-getpage-in-background' can be discarded, because the
|
||||
;; key-binding in `woman-mode-map' has been remapped to call `woman'
|
||||
;; but `man'. Michael Albinus <michael.albinus@gmx.de>
|
||||
|
@ -484,7 +484,7 @@ static Lisp_Object Vccl_program_table;
|
||||
If the element is t or lambda, finish without changing reg[rrr].
|
||||
If the element is a number, set reg[rrr] to the number and finish.
|
||||
|
||||
Detail of the map structure is descibed in the comment for
|
||||
Detail of the map structure is described in the comment for
|
||||
CCL_MapMultiple below. */
|
||||
|
||||
#define CCL_IterateMultipleMap 0x10 /* Iterate multiple maps
|
||||
@ -1808,7 +1808,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
|
||||
|
||||
/* Resolve symbols in the specified CCL code (Lisp vector). This
|
||||
function converts symbols of code conversion maps and character
|
||||
translation tables embeded in the CCL code into their ID numbers.
|
||||
translation tables embedded in the CCL code into their ID numbers.
|
||||
|
||||
The return value is a vector (CCL itself or a new vector in which
|
||||
all symbols are resolved), Qt if resolving of some symbol failed,
|
||||
|
@ -1196,7 +1196,7 @@ uniprop_table_uncompress (Lisp_Object table, int idx)
|
||||
}
|
||||
|
||||
|
||||
/* Decode VALUE as an elemnet of char-table TABLE. */
|
||||
/* Decode VALUE as an element of char-table TABLE. */
|
||||
|
||||
static Lisp_Object
|
||||
uniprop_decode_value_run_length (Lisp_Object table, Lisp_Object value)
|
||||
|
@ -628,7 +628,7 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int v
|
||||
|
||||
if (includeall && !canexclude)
|
||||
{ /* If we have one non-excludable file, we want to exclude the
|
||||
excudable files. */
|
||||
excludable files. */
|
||||
includeall = 0;
|
||||
/* Throw away any previous excludable match found. */
|
||||
bestmatch = Qnil;
|
||||
|
@ -26,7 +26,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
||||
of the (`int') argument, suitable for display in an Emacs buffer.
|
||||
|
||||
. For %s and %c, when field width is specified (e.g., %25s), it accounts for
|
||||
the diplay width of each character, according to char-width-table. That
|
||||
the display width of each character, according to char-width-table. That
|
||||
is, it does not assume that each character takes one column on display.
|
||||
|
||||
. If the size of the buffer is not enough to produce the formatted string in
|
||||
|
@ -2487,7 +2487,7 @@ If FRAME is omitted, the selected frame is used. The exact value
|
||||
of the result depends on the window-system and toolkit in use:
|
||||
|
||||
In the Gtk+ version of Emacs, it includes only any window (including
|
||||
the minibuffer or eacho area), mode line, and header line. It does not
|
||||
the minibuffer or echo area), mode line, and header line. It does not
|
||||
include the tool bar or menu bar.
|
||||
|
||||
With the Motif or Lucid toolkits, it also includes the tool bar (but
|
||||
|
@ -1423,7 +1423,7 @@ get_dialog_title (char key)
|
||||
/* Callback for dialogs that get WM_DELETE_WINDOW. We pop down
|
||||
the dialog, but return TRUE so the event does not propagate further
|
||||
in GTK. This prevents GTK from destroying the dialog widget automatically
|
||||
and we can always destrou the widget manually, regardles of how
|
||||
and we can always destroy the widget manually, regardless of how
|
||||
it was popped down (button press or WM_DELETE_WINDOW).
|
||||
W is the dialog widget.
|
||||
EVENT is the GdkEvent that represents WM_DELETE_WINDOW (not used).
|
||||
@ -2294,7 +2294,7 @@ tearoff_activate (GtkWidget *widget, gpointer client_data)
|
||||
|
||||
|
||||
/* Create a menu item widget, and connect the callbacks.
|
||||
ITEM decribes the menu item.
|
||||
ITEM describes the menu item.
|
||||
F is the frame the created menu belongs to.
|
||||
SELECT_CB is the callback to use when a menu item is selected.
|
||||
HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
|
||||
|
@ -932,7 +932,7 @@ pop_kboard (void)
|
||||
state later.
|
||||
|
||||
If Emacs is already in single_kboard mode, and F's keyboard is
|
||||
locked, then this function will throw an errow. */
|
||||
locked, then this function will throw an error. */
|
||||
|
||||
void
|
||||
temporarily_switch_to_single_kboard (struct frame *f)
|
||||
@ -5393,7 +5393,7 @@ make_lispy_event (struct input_event *event)
|
||||
|| !lispy_function_keys[event->code - FUNCTION_KEY_OFFSET])
|
||||
{
|
||||
/* We need to use an alist rather than a vector as the cache
|
||||
since we can't make a vector long enuf. */
|
||||
since we can't make a vector long enough. */
|
||||
if (NILP (KVAR (current_kboard, system_key_syms)))
|
||||
KVAR (current_kboard, system_key_syms) = Fcons (Qnil, Qnil);
|
||||
return modify_event_symbol (event->code,
|
||||
|
@ -6709,7 +6709,7 @@ DEFUN ("default-printer-name", Fdefault_printer_name, Sdefault_printer_name,
|
||||
ClosePrinter (hPrn);
|
||||
return Qnil;
|
||||
}
|
||||
/* Call GetPrinter again with big enouth memory block */
|
||||
/* Call GetPrinter again with big enough memory block. */
|
||||
err = GetPrinter (hPrn, 2, (LPBYTE)ppi2, dwNeeded, &dwReturned);
|
||||
ClosePrinter (hPrn);
|
||||
if (!err)
|
||||
|
@ -330,7 +330,7 @@ w32font_list (Lisp_Object frame, Lisp_Object font_spec)
|
||||
|
||||
/* w32 implementation of match for font backend.
|
||||
Return a font entity most closely matching with FONT_SPEC on
|
||||
FRAME. The closeness is detemined by the font backend, thus
|
||||
FRAME. The closeness is determined by the font backend, thus
|
||||
`face-font-selection-order' is ignored here. */
|
||||
static Lisp_Object
|
||||
w32font_match (Lisp_Object frame, Lisp_Object font_spec)
|
||||
|
@ -2296,7 +2296,7 @@ filesystems via ange-ftp. */);
|
||||
doc: /* Non-nil means attempt to fake realistic inode values.
|
||||
This works by hashing the truename of files, and should detect
|
||||
aliasing between long and short (8.3 DOS) names, but can have
|
||||
false positives because of hash collisions. Note that determing
|
||||
false positives because of hash collisions. Note that determining
|
||||
the truename of a file can be slow. */);
|
||||
Vw32_generate_fake_inodes = Qnil;
|
||||
#endif
|
||||
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user