Fix typos.
This commit is contained in:
Juanma Barranquero
parent
dcecfb4cb4
commit
c701515351
102 changed files with 192 additions and 168 deletions
|
|
@ -2393,7 +2393,7 @@
|
|||
|
||||
* 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.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,7 @@
|
|||
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.
|
||||
|
|
|
|||
|
|
@ -72,7 +72,7 @@
|
|||
--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
|
||||
|
|
|
|||
|
|
@ -1593,7 +1593,7 @@ case "${window_system}" in
|
|||
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
|
||||
|
|
|
|||
|
|
@ -87,7 +87,7 @@ to create elisp2-aux-vol-added
|
|||
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
|
||||
|
||||
|
|
@ -120,7 +120,7 @@ Be sure that .fn file has no blank lines.
|
|||
% 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
|
||||
|
||||
|
|
|
|||
|
|
@ -18,7 +18,7 @@
|
|||
|
||||
* 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).
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,13 @@
|
|||
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>
|
||||
|
||||
|
|
|
|||
|
|
@ -18105,7 +18105,7 @@ mail sending with @code{nndiary}:
|
|||
@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
|
||||
|
|
|
|||
|
|
@ -6393,7 +6393,7 @@ like this:
|
|||
@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
|
||||
|
|
|
|||
|
|
@ -251,7 +251,7 @@
|
|||
* 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.
|
||||
|
|
|
|||
|
|
@ -427,7 +427,7 @@
|
|||
|
||||
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 '>'.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,16 @@
|
|||
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
|
||||
|
|
@ -491,7 +504,7 @@
|
|||
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>
|
||||
|
||||
|
|
|
|||
|
|
@ -3318,7 +3318,7 @@
|
|||
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.
|
||||
|
|
|
|||
|
|
@ -764,7 +764,7 @@
|
|||
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.
|
||||
|
|
|
|||
|
|
@ -11855,7 +11855,7 @@
|
|||
(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.
|
||||
|
|
@ -11890,7 +11890,7 @@
|
|||
(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.
|
||||
|
|
|
|||
|
|
@ -6724,7 +6724,7 @@
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -3058,7 +3058,7 @@
|
|||
* 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)
|
||||
|
|
@ -12985,7 +12985,7 @@
|
|||
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.
|
||||
|
|
@ -13597,7 +13597,7 @@
|
|||
* 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).
|
||||
|
|
|
|||
|
|
@ -879,7 +879,7 @@
|
|||
* 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'.
|
||||
|
||||
|
|
|
|||
|
|
@ -6815,9 +6815,9 @@
|
|||
`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.
|
||||
|
|
@ -11240,7 +11240,7 @@
|
|||
(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.
|
||||
|
|
@ -11264,9 +11264,9 @@
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -3475,8 +3475,8 @@
|
|||
(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.
|
||||
|
|
@ -9750,11 +9750,11 @@
|
|||
* 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.
|
||||
|
||||
|
|
|
|||
|
|
@ -2030,7 +2030,7 @@
|
|||
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.
|
||||
|
|
@ -17396,7 +17396,7 @@
|
|||
|
||||
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.
|
||||
|
|
|
|||
|
|
@ -1537,7 +1537,7 @@ Entries must be symbols that are bound to the desired values.
|
|||
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
|
||||
|
|
@ -3822,7 +3822,7 @@ Nuances:
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -124,7 +124,7 @@
|
|||
;; 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
|
||||
|
|
@ -428,7 +428,7 @@ in normal mode."
|
|||
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
|
||||
|
|
@ -446,14 +446,14 @@ by displaying the sub-formula in `calc-selected-face'."
|
|||
: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)
|
||||
|
|
|
|||
|
|
@ -63,7 +63,7 @@ DIR is the directory to search from."
|
|||
(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))))
|
||||
|
|
@ -121,7 +121,7 @@ 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."
|
||||
(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)
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ of the anchor file for the project."
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -133,7 +133,7 @@
|
|||
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"))
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@ DIR is the directory to search from."
|
|||
(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))))
|
||||
|
|
@ -101,7 +101,7 @@ 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."
|
||||
(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)
|
||||
|
|
|
|||
|
|
@ -659,7 +659,7 @@ Strip out duplicates, and recurse on variables."
|
|||
;; 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
|
||||
|
|
|
|||
|
|
@ -419,7 +419,7 @@ INSTALLDIR path."
|
|||
;;(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)
|
||||
|
|
|
|||
|
|
@ -287,7 +287,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
|
|||
|
||||
;; 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)
|
||||
|
|
|
|||
|
|
@ -515,7 +515,7 @@ Optional argument NOSNARF is ignored."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -1618,7 +1618,7 @@ Display mechanism using tooltip for a list of possible completions.")
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -410,7 +410,7 @@ Depends on `semantic-type-relation-separator-character'."
|
|||
;; 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)
|
||||
|
|
|
|||
|
|
@ -219,7 +219,7 @@ warn instead."
|
|||
|
||||
;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.")
|
||||
|
|
@ -296,7 +296,7 @@ If there is no database for DIRECTORY available, then
|
|||
(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))
|
||||
|
|
@ -331,7 +331,7 @@ If there is no database for DIRECTORY available, then
|
|||
;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
|
||||
|
|
|
|||
|
|
@ -473,7 +473,7 @@ found tag to be loaded."
|
|||
;; 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
|
||||
|
|
@ -511,7 +511,7 @@ found tag to be loaded."
|
|||
;; 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))
|
||||
|
|
|
|||
|
|
@ -459,7 +459,7 @@ other than :table."
|
|||
(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)))
|
||||
|
|
@ -510,7 +510,7 @@ other than :table."
|
|||
(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)))
|
||||
|
|
@ -941,7 +941,7 @@ DONTLOAD does not affect the creation of new database objects."
|
|||
(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)))
|
||||
|
|
|
|||
|
|
@ -739,7 +739,7 @@ any decorated referring includes.")
|
|||
"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)))
|
||||
|
|
|
|||
|
|
@ -56,7 +56,7 @@ If nosnarf if 'lex, then only return the lex token."
|
|||
;; 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))))))
|
||||
|
||||
|
|
|
|||
|
|
@ -316,7 +316,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -431,7 +431,7 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
|
|||
(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)))
|
||||
|
|
|
|||
|
|
@ -115,7 +115,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
|
|||
(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
|
||||
|
|
@ -251,8 +251,8 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
|
|||
"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))
|
||||
|
|
|
|||
|
|
@ -427,7 +427,7 @@ datasets."
|
|||
|
||||
(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)
|
||||
|
|
|
|||
|
|
@ -186,7 +186,7 @@ Use `semantic-ctxt-scoped-types' to find types."
|
|||
(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)))
|
||||
|
|
@ -249,7 +249,7 @@ are from nesting data 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)
|
||||
|
|
|
|||
|
|
@ -102,7 +102,7 @@ ROOTDIR is the root location to run the `find' from.
|
|||
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
|
||||
|
|
|
|||
|
|
@ -579,7 +579,7 @@ Note: TYPE not yet implemented."
|
|||
;; (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
|
||||
|
|
|
|||
|
|
@ -280,7 +280,7 @@ inserted dictionaries."
|
|||
(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")
|
||||
|
|
|
|||
|
|
@ -338,7 +338,7 @@ PRE-LEN is used in the after mode for the length of the changed text."
|
|||
(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))
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@ If TAB is nil, then always return t."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -231,7 +231,7 @@ This is to take advantage of TeXinfo's markup symbols."
|
|||
(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)))))
|
||||
|
||||
|
|
|
|||
|
|
@ -26,21 +26,21 @@
|
|||
|
||||
;; 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 :
|
||||
|
|
@ -142,7 +142,7 @@ Returns a form where all lambdas don't have any free variables."
|
|||
(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.
|
||||
|
|
@ -581,7 +581,7 @@ FORM is the parent form that binds this var."
|
|||
|
||||
(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)).
|
||||
|
|
|
|||
|
|
@ -634,7 +634,7 @@ SORT-PRED if desired."
|
|||
(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"
|
||||
|
|
@ -693,7 +693,7 @@ SORT-PRED if desired."
|
|||
;(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")))
|
||||
|
|
@ -710,7 +710,7 @@ SORT-PRED if desired."
|
|||
(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")))
|
||||
|
|
|
|||
|
|
@ -553,7 +553,7 @@ See `defclass' for more information."
|
|||
(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)
|
||||
|
||||
|
|
@ -826,7 +826,7 @@ if default value is nil."
|
|||
;; 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)))
|
||||
|
|
@ -1470,7 +1470,7 @@ created by the :initarg tag."
|
|||
(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)
|
||||
|
|
@ -1503,7 +1503,7 @@ Fills in OBJ's SLOT with its default value."
|
|||
(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.
|
||||
|
|
@ -1549,7 +1549,7 @@ Fills in OBJ's SLOT with VALUE."
|
|||
(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.
|
||||
|
|
@ -1581,7 +1581,7 @@ Fills in the default value in CLASS' in SLOT with VALUE."
|
|||
(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.
|
||||
|
|
|
|||
|
|
@ -161,7 +161,7 @@ useful information:
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -1305,7 +1305,7 @@
|
|||
* (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
|
||||
|
||||
|
|
|
|||
|
|
@ -1299,7 +1299,7 @@ Each element of the alist has the form (display . (width . height)),
|
|||
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))
|
||||
|
|
|
|||
|
|
@ -1,5 +1,6 @@
|
|||
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.
|
||||
|
|
|
|||
|
|
@ -2540,7 +2540,7 @@
|
|||
`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.
|
||||
|
|
|
|||
|
|
@ -5418,8 +5418,8 @@ If no internal viewer is available, use an external viewer."
|
|||
|
||||
(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)
|
||||
|
|
|
|||
|
|
@ -410,7 +410,7 @@ fashion, quite close to pure guess-work. It does work in some cases though."
|
|||
(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)))
|
||||
|
|
|
|||
|
|
@ -1494,7 +1494,7 @@ be determined."
|
|||
(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))))
|
||||
|
|
|
|||
|
|
@ -285,11 +285,11 @@ Should be called narrowed to the head of the message."
|
|||
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
|
||||
|
|
|
|||
|
|
@ -1768,7 +1768,7 @@ hyperlinks as appropriate."
|
|||
"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))) )
|
||||
|
|
|
|||
|
|
@ -1566,7 +1566,7 @@ of `ctext-non-standard-encodings-alist'.")
|
|||
|
||||
;; 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
|
||||
|
|
|
|||
|
|
@ -2011,7 +2011,7 @@ minibuffer and the selected frame has no other windows)."
|
|||
(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"
|
||||
|
|
|
|||
|
|
@ -542,8 +542,8 @@ Each set is a vector of the form:
|
|||
(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.
|
||||
|
|
|
|||
|
|
@ -1110,7 +1110,7 @@ Return the modified list with the last element prepended to it."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -317,7 +317,7 @@ it from rmail file. Called for each new message retrieved by
|
|||
;; 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
|
||||
|
|
|
|||
|
|
@ -4027,7 +4027,7 @@ E.g.,
|
|||
(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)
|
||||
|
|
@ -4507,7 +4507,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
|
|||
;; 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)
|
||||
|
|
|
|||
|
|
@ -227,7 +227,7 @@ their id stays constant."
|
|||
(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)))
|
||||
|
|
@ -245,7 +245,7 @@ their id stays constant."
|
|||
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)))
|
||||
|
|
|
|||
|
|
@ -189,7 +189,7 @@ in your ~/.emacs (after loading/requiring quickurl).")
|
|||
"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.")
|
||||
|
|
|
|||
|
|
@ -379,7 +379,7 @@ returned, and it will be stored in `secrets-session-path'."
|
|||
(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))
|
||||
|
|
|
|||
|
|
@ -13808,7 +13808,7 @@
|
|||
|
||||
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
|
||||
|
|
@ -16482,7 +16482,7 @@
|
|||
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)
|
||||
|
|
@ -17290,7 +17290,7 @@
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@
|
|||
;; 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:
|
||||
|
||||
|
|
@ -80,7 +80,7 @@
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@
|
|||
;; 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:
|
||||
|
||||
|
|
@ -99,7 +99,7 @@
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
;;
|
||||
;; 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:
|
||||
;;
|
||||
|
|
@ -40,7 +40,7 @@
|
|||
;; - 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)
|
||||
|
|
|
|||
|
|
@ -5059,7 +5059,7 @@ See also the user option `org-agenda-clock-consistency-checks'."
|
|||
(/ (- 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))
|
||||
|
|
|
|||
|
|
@ -1261,7 +1261,7 @@ line and position cursor in that line."
|
|||
(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))
|
||||
|
|
@ -2641,4 +2641,3 @@ The details of what will be saved are regulated by the variable
|
|||
|
||||
|
||||
;;; org-clock.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1122,7 +1122,7 @@ See also the variable `org-reverse-note-order'."
|
|||
(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)
|
||||
|
|
@ -1153,4 +1153,3 @@ See also the variable `org-reverse-note-order'."
|
|||
|
||||
|
||||
;;; org-remember.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -2204,7 +2204,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
|
|||
(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)
|
||||
|
|
@ -2432,7 +2432,7 @@ not overwrite the stored one."
|
|||
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)))
|
||||
|
|
@ -2500,7 +2500,7 @@ not overwrite the stored one."
|
|||
;; 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
|
||||
|
|
@ -4723,4 +4723,3 @@ list of the fields in the rectangle ."
|
|||
|
||||
|
||||
;;; org-table.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -144,10 +144,10 @@ in the file it applies to."
|
|||
: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
|
||||
|
|
@ -642,12 +642,12 @@ the match data is set appropriately."
|
|||
;; 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))
|
||||
|
|
|
|||
|
|
@ -718,7 +718,7 @@
|
|||
;; 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))
|
||||
|
|
@ -847,7 +847,7 @@
|
|||
|
||||
;; 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
|
||||
|
|
|
|||
|
|
@ -1042,7 +1042,7 @@ reindented unless `c-syntactic-indentation' is nil.
|
|||
(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
|
||||
|
|
|
|||
|
|
@ -2302,7 +2302,7 @@ comment at the start of cc-engine.el for more info."
|
|||
;; `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.
|
||||
|
|
|
|||
|
|
@ -512,7 +512,7 @@ Variables controlling indentation style and extra features:
|
|||
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.
|
||||
|
|
|
|||
|
|
@ -2217,7 +2217,7 @@ Return position where LINE begins."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -1595,7 +1595,7 @@ to add functions and PL/SQL keywords.")
|
|||
"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"
|
||||
|
|
|
|||
|
|
@ -2131,7 +2131,7 @@ Ignore byte-compiler warnings you might see."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -4324,7 +4324,7 @@ lines when the window is horizontally scrolled."
|
|||
(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))))
|
||||
|
|
|
|||
|
|
@ -663,7 +663,7 @@ SPC=view TAB=goto RET=goto+hide [e]dit [q]uit [r]escan [f]ollow [?]Help
|
|||
(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))
|
||||
|
|
|
|||
|
|
@ -206,7 +206,7 @@ This function is controlled by the settings of reftex-insert-label-flags."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -688,7 +688,7 @@ on the menu bar.
|
|||
(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))
|
||||
|
|
@ -1612,7 +1612,7 @@ When DIE is non-nil, throw an error if file not found."
|
|||
(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)
|
||||
|
|
@ -2058,7 +2058,7 @@ When DIE is non-nil, throw an error if file not found."
|
|||
(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))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,7 @@
|
|||
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
|
||||
|
|
|
|||
|
|
@ -117,7 +117,7 @@
|
|||
;; 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))
|
||||
|
|
@ -430,7 +430,7 @@ added to this list, so most requests can just pass in nil."
|
|||
;; 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)))
|
||||
|
|
@ -762,7 +762,7 @@ files in the collection as well."
|
|||
(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)
|
||||
|
|
|
|||
|
|
@ -321,7 +321,7 @@ relocate_offset (DWORD offset,
|
|||
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.
|
||||
|
|
@ -825,4 +825,3 @@ main (int argc, char **argv)
|
|||
}
|
||||
|
||||
/* eof */
|
||||
|
||||
|
|
|
|||
|
|
@ -968,7 +968,7 @@ _XMRefreshSelection(register Display *display, register XMenu *menu, register XM
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,7 @@
|
|||
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
|
||||
|
|
|
|||
|
|
@ -811,7 +811,7 @@
|
|||
|
||||
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)
|
||||
|
||||
|
|
@ -1885,7 +1885,7 @@
|
|||
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)
|
||||
|
|
|
|||
|
|
@ -8409,7 +8409,7 @@
|
|||
(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,
|
||||
|
|
|
|||
|
|
@ -1412,7 +1412,7 @@ uninterrupt_malloc (void)
|
|||
#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);
|
||||
|
|
|
|||
|
|
@ -7552,7 +7552,7 @@ imagemagick_image_p (Lisp_Object object)
|
|||
}
|
||||
|
||||
/* 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>
|
||||
|
||||
|
|
@ -7841,7 +7841,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
|
|||
}
|
||||
|
||||
|
||||
/* 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; */
|
||||
|
|
@ -7870,7 +7870,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
|
|||
/*&(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
|
||||
}
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue