* BUGS: Use new binding of view-emacs-problems.
-2009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change)
+2009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change)
* Makefile.in (install-arch-dep): Avoid using $$(..) construct,
for Solaris compatibility.
+2011-11-15 Juanma Barranquero <lekktu@gmail.com>
+
+ * make-emacs: Fix typo.
+
2011-11-07 Juanma Barranquero <lekktu@gmail.com>
* unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h.
--gprof make Emacs for profiling
--union-type define USE_LISP_UNION_TYPE (bad for GDB)
--malloc-check define GC_MALLOC_CHECK
- --no-mcheck dont define GC_MCHECK
+ --no-mcheck don't define GC_MCHECK
--wall compile with -Wall
--gcc3 use GCC 3.0 (30% slower compilation, slower code)
--trace-selection print traces in xselect.c
athena | lucid ) USE_X_TOOLKIT=LUCID ;;
motif ) USE_X_TOOLKIT=MOTIF ;;
gtk ) with_gtk=yes
-dnl Dont set this for GTK. A lot of tests below assumes Xt when
+dnl Don't set this for GTK. A lot of tests below assumes Xt when
dnl USE_X_TOOLKIT is set.
USE_X_TOOLKIT=none ;;
gtk3 ) with_gtk3=yes
insert elisp2-aux-vol-added into vol1.aux (append)
insert elisp1-aux-vol-added into vol2.aux (prepend)
-(so you dont have to do it again)
+(so you don't have to do it again)
% cp vol1.aux elisp1-aux-ready
% cp vol2.aux elisp2-aux-ready
% texindex vol1.fn
% texindex vol2.fn
-(so you dont have to do it again)
+(so you don't have to do it again)
% cp vol1.fns elisp1-fns-2vol-ready
% cp vol2.fns elisp2-fns-2vol-ready
* Version 23.3 released.
-2011-01-02 Jari Aalto <jari.aalto@cante.net> (tiny change)
+2011-01-02 Jari Aalto <jari.aalto@cante.net>
* emacsclient.1: Arrange options alphabetically (Bug#7620).
2011-11-15 Juanma Barranquero <lekktu@gmail.com>
- * ede.texi (project-am-texinfo): Fix typo.
+ * ede.texi (project-am-texinfo):
+ * gnus.texi (Sending or Not Sending):
+ * org.texi (Template elements): Fix typos.
2011-11-14 Juanma Barranquero <lekktu@gmail.com>
* ediff.texi (Hooks):
- * sem-user.texi (Semanticdb Roots): Fix typo.
+ * sem-user.texi (Semanticdb Roots): Fix typos.
2011-11-11 Juanma Barranquero <lekktu@gmail.com>
@itemize @bullet
@item
@code{nndiary} is a @emph{real} mail back end. You really send real diary
-messsages for real. This means for instance that you can give
+messages for real. This means for instance that you can give
appointments to anybody (provided they use Gnus and @code{nndiary}) by
sending the diary message to them as well.
@item
@node Template elements, Template expansion, Capture templates, Capture templates
@subsubsection Template elements
-Now lets look at the elements of a template definition. Each entry in
+Now let's look at the elements of a template definition. Each entry in
@code{org-capture-templates} is a list with the following items:
@table @var
* quail/hangul.el (hangul-im-keymap): Add binding of key
Hangul_Hanja.
-2009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change)
+2009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change)
* Makefile.in (install): Avoid using $$(..) construct, for Solaris
compatibility.
1. Vowel 'a' should be typed explicitly by the key 'A'.
This is really inconvenient. But to make the coding
- scheme clear, it is desirable to have an explicite
+ scheme clear, it is desirable to have an explicit
vowel sign for 'a'.
2. Tsheg is assigned to SPC key. You can input a space
by typing '>'.
+2011-11-15 Juanma Barranquero <lekktu@gmail.com>
+
+ * allout.el (allout-encryption-plaintext-sanitization-regexps):
+ * frame.el (display-mm-dimensions-alist):
+ * outline.el (outline-mode-menu-bar-map, outline-move-subtree-up)
+ (outline-move-subtree-down):
+ * net/newst-treeview.el (newsticker--treeview-do-get-node-of-feed)
+ (newsticker--treeview-do-get-node):
+ * net/quickurl.el (quickurl-list-buffer-name):
+ * progmodes/dcl-mode.el (dcl-mode):
+ * progmodes/gdb-mi.el (gdb-mapcar*):
+ * progmodes/sql.el (sql-mode-oracle-font-lock-keywords): Fix typos.
+
2011-11-15 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-file-coding-system): It's only ever used
2011-10-26 Michael Albinus <michael.albinus@gmx.de>
* ido.el (ido-file-name-all-completions-1): Do not require
- tramp.el explicitely. (Bug#7583)
+ tramp.el explicitly. (Bug#7583)
2011-10-26 Stefan Monnier <monnier@iro.umontreal.ca>
ada-prj.el are now defined in this package, which makes it easier to
edit menus.
(ada-narrow-to-defun): Add support for `narrow-to-region'.
- No longer explicitely load ada-xref.el and ada-prj.el. Use autoload
+ No longer explicitly load ada-xref.el and ada-prj.el. Use autoload
statements instead.
* progmodes/ada-xref.el (ada-gnatls-args): New variable.
Fix calls to get-buffer-window to find windows in other frames.
Reported by David Hansen <david.hansen@gmx.net>.
-2007-03-27 Kevin Ryde <user42@zip.com.au>
+2007-03-27 Kevin Ryde <user42@zip.com.au>
* info.el (Info-display-images-node): On a text-only terminal,
show the "text" or "alt" parts of the image blobs.
(org-agenda-files): Ignore non-existing files.
(org-agenda-skip-unavailable-files): New variable.
(org-ellipsis): All a face as value.
- (org-mode): Interprete the face value of `org-ellipsis'.
+ (org-mode): Interpret the face value of `org-ellipsis'.
(org-archive-save-context-info): New option.
(org-archive-subtree): Store context info in archived entry.
(org-fast-tag-selection-can-set-todo-state): New variable.
(org-set-regexps-and-options): Use `org-remove-keyword-keys'.
(org-remove-keyword-keys): New function.
-2007-08-30 Jari Aalto <jari.aalto@cante.net> (tiny change)
+2007-08-30 Jari Aalto <jari.aalto@cante.net>
* progmodes/grep.el (grep-find-ignored-directories):
Add monotone _MTN bookkeeping directory in workspaces.
(rx-check-any): Return result as a list. Don't convert chars to
strings. Don't prepend "\\" to "^". Don't search for close bracket.
Check char category string. Call rx-form instead of rx-to-string.
- (rx-any): Rebuid to complete the function.
+ (rx-any): Rebuild to complete the function.
(rx-check-not): Fix char category regexp pattern string.
Call rx-form instead of rx-to-string.
(rx-not): Call rx-form instead of rx-to-string. Convert "[^]" to
* net/tramp-sh.el (tramp-sh-handle-start-file-process):
Protect buffer-modified value. (Bug#7557)
-2010-12-13 Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
+2010-12-13 Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
* log-edit.el (log-edit-changelog-entries):
Regexp quote filename. (Bug#7505)
file has no read permissions for the owner, there might be
problems otherwise. Reported by Ole Laursen <olau@iola.dk>.
-22010-02-18 Glenn Morris <rgm@gnu.org>
+2010-02-18 Glenn Morris <rgm@gnu.org>
* emacs-lisp/authors.el (authors-renamed-files-alist):
Add entries for INSTALL.CVS.
* textmodes/artist.el (artist-compute-popup-menu-table):
Remove duplicated words in doc-strings.
-2010-01-15 David Abrahams <dave@boostpro.com> (tiny change)
+2010-01-15 David Abrahams <dave@boostpro.com> (tiny change)
* net/mairix.el (mairix-widget-send-query): Send -1 instead of nil
to mairix-search to suppress threading (Bug#5342).
* ada-mode.el (initial comments): Copyright 1995; don't speak
about setup; correct history for a file that actually IS in
Emacs 19.29; update list of known bugs.
- (all functions): Initialize all local variables explicitely to 'nil'.
+ (all functions): Initialize all local variables explicitly to 'nil'.
(ada-font-lock-keywords): Initialized according to new user option
`font-lock-maximum-decoration'.
`reftex-no-include-regexps'.
(reftex-no-include-regexps): New option.
(reftex-do-parse): Initialize appendix flag.
- (reftex-parse-from-file): Interprete appendix.
+ (reftex-parse-from-file): Interpret appendix.
(reftex-section-info): Use changed version of reftex-section-number.
- (reftex-where-am-I): Interprete appendix match.
+ (reftex-where-am-I): Interpret appendix match.
(reftex-init-section-numbers): New arg: appendix.
(reftex-section-number): Treat appendix enumeration.
(reftex-toc-external): Improved message.
(reftex-cite-comment-format): New variable.
(reftex-cite-punctuation): New variable.
(reftex-make-master-buffer): Changed name of master buffer,
- removed interactive. Runs a hook on the buffer. Interprete
+ removed interactive. Runs a hook on the buffer. Interpret
TEXINPUTS environment variable. Allow naked argument for \input.
Master buffer is now in fundamental mode.
(reftex-access-scan-info): Name of master buffer changed.
(reftex-allow-for-ctrl-m): New function.
(reftex-label-info-update): Allow more general label commands.
(reftex-label-info): New parameter derive.
- (reftex-short-context): Interprete integer parse as nth arg of macro.
+ (reftex-short-context): Interpret integer parse as nth arg of macro.
(reftex-nth-parens-substring): New function.
- (reftex-select-item): Interprete the new 'cnt text property.
+ (reftex-select-item): Interpret the new 'cnt text property.
(reftex-pop-to-label): Allow more general label commands.
(reftex-nicify-text): Allow more general label commands.
(reftex-toc): Remember previous window configuration. Use text
(reftex-process-string): Preserve default directory.
(reftex-label-alist-builtin): Changed prefixes of endnote and footnote.
Also the magic words.
- (reftex-reference): Interprete new option `reftex-fref-is-default'.
- (reftex-replace-prefix-escapes): Interprete new `%S' format.
+ (reftex-reference): Interpret new option `reftex-fref-is-default'.
+ (reftex-replace-prefix-escapes): Interpret new `%S' format.
(reftex-toc-mouse-view-line): Command removed (had no binding).
(reftex-everything-regexp): New function.
(reftex-nearest-match): Made better.
* international/mule.el (charset-description): Doc fix.
* language/chinese.el, language/cyrillic.el, language/czech.el,
- language/devanagari.el, language/ethiopic.el,
- language/european.el, language/hebrew.el, language/indian.el,
- language/japanese.el, language/korean.el, language/lao.el,
- language/slovak.el, language/thai.el, language/tibetan.el,
- language/vietnamese.el:
+ * language/devanagari.el, language/ethiopic.el,
+ * language/european.el, language/hebrew.el, language/indian.el,
+ * language/japanese.el, language/korean.el, language/lao.el,
+ * language/slovak.el, language/thai.el, language/tibetan.el,
+ * language/vietnamese.el:
Add coding: local variable, to avoid bootstrapping problem
if you need to recompile all the Lisp files using interpreted code.
Do not bind locally the uniquify-possibly-resolvable flag. Use the
cached proposed name is possible.
(uniquify-get-proposed-name): Arguments changed, callers changed.
- (uniquify-rationalize-conflicting-sublist): Explicitely reset the
+ (uniquify-rationalize-conflicting-sublist): Explicitly reset the
uniquify-possibly-resolvable flag, which is no more bound locally.
(uniquify-rename-buffer): Do not set the old unrationalised-buffer
flag, which does not exist any more.
2000-05-25 Kenichi Handa <handa@etl.go.jp>
- * international/mule-conf.el: Specify CHARSET-ID explicitely for
+ * international/mule-conf.el: Specify CHARSET-ID explicitly for
private charsets.
(mule-unicode-0100-24ff, japanese-jisx0213-1,
japanese-jisx0213-2): New charsets.
Each value can be a regexp or a list with a regexp followed by a
substitution string. If it's just a regexp, all its matches are removed
before the text is encrypted. If it's a regexp and a substitution, the
-substition is used against the regexp matches, a la `replace-match'.")
+substitution is used against the regexp matches, a la `replace-match'.")
(make-variable-buffer-local 'allout-encryption-text-removal-regexps)
;;;_ = allout-encryption-ciphertext-rejection-regexps
(defvar allout-encryption-ciphertext-rejection-regexps nil
(if (and (not (eobp))
(or (not (bolp))
(and (not (bobp))
- ;; bolp doesnt detect concealed
+ ;; bolp doesn't detect concealed
;; trailing newlines, compensate:
(save-excursion
(forward-char -1)
;; target integral is not complete (and the time limit has not run out)
;; choose an incomplete integral from the cache and, for every integral
;; appearing in its RHS's, add those integrals to the cache using the
-;; same substitition, parts, etc. rules. The cache should be organized
+;; same substitution, parts, etc. rules. The cache should be organized
;; as a priority queue, choosing the "simplest" incomplete integral at
;; each step, or choosing randomly among equally simple integrals.
;; Simplicity equals small size, and few steps removed from the original
nil
"If non-nil, use a separate face to indicate selected sub-formulas.
If `calc-show-selections' is non-nil, then selected sub-formulas are shown
-by displaying the rest of the formula in `calc-nonselected-face'.
+by displaying the rest of the formula in `calc-nonselected-face'.
If `calc-show-selections' is nil, then selected sub-formulas are shown
by displaying the sub-formula in `calc-selected-face'."
:group 'calc
:group 'calc
:type '(string))
-(defcustom calc-note-threshold "1"
+(defcustom calc-note-threshold "1"
"The number of cents that a frequency should be near a note
to be identified as that note."
:type 'string
:group 'calc)
(defface calc-nonselected-face
- '((t :inherit shadow
+ '((t :inherit shadow
:slant italic))
"Face used to show the non-selected portion of a formula."
:group 'calc)
(if proj
(ede-up-directory (file-name-directory
(oref proj :file)))
- ;; No pre-existing project. Lets take a wild-guess if we have
+ ;; No pre-existing project. Let's take a wild-guess if we have
;; an Emacs project here.
(when (string-match "emacs[^/]*" dir)
(let ((base (substring dir 0 (match-end 0))))
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project."
(or (ede-emacs-file-existing dir)
- ;; Doesn't already exist, so lets make one.
+ ;; Doesn't already exist, so let's make one.
(let* ((vertuple (ede-emacs-version dir)))
(ede-emacs-project (car vertuple)
:name (car vertuple)
(setq ans SP)
(ede-find-subproject-for-directory SP dir)))))
ans)
- ;; We can use inodes, so lets try it.
+ ;; We can use inodes, so let's try it.
(let ((ans nil)
(inode (ede--inode-for-dir dir)))
(ede-map-subprojects
Return nil if there isn't one.
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project."
- ;; Doesn't already exist, so lets make one.
+ ;; Doesn't already exist, so let's make one.
(let* ((alobj ede-constructing)
(this nil))
(when (not alobj) (error "Cannot load generic project without the autoload instance"))
(if proj
(ede-up-directory (file-name-directory
(oref proj :file)))
- ;; No pre-existing project. Lets take a wild-guess if we have
+ ;; No pre-existing project. Let's take a wild-guess if we have
;; an Linux project here.
(when (string-match "linux[^/]*" dir)
(let ((base (substring dir 0 (match-end 0))))
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project."
(or (ede-linux-file-existing dir)
- ;; Doesn't already exist, so lets make one.
+ ;; Doesn't already exist, so let's make one.
(ede-linux-project "Linux"
:name "Linux"
:version (ede-linux-version dir)
;; their object still exists!
;; FIGURE THIS OUT
(project-am-expand-subdirlist 'csubprojexpanded csubproj)
- ;; Ok, now lets look at all our sub-projects.
+ ;; Ok, now let's look at all our sub-projects.
(mapc (lambda (sp)
(let* ((subdir (file-name-as-directory
(expand-file-name
;;(message "%S added to `load-path'" default-directory)
(add-to-list 'load-path default-directory))
;; We get to this point iff we do not accept or there is no
- ;; system file. Lets check the version of what we just
+ ;; system file. Let's check the version of what we just
;; installed... just to be safe.
(let ((newver (inversion-find-version package)))
(if (not newver)
;; For the middle entries
(while s
- ;; Using the tag found in TMP, lets find the tag
+ ;; Using the tag found in TMP, let's find the tag
;; representing the full typeographic information of its
;; type, and use that to determine the search context for
;; (car s)
(let ((d (semantic-tag-docstring tag)))
(when (not d)
(cond ((semantic-tag-with-position-p tag)
- ;; Doc isn't in the tag itself. Lets pull it out of the
+ ;; Doc isn't in the tag itself. Let's pull it out of the
;; sources.
(let ((semantic-elisp-store-documentation-in-tag t))
(setq tag (with-current-buffer (semantic-tag-buffer tag)
(string= (this-command-keys) "\C-i"))
(oset obj typing-count (1+ typing-count)))
;; At this point, we know we have too many items.
- ;; Lets be brave, and truncate l
+ ;; Let's be brave, and truncate l
(setcdr (nthcdr (oref obj max-tags) l) nil)
(setq msg (mapconcat 'identity l "\n"))
(cond
;; Set our end point.
(setq end (point))
- ;; Now that we have gotten started, lets do the rest.
+ ;; Now that we have gotten started, let's do the rest.
(condition-case nil
(while (save-excursion
(forward-char -1)
;JAVE this just instantiates a default empty ebrowse struct?
; how would new instances wind up here?
-; the ebrowse class isnt singleton, unlike the emacs lisp one
+; the ebrowse class isn't singleton, unlike the emacs lisp one
(defvar-mode-local c++-mode semanticdb-project-system-databases
()
"Search Ebrowse for symbols.")
(when (string= (oref (car dbs) reference-directory) directory)
(setq found (car dbs))))
(setq dbs (cdr dbs)))
- ;;STATIC means DBE cant be used as object, only as a class
+ ;;STATIC means DBE can't be used as object, only as a class
(let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory))
(dat (car (cdr ebrowse-data)))
(ebd (car dat))
;JAVE what it actually seems to do is split the original tree in "tables" associated with files
; im not sure it actually works:
; the filename slot sometimes gets to be nil,
-; apparently for classes which definition cant be found, yet needs to be included in the tree
+; apparently for classes which definition can't be found, yet needs to be included in the tree
; like library baseclasses
; a file can define several classes
(let ((T (car (cdr data))));1st comes a header, then the tree
;; find a type/namespace because everything else is excluded.
;; If this is not the last entry from the list, then it
- ;; must be a type or a namespace. Lets double check.
+ ;; must be a type or a namespace. Let's double check.
(when (cdr type)
;; From above, there is only one tag in ans, and we prefer
;; This won't liven up the tag since we have a copy, but
;; we ought to be able to get there and go to the right line.
(find-file-noselect lastfile)
- ;; We don't want to find-file match, so instead lets
+ ;; We don't want to find-file match, so instead let's
;; push the filename onto the return tag.
(when lastans
(setq lastans (semantic-tag-copy lastans nil lastfile))
(setq cache (cdr cache)))
(if obj
obj ;; Just return it.
- ;; No object, lets create a new one and return that.
+ ;; No object, let's create a new one and return that.
(setq obj (funcall desired-class "Cache" :table table))
(object-add-to-list table 'cache obj)
obj)))
(setq cache (cdr cache)))
(if obj
obj ;; Just return it.
- ;; No object, lets create a new one and return that.
+ ;; No object, let's create a new one and return that.
(setq obj (funcall desired-class "Cache" :db db))
(object-add-to-list db 'cache obj)
obj)))
(setq fullfile (file-truename file))
)
- ;; If we have a table, but no fullfile, that's ok. Lets get the filename
+ ;; If we have a table, but no fullfile, that's ok. Let's get the filename
;; from the table which is pre-truenamed.
(when (and (not fullfile) tab)
(setq fullfile (semanticdb-full-filename tab)))
"Refresh any highlighting in buffers referred to by TABLE.
If TABLE is not in a buffer, do nothing."
;; This cache removal may seem odd in that we are "creating one", but
- ;; since we cant get in the fcn unless one exists, this ought to be
+ ;; since we can't get in the fcn unless one exists, this ought to be
;; ok.
(let ((c (semanticdb-cache-get
table 'semantic-decoration-unparsed-include-cache)))
;; Check just before the definition.
(when (semantic-tag-with-position-p tag)
(semantic-documentation-comment-preceeding-tag tag nosnarf))
- ;; Lets look for comments either after the definition, but before code:
+ ;; Let's look for comments either after the definition, but before code:
;; Not sure yet. Fill in something clever later....
nil))))))
(setq list-to-search nil)))
;; Search list is nil.
))
- ;; If we have a search list, lets go. Otherwise nothing.
+ ;; If we have a search list, let's go. Otherwise nothing.
(while (and list-to-search (not found))
(if (cdr list-to-search)
;; We end when the start of the CDR is after the end of our
(doc (semantic-tag-docstring tag buf)))
(when (and (not doc) (not buf) fname)
;; If there is no doc, and no buffer, but we have a filename,
- ;; lets try again.
+ ;; let's try again.
(save-match-data
(setq buf (find-file-noselect fname)))
(setq doc (semantic-tag-docstring tag buf)))
(if (null syms)
(if (semantic-analyze-context-p a)
;; This is a clever hack. If we were unable to find any
- ;; smart completions, lets divert to how senator derives
+ ;; smart completions, let's divert to how senator derives
;; completions.
;;
;; This is a way of making this fcn more useful since
"Jump to DEST, a Semantic tag.
This helper manages the mark, buffer switching, and pulsing."
;; We have a tag, but in C++, we usually get a prototype instead
- ;; because of header files. Lets try to find the actual
- ;; implementaion instead.
+ ;; because of header files. Let's try to find the actual
+ ;; implementation instead.
(when (semantic-tag-prototype-p dest)
(let* ((refs (semantic-analyze-tag-references dest))
(impl (semantic-analyze-refs-impl refs t))
(defun semantic-idle-scheduler-work-parse-neighboring-files ()
"Parse all the files in similar directories to buffers being edited."
- ;; Lets check to see if EDE matters.
+ ;; Let's check to see if EDE matters.
(let ((ede-auto-add-method 'never))
(dolist (a auto-mode-alist)
(when (eq (cdr a) major-mode)
(save-excursion
(goto-char position)
(let ((code-scoped-types nil))
- ;; Lets ask if any types are currently scoped. Scoped
+ ;; Let's ask if any types are currently scoped. Scoped
;; classes and types provide their public methods and types
;; in source code, but are unrelated hierarchically.
(let ((sp (semantic-ctxt-scoped-types)))
;; Analyze the stack of tags we are nested in as parents.
;;
- ;; If we have a pparent tag, lets go there
+ ;; If we have a pparent tag, let's go there
;; an analyze that stack of tags.
(when (and pparent (semantic-tag-with-position-p pparent))
(semantic-go-to-tag pparent)
FILEPATTERN is a string representing find flags for searching file patterns.
GREPFLAGS are flags passed to grep, such as -n or -l.
GREPPATTERN is the pattern used by grep."
- ;; We have grep-compute-defaults. Lets use it.
+ ;; We have grep-compute-defaults. Let's use it.
(grep-compute-defaults)
(let* ((grep-expand-keywords semantic-symref-grep-expand-keywords)
(cmd (grep-expand-template grep-find-template
;; (setq doctag (if docstring sourcetag nil))))
;; (setq tags (cdr tags)))))
;; ;; If we found a prototype of the function that has some doc, but not the
-;; ;; actual function, lets make due with that.
+;; ;; actual function, let's make due with that.
;; (if (not docstring)
;; (cond ((stringp docstringvar)
;; (setq docstring docstringvar
(progn
(srecode-dictionary-show-section new "FIRST")
(srecode-dictionary-show-section new "LAST"))
- ;; Not the very first one. Lets clean up CAR.
+ ;; Not the very first one. Let's clean up CAR.
(let ((tail (car (last ov))))
(srecode-dictionary-hide-section tail "LAST")
(srecode-dictionary-show-section tail "NOTLAST")
(inhibit-modification-hooks t)
)
;; Sometimes a field is deleted, but we might still get a stray
- ;; event. Lets just ignore those events.
+ ;; event. Let's just ignore those events.
(when (slot-boundp field 'overlay)
;; First, fixup the two overlays, in case they got confused.
(let ((main (oref field overlay))
(let ((proj (oref tab :project)))
;; Return t if the project wasn't set.
(if (not proj) t
- ;; If the project directory was set, lets check it.
+ ;; If the project directory was set, let's check it.
(let ((dd (expand-file-name default-directory))
(projexp (regexp-quote (directory-file-name proj))))
(if (string-match (concat "^" projexp) dd)
(if buffer
(progn (set-buffer buffer)
(srecode-texi-texify-docstring string))
- ;; Else, no buffer, so lets do something else
+ ;; Else, no buffer, so let's do something else
(with-mode-local texinfo-mode
(srecode-texi-texify-docstring string)))))
;; This takes a piece of Elisp code, and eliminates all free variables from
;; lambda expressions. The user entry points are cconv-closure-convert and
-;; cconv-closure-convert-toplevel(for toplevel forms).
+;; cconv-closure-convert-toplevel (for toplevel forms).
;; All macros should be expanded beforehand.
;;
;; Here is a brief explanation how this code works.
-;; Firstly, we analyse the tree by calling cconv-analyse-form.
+;; Firstly, we analyze the tree by calling cconv-analyse-form.
;; This function finds all mutated variables, all functions that are suitable
;; for lambda lifting and all variables captured by closure. It passes the tree
;; once, returning a list of three lists.
;;
-;; Then we calculate the intersection of first and third lists returned by
+;; Then we calculate the intersection of the first and third lists returned by
;; cconv-analyse form to find all mutated variables that are captured by
;; closure.
;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the
-;; tree recursivly, lifting lambdas where possible, building closures where it
+;; tree recursively, lifting lambdas where possible, building closures where it
;; is needed and eliminating mutable variables used in closure.
;;
;; We do following replacements :
(let ((cconv-freevars-alist '())
(cconv-lambda-candidates '())
(cconv-captured+mutated '()))
- ;; Analyse form - fill these variables with new information.
+ ;; Analyze form - fill these variables with new information.
(cconv-analyse-form form '())
(setq cconv-freevars-alist (nreverse cconv-freevars-alist))
(cconv-convert form nil nil))) ; Env initially empty.
(defun cconv-analyse-form (form env)
"Find mutated variables and variables captured by closure.
-Analyse lambdas if they are suitable for lambda lifting.
+Analyze lambdas if they are suitable for lambda lifting.
- FORM is a piece of Elisp code after macroexpansion.
- ENV is an alist mapping each enclosing lexical variable to its info.
I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)).
(setq extlst (cons s extlst)
cntlst (cons 1 cntlst)))))
(setq flst (cdr flst)))
- ;; Lets create the chart!
+ ;; Let's create the chart!
(chart-bar-quickie 'vertical "Files Extension Distribution"
extlst "File Extensions"
cntlst "# of occurrences"
;(car (nth 5 data)) ; floats are Emacs only
;(cdr (nth 5 data))
)))
- ;; Lets create the chart!
+ ;; Let's create the chart!
(chart-bar-quickie 'vertical "Emacs Runtime Storage Usage"
names "Storage Items"
nums "Objects")))
(if (fboundp 'x-display-list)
(setq names (append names '("x-displays"))
nums (append nums (list (length (x-display-list))))))
- ;; Lets create the chart!
+ ;; Let's create the chart!
(chart-bar-quickie 'vertical "Emacs List Size Chart"
names "Various Lists"
nums "Objects")))
(put cname 'cl-deftype-handler
(list 'lambda () `(list 'satisfies (quote ,csym)))))
- ;; before adding new slots, lets add all the methods and classes
+ ;; before adding new slots, let's add all the methods and classes
;; in from the parent class
(eieio-copy-parents-into-subclass newc superclasses)
;; Make sure we duplicate those items that are sequences.
(condition-case nil
(if (sequencep d) (setq d (copy-sequence d)))
- ;; This copy can fail on a cons cell with a non-cons in the cdr. Lets skip it if it doesn't work.
+ ;; This copy can fail on a cons cell with a non-cons in the cdr. Let's skip it if it doesn't work.
(error nil))
(if (sequencep type) (setq type (copy-sequence type)))
(if (sequencep cust) (setq cust (copy-sequence cust)))
(c (eieio-slot-name-index class obj slot)))
(if (not c)
;; It might be missing because it is a :class allocated slot.
- ;; Lets check that info out.
+ ;; Let's check that info out.
(if (setq c (eieio-class-slot-name-index class slot))
;; Oref that slot.
(aref (aref (class-v class) class-class-allocation-values) c)
(c (eieio-slot-name-index cl obj slot)))
(if (not c)
;; It might be missing because it is a :class allocated slot.
- ;; Lets check that info out.
+ ;; Let's check that info out.
(if (setq c
(eieio-class-slot-name-index cl slot))
;; Oref that slot.
(let ((c (eieio-slot-name-index (object-class-fast obj) obj slot)))
(if (not c)
;; It might be missing because it is a :class allocated slot.
- ;; Lets check that info out.
+ ;; Let's check that info out.
(if (setq c
(eieio-class-slot-name-index (aref obj object-class) slot))
;; Oset that slot.
(c (eieio-slot-name-index class nil slot)))
(if (not c)
;; It might be missing because it is a :class allocated slot.
- ;; Lets check that info out.
+ ;; Let's check that info out.
(if (setq c (eieio-class-slot-name-index class slot))
(progn
;; Oref that slot.
(progn (goto-char end) (regi-pos 'bonl))
(progn (goto-char start) (regi-pos 'bol)))))
- ;; lets find the special tags and remove them from the working
+ ;; let's find the special tags and remove them from the working
;; frame. note that only the last special tag is used.
(mapc
(function
* (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~
* erc.el: * (erc-mode): Define a proper case-table.
- * (erc-downcase): just call downcase for now, lets see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway...
+ * (erc-downcase): just call downcase for now, let's see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway...
* erc-button.el: * (erc-button-add-buttons): regex-quote the nick
e.g. (\":0.0\" . (287 . 215)).
If `display' equals t, it specifies dimensions for all graphical
-displays not explicitely specified."
+displays not explicitly specified."
:version "22.1"
:type '(alist :key-type (choice (string :tag "Display name")
(const :tag "Default" t))
2011-11-15 Juanma Barranquero <lekktu@gmail.com>
+ * gnus-art.el (gnus-article-part-wrapper):
* shr-color.el (shr-color-visible-distance-min)
(shr-color-relative-to-absolute, set-minimum-interval)
(shr-color-visible): Fix typos.
`gnus-simplify-ignored-prefixes'.
(gnus-summary-set-display-table): Keep TAB.
-1998-01-15 <Use-Author-Address-Header@[127.1]>
+1998-01-15 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus-art.el (gnus-request-article-this-buffer): Put it into the
backlog.
(defun gnus-article-part-wrapper (n function &optional no-handle interactive)
"Call FUNCTION on MIME part N.
-Unless NO-HANDLE, call FUNCTION with N-th MIME handle as it's only argument.
-If INTERACTIVE, call FUNCTION interactivly."
+Unless NO-HANDLE, call FUNCTION with N-th MIME handle as its only argument.
+If INTERACTIVE, call FUNCTION interactively."
(let (window frame)
;; Check whether the article is displayed.
(unless (and (gnus-buffer-live-p gnus-article-buffer)
(while (re-search-forward "^<br>$" nil t)
(delete-region (match-beginning 0) (match-end 0)))
;; Removing lonely <br> on a single line, if they are left intact we
- ;; dont have any paragraphs at all.
+ ;; don't have any paragraphs at all.
(goto-char (point-min))
(while (not (eobp))
(let ((p1 (point)))
(or (not image)
(if (featurep 'xemacs)
;; XEmacs' glyphs can actually tell us about their width, so
- ;; lets be nice and smart about them.
+ ;; let's be nice and smart about them.
(or mm-inline-large-images
(and (<= (glyph-width image) (window-pixel-width))
(<= (glyph-height image) (window-pixel-height))))
mail-parse-charset)
(mm-encode-coding-region (point) (point-max)
mail-parse-charset)))
- ;; We get this when CC'ing messsages to newsgroups with
+ ;; We get this when CC'ing messages to newsgroups with
;; 8-bit names. The group name mail copy just got
;; unconditionally encoded. Previously, it would ask
;; whether to encode, which was quite confusing for the
- ;; user. If the new behavior is wrong, tell me. I have
+ ;; user. If the new behavior is wrong, tell me. I have
;; left the old code commented out below.
;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07.
;; Modified by Dave Love, with the commented-out code changed
"Return a list of files under DIRECTORY.
Strips any leading \"./\" from each filename."
;;(message "hfy-list-files");;DBUG
- ;; FIXME: this changes the dir of the currrent buffer. Is that right??
+ ;; FIXME: this changes the dir of the current buffer. Is that right??
(cd directory)
(mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F))
(split-string (shell-command-to-string hfy-find-cmd))) )
;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from
;; `ctext-non-standard-encodings' and a list specified by the key
-;; `ctext-non-standard-encodings' for the currrent language
+;; `ctext-non-standard-encodings' for the current language
;; environment. CTEXT-USAGE-INFO is one of the element of
;; `ctext-non-standard-encodings-alist' or nil. In the former case, a
;; character in CHARSET is encoded using extended segment. In the
(set-window-dedicated-p win t))
(quail-minibuffer-message
(format " [%s]" current-input-method-title)))
- ;; Show the guidance in the next line of the currrent
+ ;; Show the guidance in the next line of the current
;; minibuffer.
(quail-minibuffer-message
(format " [%s]\n%s"
(defvar isearch-string "") ; The current search string.
(defvar isearch-message "") ; text-char-description version of isearch-string
-(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix
-(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix
+(defvar isearch-message-prefix-add nil) ; Additional text for the message prefix
+(defvar isearch-message-suffix-add nil) ; Additional text for the message suffix
(defvar isearch-success t) ; Searching is currently successful.
(defvar isearch-error nil) ; Error message for failed search.
(if (fboundp 'set-buffer-major-mode)
(set-buffer-major-mode newbufcreated))
(iswitchb-visit-buffer newbufcreated))
- ;; else wont create new buffer
+ ;; else won't create new buffer
(message "no buffer matching `%s'" buf))))
(defun iswitchb-window-buffer-p (buffer)
;; that this email is spam, output the email to the spam
;; rmail file, mark the email for deletion, leave the
;; while loop and return nil so that an rmail summary line
- ;; wont be displayed for this message: (FIXME ?)
+ ;; won't be displayed for this message: (FIXME ?)
(if (and (car maybe-spam) (cdr maybe-spam))
(setq exit-while-loop t)
;; Else, spam was not yet found, proceed to next element
(concat bestmatch "/")
bestmatch)))))
-;; Put these lines uncommmented in your .emacs if you want C-r to refresh
+;; Put these lines uncommented in your .emacs if you want C-r to refresh
;; ange-ftp's cache whilst doing filename completion.
;;
;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir)
;; We used to follow symlinks on `file' here. Apparently it was done
;; because some FTP servers react to "ls foo" by listing the symlink foo
;; rather than the directory it points to. Now that ange-ftp-ls uses
- ;; "cd foo; ls" instead, this is not necesssary any more.
+ ;; "cd foo; ls" instead, this is not necessary any more.
(let ((beg (point))
(end (point-marker)))
(set-marker-insertion-type end t)
(string= (widget-get node1 :tag) (widget-get node2 :tag)))))
(defun newsticker--treeview-do-get-node-of-feed (feed-name startnode)
- "Recursivly search node for feed FEED-NAME starting from STARTNODE."
+ "Recursively search node for feed FEED-NAME starting from STARTNODE."
;;(message "%s/%s" feed-name (widget-get startnode :nt-feed))
(if (string= feed-name (or (widget-get startnode :nt-feed)
(widget-get startnode :nt-vfeed)))
newsticker--treeview-vfeed-tree)))
(defun newsticker--treeview-do-get-node (id startnode)
- "Recursivly search node with ID starting from STARTNODE."
+ "Recursively search node with ID starting from STARTNODE."
(if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id))
(throw 'found startnode)
(let ((children (widget-get startnode :children)))
"Local keymap for a `quickurl-list-mode' buffer.")
(defvar quickurl-list-buffer-name "*quickurl-list*"
- "Name for the URL listinig buffer.")
+ "Name for the URL listing buffer.")
(defvar quickurl-list-last-buffer nil
"`current-buffer' when `quickurl-list' was called.")
(defun secrets-prompt-handler (&rest args)
"Handler for signals emitted by `secrets-interface-prompt'."
;; An empty object path is always identified as `secrets-empty-path'
- ;; or `nil'. Either we set it explicitely, or it is returned by the
+ ;; or `nil'. Either we set it explicitly, or it is returned by the
;; "Completed" signal.
(if (car args) ;; dismissed
(setq secrets-prompt-signal (list secrets-empty-path))
2009-08-06 Bastien Guerry <bzg@altern.org>
- * org.el (org-special-ctrl-a/e): Explicitely bind the value
+ * org.el (org-special-ctrl-a/e): Explicitly bind the value
'reversed for this option to the "true line boundary first"
behavior.
(org-tags-match-list-sublevels): Document the 'indented value for
2008-11-23 Carsten Dominik <carsten.dominik@gmail.com>
* org-export-latex.el (org-export-latex-subcontent):
- Interprete target aliases as additional labels.
+ Interpret target aliases as additional labels.
* org-exp.el (org-export-target-aliases): New variable.
(org-export-preprocess-string)
(org-edit-fixed-width-region): Also try
`org-edit-fixed-width-region'.
(org-edit-fixed-width-region-mode): New option.
- (org-activate-code): Only interprete lines starting with colon
+ (org-activate-code): Only interpret lines starting with colon
plus a space as example lines.
* org-remember.el (org-remember-templates): Add nil instead of
;; they can be run, but haskell code can also be run through an
;; interactive interpreter.
;;
-;; For now lets only allow evaluation using the haskell interpreter.
+;; For now let's only allow evaluation using the haskell interpreter.
;;; Requirements:
(cdr (member org-babel-haskell-eoe
(reverse (mapcar #'org-babel-trim raw)))))))
(org-babel-reassemble-table
- (cond
+ (cond
((equal result-type 'output)
(mapconcat #'identity (reverse (cdr results)) "\n"))
((equal result-type 'value)
;; they can be run, but ocaml code can also be run through an
;; interactive interpreter.
;;
-;; For now lets only allow evaluation using the ocaml interpreter.
+;; For now let's only allow evaluation using the ocaml interpreter.
;;; Requirements:
(lambda (pair) (format "let %s = %s;;" (car pair)
(org-babel-ocaml-elisp-to-ocaml (cdr pair))))
(mapcar #'cdr (org-babel-get-header params :var))))
-
+
(defun org-babel-ocaml-elisp-to-ocaml (val)
"Return a string of ocaml code which evaluates to VAL."
(if (listp val)
;;
;; Also SQL evaluation generally takes place inside of a database.
;;
-;; For now lets just allow a generic ':cmdline' header argument.
+;; For now let's just allow a generic ':cmdline' header argument.
;;
;; TODO:
;;
;; - add more useful header arguments (user, passwd, database, etc...)
;; - support for more engines (currently only supports mysql)
;; - what's a reasonable way to drop table data into SQL?
-;;
+;;
;;; Code:
(require 'ob)
(/ (- tlend ts) 60))
face (or (plist-get pl :overlap-face) face)))
((and (> tlend 0) (> ts (+ tlend (* 60 maxgap))))
- ;; There is a gap, lets see if we need to report it
+ ;; There is a gap, let's see if we need to report it
(unless (org-agenda-check-clock-gap tlend ts gapok)
(setq issue (format "Clocking gap: %d minutes"
(/ (- ts tlend) 60))
(and (re-search-forward org-property-end-re nil t)
(goto-char (match-beginning 0))))
(throw 'exit t))
- ;; Lets count the CLOCK lines
+ ;; Let's count the CLOCK lines
(goto-char beg)
(while (re-search-forward re end t)
(setq first (or first (match-beginning 0))
;;; org-clock.el ends here
-
(condition-case nil
(require 'remember)
(error
- ;; Lets install our own micro version of remember
+ ;; Let's install our own micro version of remember
(defvar remember-register ?R)
(defvar remember-mode-hook nil)
(defvar remember-handler-functions nil)
;;; org-remember.el ends here
-
(string-match "^[a-zA-Z][a-zA-Z0-9]*$" field))
(push (cons field v) org-table-local-parameters)
(push (list field line col) org-table-named-field-locations))))
- ;; Analyse the line types
+ ;; Analyze the line types
(goto-char beg)
(setq org-table-current-begin-line (org-current-line)
org-table-current-begin-pos (point)
duration-output-format nil
fmt (replace-match "" t t fmt)))
(if (string-match "t" fmt)
- (setq duration t
+ (setq duration t
duration-output-format org-table-duration-custom-format
numbers t
fmt (replace-match "" t t fmt)))
;; Insert complex ranges
(while (and (string-match org-table-range-regexp form)
(> (length (match-string 0 form)) 1))
- (setq formrg (save-match-data
+ (setq formrg (save-match-data
(org-table-get-range (match-string 0 form) nil n0)))
(setq formrpl
(save-match-data
;;; org-table.el ends here
-
:help "Promote headings higher up the tree"))
(define-key map [headings move-subtree-down]
'(menu-item "Move Subtree Down" outline-move-subtree-down
- :help "Move the currrent subtree down past arg headlines of the same level"))
+ :help "Move the current subtree down past arg headlines of the same level"))
(define-key map [headings move-subtree-up]
'(menu-item "Move Subtree Up" outline-move-subtree-up
- :help "Move the currrent subtree up past arg headlines of the same level"))
+ :help "Move the current subtree up past arg headlines of the same level"))
(define-key map [headings copy]
'(menu-item "Copy to Kill Ring" outline-headers-as-kill
:enable mark-active
;; Vertical tree motion
(defun outline-move-subtree-up (&optional arg)
- "Move the currrent subtree up past ARG headlines of the same level."
+ "Move the current subtree up past ARG headlines of the same level."
(interactive "p")
(outline-move-subtree-down (- arg)))
(defun outline-move-subtree-down (&optional arg)
- "Move the currrent subtree down past ARG headlines of the same level."
+ "Move the current subtree down past ARG headlines of the same level."
(interactive "p")
(let ((movfunc (if (> arg 0) 'outline-get-next-sibling
'outline-get-last-sibling))
;; This function does hidden buffer changes.
(let ((/point (point)))
(goto-char anchor)
- ;; Analyse the line to find out what the / is.
+ ;; Analyze the line to find out what the / is.
(if (if anchor-state-/div
(not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t))
(search-forward-regexp c-awk-div-sign-re (1+ /point) t))
;; Awk regexps written with help from Peter Galbraith
;; <galbraith@mixing.qc.dfo.ca>.
-;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work
+;; Take GNU Emacs's 'words out of the following regexp-opts. They don't work
;; in XEmacs 21.4.4. acm 2002/9/19.
(defconst awk-font-lock-keywords
(eval-when-compile
(setcar (car elem) 'label))
(setq elem (cdr elem)))
;; some language elements can only be determined by checking
- ;; the following line. Lets first look for ones that can be
+ ;; the following line. Let's first look for ones that can be
;; found when looking on the line with the colon
(setq newlines
(and c-auto-newline
;; `c-parse-state', or nil.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Defuns which analyse the buffer, yet don't change `c-state-cache'.
+;; Defuns which analyze the buffer, yet don't change `c-state-cache'.
(defun c-get-fallback-scan-pos (here)
;; Return a start position for building `c-state-cache' from
;; scratch. This will be at the top level, 2 defuns back.
dcl-block-begin-regexp
dcl-block-end-regexp
Regexps that match command lines that begin and end, respectively,
- a block of commmand lines that will be given extra indentation.
+ a block of command lines that will be given extra indentation.
Command lines between THEN-ELSE-ENDIF are always indented; these variables
make it possible to define other places to indent.
Set to nil to disable this feature.
(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
-arguments, and mapping stops as sson as the shortest list runs
+arguments, and mapping stops as soon as the shortest list runs
out."
(let ((shortest (apply #'min (mapcar #'length seqs))))
(mapcar (lambda (i)
"cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability"
"cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr"
"corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp"
-"cube_table" "cume_dist" "currrent_date" "currrent_timestamp" "cv"
+"cube_table" "cume_dist" "current_date" "current_timestamp" "cv"
"dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml"
"dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob"
"existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set"
(if (fboundp 'start-itimer)
(start-itimer "vhdl-mode" function secs repeat t)
; (run-with-idle-timer secs repeat function)))
- ;; explicitely activate timer (necessary when Emacs is already idle)
+ ;; explicitly activate timer (necessary when Emacs is already idle)
(aset (run-with-idle-timer secs repeat function) 0 nil)))
(defun vhdl-warning-when-idle (&rest args)
(when (> rbot 0)
(set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
;; If cursor just entered the bottom scroll margin, move forward,
- ;; but also vscroll one line so redisplay wont recenter.
+ ;; but also vscroll one line so redisplay won't recenter.
((and (> vpos 0)
(= py (min (- (window-text-height) scroll-margin 1)
(1- vpos))))
(insert "\n")))
(defun reftex-get-restriction (arg docstruct)
- ;; Interprete the prefix ARG and derive index restriction specs.
+ ;; Interpret the prefix ARG and derive index restriction specs.
(let* ((beg (min (point) (or (condition-case nil (mark) (error nil))
(point-max))))
(end (max (point) (or (condition-case nil (mark) (error nil))
(if naked "Naked Label: " "Label: ")
default))
- ;; Lets make sure that this is a valid label
+ ;; Let's make sure that this is a valid label
(cond
((string-match (concat "\\`\\(" (regexp-quote prefix)
(TeX-master-file t)
(error (buffer-file-name))))
((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode
- ((boundp 'TeX-master) ; The variable is defined - lets use it.
+ ((boundp 'TeX-master) ; The variable is defined - let's use it.
(cond
((eq TeX-master t)
(buffer-file-name))
(defun reftex-find-file-externally (file type &optional master-dir)
;; Use external program to find FILE.
;; The program is taken from `reftex-external-file-finders'.
- ;; Interprete relative path definitions starting from MASTER-DIR.
+ ;; Interpret relative path definitions starting from MASTER-DIR.
(let ((default-directory (or master-dir default-directory))
(prg (cdr (assoc type reftex-external-file-finders)))
out)
(with-current-buffer buf
(run-hooks 'reftex-initialize-temporary-buffers))))
- ;; Lets see if we got a license to kill :-|
+ ;; Let's see if we got a license to kill :-|
(and mark-to-kill
(add-to-list 'reftex-buffers-to-kill buf))
+2011-11-15 Juanma Barranquero <lekktu@gmail.com>
+
+ * url-dav.el (url-dav-delete-file): Fix typo.
+
2011-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-async-sentinel): If the server hangs up
;; We need to populate 'time' with
;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ)
- ;; Nobody else handles iso8601 correctly, lets do it ourselves.
+ ;; Nobody else handles iso8601 correctly, let's do it ourselves.
(when (string-match date-re date-string re-start)
(setq year (string-to-number (match-string 1 date-string))
month (string-to-number (match-string 2 date-string))
;; Take care of the default value for depth...
(setq depth (or depth 0))
- ;; Now lets translate it into something webdav can understand.
+ ;; Now let's translate it into something webdav can understand.
(if (< depth 0)
(setq depth "Infinity")
(setq depth (int-to-string depth)))
(setq status (plist-get (cdr result) 'DAV:status))
(if (not (url-dav-http-success-p status))
(signal 'file-error (list "Removing old name"
- "Errror removing"
+ "Error removing"
(car result) status))))
props))
nil)
variables, because of dumping.]
We could potentially generate the relocation data ourselves by making
- two versions of temacs, one with an extra dummmy section before
+ two versions of temacs, one with an extra dummy section before
EMHEAP to offset it, and then compare the dumped executables from
both. That is a lot of work though, and it doesn't solve the problem
of dumped pointers to static variables, which also can be relocated.
}
/* eof */
-
/*
* Using BOX mode.
* Since most drawing routines with arbitrary width lines
- * are slow compared to raster-ops lets use a raster-op to
+ * are slow compared to raster-ops let's use a raster-op to
* draw the boxes.
*/
+2011-11-15 Juanma Barranquero <lekktu@gmail.com>
+
+ * image.c (imagemagick_load_image): Fix typo.
+
2011-11-14 Eli Zaretskii <eliz@gnu.org>
* xdisp.c (display_line): Move the call to
1994-04-28 Michael D. Ernst (mernst@monozygote.research.microsoft.com)
- * fileio.c (inhibit-file-name-handers): Correct documentation.
+ * fileio.c (inhibit-file-name-handlers): Correct documentation.
1994-04-28 Karl Heuer (kwzh@hal.gnu.ai.mit.edu)
1994-03-22 Frederic Pierresteguy (fp@mole.gnu.ai.mit.edu)
* widget.c (set_frame_size): Put #if 0 around a lot of useless code.
- Compute explicitely the geometry of the toplevel widget.
+ Compute explicitly the geometry of the toplevel widget.
Call XtSetValues not XtVaSetValues.
1994-03-22 Richard Stallman (rms@mole.gnu.ai.mit.edu)
(encode_coding_iso2022): New local variable safe_chars. Check
unsafe chars.
(setup_coding_system): Delete the code to initialize
- coding->safe_charses.
+ coding->safe_charsets.
(intersection, find_safe_codings): New functions.
(Ffind_coding_systems_region_internal): New function.
(syms_of_coding): Defsubr it. Initialize Qsafe_chars,
#ifdef DOUG_LEA_MALLOC
pthread_mutexattr_t attr;
- /* GLIBC has a faster way to do this, but lets keep it portable.
+ /* GLIBC has a faster way to do this, but let's keep it portable.
This is according to the Single UNIX Specification. */
pthread_mutexattr_init (&attr);
pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_RECURSIVE);
}
/* The GIF library also defines DrawRectangle, but its never used in Emacs.
- Therefore rename the function so it doesnt collide with ImageMagick. */
+ Therefore rename the function so it doesn't collide with ImageMagick. */
#define DrawRectangle DrawRectangleGif
#include <wand/MagickWand.h>
}
- /* Oddly, the below code doesnt seem to work:*/
+ /* Oddly, the below code doesn't seem to work:*/
/* switch(ximg->bitmap_unit){ */
/* case 8: */
/* pixelwidth=CharPixel; */
/*&(img->pixmap));*/
ximg->data);
#else
- image_error ("You dont have MagickExportImagePixels, upgrade ImageMagick!",
+ image_error ("You don't have MagickExportImagePixels, upgrade ImageMagick!",
Qnil, Qnil);
#endif
}
on_failure_jump_nastyloop,
/* A smart `on_failure_jump' used for greedy * and + operators.
- It analyses the loop before which it is put and if the
+ It analyzes the loop before which it is put and if the
loop does not require backtracking, it changes itself to
`on_failure_keep_string_jump' and short-circuits the loop,
else it just defaults to changing itself into `on_failure_jump'.
(defun semantic-utest-kill-indicator ( killme insertme)
"Kill the line with KILLME on it and insert INSERTME in its place."
(goto-char (point-min))
-; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isnt generic enough for different lagnuages
+; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isn't generic enough for different languages
(re-search-forward killme)
(beginning-of-line)
(setq semantic-utest-last-kill-pos (point))
(defun semantic-utest-last-invalid (name-contents names-removed killme insertme)
"Make the last fcn invalid."
(semantic-utest-kill-indicator killme insertme)
-; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesnt handle skipnames yet
+; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesn't handle skipnames yet
(semantic-utest-unkill-indicator);put back killed stuff
)
projects / emacs.git / commitdiff