; Fix typos
This commit is contained in:
Stefan Kangas
parent
6082ab9697
commit
16318bfb51
65 changed files with 129 additions and 127 deletions
30
ChangeLog.3
30
ChangeLog.3
|
|
@ -12670,7 +12670,7 @@
|
|||
|
||||
2021-09-03 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Fix `describe-function' for autoloaded adviced functions
|
||||
Fix `describe-function' for autoloaded advised functions
|
||||
|
||||
* lisp/emacs-lisp/nadvice.el (advice--make-single-doc): Factor
|
||||
out.
|
||||
|
|
@ -21063,7 +21063,7 @@
|
|||
Fix prompting for large files when loading literally
|
||||
|
||||
* lisp/files.el (find-file-noselect): Don't include "literally" in
|
||||
the "large file" prompt if we're gonna load literally anyway
|
||||
the "large file" prompt if we're going to load literally anyway
|
||||
(bug#49144).
|
||||
|
||||
2021-06-21 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
|
@ -75941,7 +75941,7 @@
|
|||
|
||||
2020-07-13 Andrea Corallo <akrl@sdf.org>
|
||||
|
||||
Rework the backend to allocate arument arrays for call by references
|
||||
Rework the backend to allocate argument arrays for call by references
|
||||
|
||||
* src/comp.c (comp_t): Add 'zero' field.
|
||||
(emit_limple_call_ref): Allocate an array to host the parameters
|
||||
|
|
@ -79675,7 +79675,7 @@
|
|||
Simply return the directory selected by the user.
|
||||
(project-switch-project-find-file): Remove.
|
||||
(project-switch-project-dired): Rename to project-dired and make
|
||||
it follow the convention of existing projec tcommands.
|
||||
it follow the convention of existing project tcommands.
|
||||
(project-switch-project-eshell): Ditto.
|
||||
(project-switch-project): Instead of passing the project instance
|
||||
to the command, just bind default-directory.
|
||||
|
|
@ -80910,7 +80910,7 @@
|
|||
'lambda_gc_guard' 'lambda_c_name_idx_h' 'data_imp_relocs'
|
||||
'loaded_once' fields.
|
||||
|
||||
* src/comp.c (load_comp_unit): Use compilaiton unit 'loaded_once'
|
||||
* src/comp.c (load_comp_unit): Use compilation unit 'loaded_once'
|
||||
field.
|
||||
(make_subr, Fcomp__register_lambda): New functions.
|
||||
(Fcomp__register_subr): Make use of 'make_subr'.
|
||||
|
|
@ -90740,7 +90740,7 @@
|
|||
|
||||
compute dominator tree
|
||||
|
||||
ssa and endge number generation with generator
|
||||
ssa and edge number generation with generator
|
||||
|
||||
add edge computation
|
||||
|
||||
|
|
@ -140170,7 +140170,7 @@
|
|||
|
||||
* doc/misc/eshell.texi (Built-ins): Fix alias description
|
||||
|
||||
Dear eamcs developers, eshells current documentation first states
|
||||
Dear emacs developers, eshell's current documentation first states
|
||||
that alias definitions are not saved to an alias file, later that
|
||||
they are saved to an alias file. I tested it and the latter is
|
||||
correct.
|
||||
|
|
@ -165960,7 +165960,7 @@
|
|||
cl-loop: Calculate the array length just once
|
||||
|
||||
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause):
|
||||
Dont calculate the array length on each iteration (Bug#29866).
|
||||
Don't calculate the array length on each iteration (Bug#29866).
|
||||
|
||||
2018-01-07 Philipp Stephani <phst@google.com>
|
||||
|
||||
|
|
@ -169297,7 +169297,7 @@
|
|||
2e1b3522b8 Improve documentation of 'line-number-display-width'
|
||||
5b6e59cfdb Implement vc-default-dir-extra-headers for vc-rcs
|
||||
22adeca42a In NEWS give advice on use of `switch-to-buffer' (Bug#28645)
|
||||
2c3e6f1ddc Dont update primary selection with winner-undo
|
||||
2c3e6f1ddc Don't update primary selection with winner-undo
|
||||
b38724ab67 Work around ImageMagick bug 825
|
||||
20cc68e871 Document rectangle-preview option more (Bug#27974)
|
||||
a0b7b301dd Do not reject https://gnu.org in commit messages
|
||||
|
|
@ -172340,7 +172340,7 @@
|
|||
|
||||
* doc/misc/eshell.texi (Built-ins): Fix alias description
|
||||
|
||||
Dear eamcs developers, eshells current documentation first states
|
||||
Dear emacs developers, eshell's current documentation first states
|
||||
that alias definitions are not saved to an alias file, later that
|
||||
they are saved to an alias file. I tested it and the latter is
|
||||
correct.
|
||||
|
|
@ -185296,10 +185296,10 @@
|
|||
2017-10-17 Tino Calancha <tino.calancha@gmail.com>
|
||||
Noam Postavsky <npostavs@gmail.com>
|
||||
|
||||
Dont update primary selection with winner-undo
|
||||
Don't update primary selection with winner-undo
|
||||
|
||||
* lisp/winner.el (winner-set):
|
||||
Dont update primary selection when select-enable-primary
|
||||
Don't update primary selection when select-enable-primary
|
||||
is non-nil (Bug#28631).
|
||||
|
||||
2017-10-17 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
|
@ -195520,7 +195520,7 @@
|
|||
|
||||
Ignore mouse-movement for describe-key-briefly (Bug#12204)
|
||||
|
||||
* lisp/help.el (help-read-key-sequence): Add optional argument ot
|
||||
* lisp/help.el (help-read-key-sequence): Add optional argument to
|
||||
ignore `mouse-movement' events.
|
||||
(describe-key-briefly): Use it.
|
||||
* doc/emacs/help.texi (Key Help):
|
||||
|
|
@ -198690,7 +198690,7 @@
|
|||
(tramp-adb-ls-toolbox-regexp):
|
||||
Ignore addition links column on Android 7.
|
||||
(tramp-adb-get-ls-command):
|
||||
Dont use --color=none when using toybox (Android 7). It's not
|
||||
Don't use --color=none when using toybox (Android 7). It's not
|
||||
possible to disable coloring explicitly for toybox ls.
|
||||
|
||||
2017-05-27 Svante Carl v. Erichsen <Svante.v.Erichsen@web.de> (tiny change)
|
||||
|
|
@ -199186,7 +199186,7 @@
|
|||
|
||||
2017-05-23 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
||||
Don't warn about missing brances on macOS
|
||||
Don't warn about missing branches on macOS
|
||||
|
||||
On macOS, removing -Wmissing-braces is not enough; the warning has to
|
||||
be disabled explicitly.
|
||||
|
|
|
|||
|
|
@ -131,7 +131,7 @@ Names should be as they appear in loaddefs.el.")
|
|||
;; Don't create a file `abbrev-file-name'.
|
||||
(setq save-abbrevs nil)
|
||||
|
||||
;; Avoid compile logs from adviced functions.
|
||||
;; Avoid compile logs from advised functions.
|
||||
(eval-after-load "bytecomp"
|
||||
'(setq ad-default-compilation-action 'never))
|
||||
|
||||
|
|
|
|||
|
|
@ -126,7 +126,7 @@ variable
|
|||
: SET symbol insertable-string-list newline
|
||||
(VARIABLE-TAG $2 nil $3)
|
||||
| SET symbol number newline
|
||||
;; This so a common error w/ priority works.
|
||||
;; This so a common error with priority works.
|
||||
;; Note that "number" still has a string value in the lexer.
|
||||
(VARIABLE-TAG $2 nil (list $3))
|
||||
| SHOW symbol newline
|
||||
|
|
|
|||
|
|
@ -41,7 +41,7 @@
|
|||
;;
|
||||
;; will show you any references to `change-log-date-face' in the
|
||||
;; *.el files in a new buffer (in Grep mode). Hopefully you see
|
||||
;; only the obsolete declaration and can proceed w/ its removal.
|
||||
;; only the obsolete declaration and can proceed with its removal.
|
||||
;; If not, please DTRT and refrain from the removal until those
|
||||
;; references are properly transitioned.
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -73,7 +73,7 @@ the ones that are not reproducible on the current release.
|
|||
know if you are able to? If I don't hear back in a few
|
||||
weeks, I'll just close this bug as unreproducible."
|
||||
[ ] Check that the priority is reasonable. Most bugs should be
|
||||
marked as normal, but crashers and security issues can be
|
||||
marked as normal, but crashes and security issues can be
|
||||
marked as serious.
|
||||
3. Your changes will take some time to take effect. After a period of minutes
|
||||
to hours, you will get a mail telling you the control message has been
|
||||
|
|
|
|||
|
|
@ -2536,7 +2536,7 @@ Call this when a user finishes customizing @var{TARGET}.
|
|||
@end deffn
|
||||
|
||||
@deffn Method project-edit-file-target :AFTER ot
|
||||
Edit the target @var{OT} associated w/ this file.
|
||||
Edit the target @var{OT} associated with this file.
|
||||
@end deffn
|
||||
|
||||
@deffn Method ede-documentation :AFTER this
|
||||
|
|
@ -3563,7 +3563,7 @@ Run the current project in the debugger.
|
|||
@end deffn
|
||||
|
||||
@deffn Method project-edit-file-target :AFTER obj
|
||||
Edit the target associated w/ this file.
|
||||
Edit the target associated with this file.
|
||||
@end deffn
|
||||
|
||||
@node project-am-objectcode
|
||||
|
|
|
|||
|
|
@ -16569,7 +16569,7 @@ identifying a reference in the bibliography.
|
|||
|
||||
- Each key can be qualified by a /prefix/ (e.g.\nbsp{}"see ") and/or
|
||||
a /suffix/ (e.g.\nbsp{}"p.\nbsp{}123"), giving information useful or necessary
|
||||
fo the comprehension of the citation but not included in the
|
||||
for the comprehension of the citation but not included in the
|
||||
reference.
|
||||
|
||||
- A single citation can cite more than one reference ; the keys are
|
||||
|
|
|
|||
|
|
@ -1595,7 +1595,7 @@ from a user perspective during basic interactive insertion via
|
|||
|
||||
NOTES ON THIS CHAPTER:
|
||||
|
||||
These conventions are being worked on. Check w/ CEDET-DEVEL mailing
|
||||
These conventions are being worked on. Check with CEDET-DEVEL mailing
|
||||
list if you want to support a language, or write an application and
|
||||
provide your opinions on this topic. Any help is appreciated.
|
||||
|
||||
|
|
|
|||
|
|
@ -206,7 +206,7 @@ Release History
|
|||
keys, fix border and box drawing, remove
|
||||
glitches in modeline drawing, support
|
||||
overstrike for unavailable bold fonts, fix XPM
|
||||
related crasher bugs. Incremental font
|
||||
related crashes. Incremental font
|
||||
metrics caching and other performance
|
||||
improvements. Shared-lisp builds now possible.
|
||||
|
||||
|
|
|
|||
|
|
@ -39,7 +39,7 @@ Ansi-Color faces are included."
|
|||
(bluegreen "#009e73")
|
||||
(yellow "#f8ec59")
|
||||
(blue "#0072b2")
|
||||
(vermillion "#d55e00")
|
||||
(vermilion "#d55e00")
|
||||
(redpurple "#cc79a7")
|
||||
(bluegray "#848ea9"))
|
||||
(custom-theme-set-faces
|
||||
|
|
@ -51,9 +51,9 @@ Ansi-Color faces are included."
|
|||
`(highlight ((,class (:foreground ,blue :background "#e5e5e5"))))
|
||||
`(region ((,class (:foreground unspecified :background ,yellow))))
|
||||
`(secondary-selection ((,class (:background "#e5e5e5"))))
|
||||
`(isearch ((,class (:foreground "white" :background ,vermillion))))
|
||||
`(isearch ((,class (:foreground "white" :background ,vermilion))))
|
||||
`(lazy-highlight ((,class (:foreground "white" :background ,redpurple))))
|
||||
`(trailing-whitespace ((,class (:background ,vermillion))))
|
||||
`(trailing-whitespace ((,class (:background ,vermilion))))
|
||||
;; Mode line faces
|
||||
`(mode-line ((,class (:box (:line-width -1 :style released-button)
|
||||
:background "#e5e5e5" :foreground "black"))))
|
||||
|
|
@ -62,17 +62,17 @@ Ansi-Color faces are included."
|
|||
:foreground "black"))))
|
||||
;; Escape and prompt faces
|
||||
`(minibuffer-prompt ((,class (:weight bold :foreground ,blue))))
|
||||
`(escape-glyph ((,class (:foreground ,vermillion))))
|
||||
`(homoglyph ((,class (:foreground ,vermillion))))
|
||||
`(escape-glyph ((,class (:foreground ,vermilion))))
|
||||
`(homoglyph ((,class (:foreground ,vermilion))))
|
||||
`(error ((,class (:weight bold :slant italic
|
||||
:foreground ,vermillion))))
|
||||
:foreground ,vermilion))))
|
||||
`(warning ((,class (:foreground ,orange))))
|
||||
`(success ((,class (:foreground ,bluegreen))))
|
||||
;; Font lock faces
|
||||
`(font-lock-builtin-face ((,class (:foreground ,blue))))
|
||||
`(font-lock-comment-face ((,class (:slant italic :foreground ,bluegreen))))
|
||||
`(font-lock-constant-face ((,class (:weight bold :foreground ,vermillion))))
|
||||
`(font-lock-function-name-face ((,class (:foreground ,vermillion))))
|
||||
`(font-lock-constant-face ((,class (:weight bold :foreground ,vermilion))))
|
||||
`(font-lock-function-name-face ((,class (:foreground ,vermilion))))
|
||||
`(font-lock-keyword-face ((,class (:weight bold :foreground ,skyblue))))
|
||||
`(font-lock-string-face ((,class (:foreground ,bluegray))))
|
||||
`(font-lock-type-face ((,class (:weight bold :foreground ,blue))))
|
||||
|
|
@ -81,8 +81,8 @@ Ansi-Color faces are included."
|
|||
`(link ((,class (:underline t :foreground ,blue))))
|
||||
`(link-visited ((,class (:underline t :foreground ,redpurple))))
|
||||
;; Gnus faces
|
||||
`(gnus-group-news-1 ((,class (:weight bold :foreground ,vermillion))))
|
||||
`(gnus-group-news-1-low ((,class (:foreground ,vermillion))))
|
||||
`(gnus-group-news-1 ((,class (:weight bold :foreground ,vermilion))))
|
||||
`(gnus-group-news-1-low ((,class (:foreground ,vermilion))))
|
||||
`(gnus-group-news-2 ((,class (:weight bold :foreground ,orange))))
|
||||
`(gnus-group-news-2-low ((,class (:foreground ,orange))))
|
||||
`(gnus-group-news-3 ((,class (:weight bold :foreground ,skyblue))))
|
||||
|
|
@ -92,8 +92,8 @@ Ansi-Color faces are included."
|
|||
`(gnus-group-news-5 ((,class (:weight bold :foreground ,blue))))
|
||||
`(gnus-group-news-5-low ((,class (:foreground ,blue))))
|
||||
`(gnus-group-news-low ((,class (:foreground ,bluegreen))))
|
||||
`(gnus-group-mail-1 ((,class (:weight bold :foreground ,vermillion))))
|
||||
`(gnus-group-mail-1-low ((,class (:foreground ,vermillion))))
|
||||
`(gnus-group-mail-1 ((,class (:weight bold :foreground ,vermilion))))
|
||||
`(gnus-group-mail-1-low ((,class (:foreground ,vermilion))))
|
||||
`(gnus-group-mail-2 ((,class (:weight bold :foreground ,orange))))
|
||||
`(gnus-group-mail-2-low ((,class (:foreground ,orange))))
|
||||
`(gnus-group-mail-3 ((,class (:weight bold :foreground ,skyblue))))
|
||||
|
|
@ -103,13 +103,13 @@ Ansi-Color faces are included."
|
|||
`(gnus-header-from ((,class (:weight bold :foreground ,blue))))
|
||||
`(gnus-header-subject ((,class (:foreground ,orange))))
|
||||
`(gnus-header-name ((,class (:foreground ,skyblue))))
|
||||
`(gnus-header-newsgroups ((,class (:foreground ,vermillion))))
|
||||
`(gnus-header-newsgroups ((,class (:foreground ,vermilion))))
|
||||
;; Image-Dired
|
||||
`(image-dired-thumb-flagged ((,class (:background ,vermillion))))
|
||||
`(image-dired-thumb-flagged ((,class (:background ,vermilion))))
|
||||
`(image-dired-thumb-mark ((,class (:background ,orange))))
|
||||
;; Message faces
|
||||
`(message-header-name ((,class (:foreground ,skyblue))))
|
||||
`(message-header-cc ((,class (:foreground ,vermillion))))
|
||||
`(message-header-cc ((,class (:foreground ,vermilion))))
|
||||
`(message-header-other ((,class (:foreground ,bluegreen))))
|
||||
`(message-header-subject ((,class (:foreground ,orange))))
|
||||
`(message-header-to ((,class (:weight bold :foreground ,blue))))
|
||||
|
|
@ -122,8 +122,8 @@ Ansi-Color faces are included."
|
|||
:slant unspecified :underline ,redpurple))))
|
||||
;; ANSI color
|
||||
`(ansi-color-black ((,class (:background "black" :foreground "black"))))
|
||||
`(ansi-color-red ((,class (:background ,vermillion
|
||||
:foreground ,vermillion))))
|
||||
`(ansi-color-red ((,class (:background ,vermilion
|
||||
:foreground ,vermilion))))
|
||||
`(ansi-color-green ((,class (:background ,bluegreen
|
||||
:foreground ,bluegreen))))
|
||||
`(ansi-color-yellow ((,class (:background ,yellow :foreground ,yellow))))
|
||||
|
|
@ -134,8 +134,8 @@ Ansi-Color faces are included."
|
|||
`(ansi-color-white ((,class (:background "gray90" :foreground "gray90"))))
|
||||
`(ansi-color-bright-black ((,class (:background "black"
|
||||
:foreground "black"))))
|
||||
`(ansi-color-bright-red ((,class (:background ,vermillion
|
||||
:foreground ,vermillion))))
|
||||
`(ansi-color-bright-red ((,class (:background ,vermilion
|
||||
:foreground ,vermilion))))
|
||||
`(ansi-color-bright-green ((,class (:background ,bluegreen
|
||||
:foreground ,bluegreen))))
|
||||
`(ansi-color-bright-yellow ((,class (:background ,yellow
|
||||
|
|
|
|||
|
|
@ -5551,7 +5551,7 @@
|
|||
(cperl-next-interpolated-REx-1): Likewise.
|
||||
"\C-c\C-x", "\C-c\C-y", "\C-c\C-v": New keybinding for these functions.
|
||||
Perl/Regexp menu: 3 new entries for `cperl-next-interpolated-REx'.
|
||||
(cperl-praise): Mention finded interpolated RExen.
|
||||
(cperl-praise): Mention finding interpolated RExen.
|
||||
|
||||
After 5.19:
|
||||
(cperl-init-faces): Highlight %$foo, @$foo too.
|
||||
|
|
|
|||
|
|
@ -22575,7 +22575,7 @@
|
|||
|
||||
2009-06-28 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* help-fns.el (describe-function-1): Correctly locate adviced
|
||||
* help-fns.el (describe-function-1): Correctly locate advised
|
||||
functions in hyperlink (Bug#2438).
|
||||
|
||||
2009-06-28 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
|
|
|||
|
|
@ -10931,7 +10931,7 @@
|
|||
|
||||
2012-05-29 Aaron S. Hawley <aaron.s.hawley@gmail.com>
|
||||
|
||||
* vc/vc.el (vc-revert, vc-rollback): Dont kill vc-diff buffer on
|
||||
* vc/vc.el (vc-revert, vc-rollback): Don't kill vc-diff buffer on
|
||||
revert (Bug#11488).
|
||||
|
||||
2012-05-29 Juri Linkov <juri@jurta.org>
|
||||
|
|
|
|||
|
|
@ -1546,7 +1546,7 @@
|
|||
(ede-proj-makefile-dependencies): Update pattern rule so that
|
||||
resulting parsers are also byte-compiled.
|
||||
(semantic-ede-grammar-compiler-bovine)
|
||||
(semantic-ede-source-grammar-wisent): Remove .elc from gargage
|
||||
(semantic-ede-source-grammar-wisent): Remove .elc from garbage
|
||||
pattern, since this is already covered by the elisp compiler.
|
||||
(project-compile-target): Add compatibility code for Emacs 23,
|
||||
which does not have `byte-recompile-file'.
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
;; SOURCE always keep in the order of .c, .h, the other stuff.
|
||||
|
||||
;;; Things to do
|
||||
;; makefile-fill-paragraph -- refill a macro w/ backslashes
|
||||
;; makefile-fill-paragraph -- refill a macro with backslashes
|
||||
;; makefile-insert-macro -- insert "foo = "
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
(autoload 'ede-proj-target-scheme "ede/proj-scheme"
|
||||
"Target class for a group of lisp files." nil nil)
|
||||
(autoload 'ede-proj-target-makefile-miscelaneous "ede/proj-misc"
|
||||
"Target class for a group of miscellaneous w/ a special makefile." nil nil)
|
||||
"Target class for a group of miscellaneous with a special makefile." nil nil)
|
||||
(autoload 'ede-proj-target-makefile-program "ede/proj-prog"
|
||||
"Target class for building a program." nil nil)
|
||||
(autoload 'ede-proj-target-makefile-archive "ede/proj-archive"
|
||||
|
|
@ -67,7 +67,7 @@
|
|||
"Target class for a group of lisp files.")
|
||||
(eieio-defclass-autoload 'ede-proj-target-makefile-miscelaneous '(ede-proj-target-makefile)
|
||||
"ede/proj-misc"
|
||||
"Target class for a group of miscellaneous w/ a special makefile.")
|
||||
"Target class for a group of miscellaneous with a special makefile.")
|
||||
(eieio-defclass-autoload 'ede-proj-target-makefile-program '(ede-proj-target-makefile-objectcode)
|
||||
"ede/proj-prog"
|
||||
"Target class for building a program.")
|
||||
|
|
|
|||
|
|
@ -195,7 +195,7 @@ other meta-variable based on this name.")
|
|||
"Add the current buffer into a project.
|
||||
_FILE is ignored.
|
||||
OT is the object target. DIR is the directory to start in."
|
||||
(let* ((target (if ede-object (error "Already associated w/ a target")
|
||||
(let* ((target (if ede-object (error "Already associated with a target")
|
||||
(let ((amf (project-am-load default-directory)))
|
||||
(if (not amf) (error "No project file"))
|
||||
(completing-read "Target: "
|
||||
|
|
@ -231,7 +231,7 @@ OT is the object target. DIR is the directory to start in."
|
|||
(setq ede-object nil))
|
||||
|
||||
(cl-defmethod project-edit-file-target ((obj project-am-target))
|
||||
"Edit the target associated w/ this file."
|
||||
"Edit the target associated with this file."
|
||||
(find-file (concat (oref obj path) "Makefile.am"))
|
||||
(goto-char (point-min))
|
||||
(makefile-move-to-macro (project-am-macro obj))
|
||||
|
|
|
|||
|
|
@ -186,13 +186,13 @@ during a flush when the cache is given a new value of nil.")
|
|||
"State of the current parse tree.")
|
||||
|
||||
(defmacro semantic-parse-tree-unparseable ()
|
||||
"Indicate that the current buffer is unparseable.
|
||||
"Indicate that the current buffer is unparsable.
|
||||
It is also true that the parse tree will need either updating or
|
||||
a rebuild. This state will be changed when the user edits the buffer."
|
||||
'(setq semantic-parse-tree-state 'unparseable))
|
||||
|
||||
(defmacro semantic-parse-tree-unparseable-p ()
|
||||
"Return non-nil if the current buffer has been marked unparseable."
|
||||
"Return non-nil if the current buffer has been marked unparsable."
|
||||
'(eq semantic-parse-tree-state 'unparseable))
|
||||
|
||||
(defmacro semantic-parse-tree-set-needs-update ()
|
||||
|
|
@ -528,14 +528,14 @@ If the buffer cache is out of date, attempt an incremental reparse.
|
|||
If the buffer has not been parsed before, or if the incremental reparse
|
||||
fails, then parse the entire buffer.
|
||||
If a lexical error had been previously discovered and the buffer
|
||||
was marked unparseable, then do nothing, and return the cache."
|
||||
was marked unparsable, then do nothing, and return the cache."
|
||||
(and
|
||||
;; Is this a semantic enabled buffer?
|
||||
(semantic-active-p)
|
||||
;; Application hooks say the buffer is safe for parsing
|
||||
(run-hook-with-args-until-failure
|
||||
'semantic--before-fetch-tags-hook)
|
||||
;; If the buffer was previously marked unparseable,
|
||||
;; If the buffer was previously marked unparsable,
|
||||
;; then don't waste our time.
|
||||
(not (semantic-parse-tree-unparseable-p))
|
||||
;; The parse tree actually needs to be refreshed
|
||||
|
|
@ -606,7 +606,7 @@ Does nothing if the current buffer doesn't need reparsing."
|
|||
;; do them here, then all the bovination hooks are not run, and
|
||||
;; we save lots of time.
|
||||
(cond
|
||||
;; If the buffer was previously marked unparseable,
|
||||
;; If the buffer was previously marked unparsable,
|
||||
;; then don't waste our time.
|
||||
((semantic-parse-tree-unparseable-p)
|
||||
nil)
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ Return the string representing the compound name.")
|
|||
"For a SEQUENCE of tags, all with good names, pick the best one.
|
||||
If SEQUENCE is made up of namespaces, merge the namespaces together.
|
||||
If SEQUENCE has several prototypes, find the non-prototype.
|
||||
If SEQUENCE has some items w/ no type information, find the one with a type.
|
||||
If SEQUENCE has some items with no type information, find the one with a type.
|
||||
If SEQUENCE is all prototypes, or has no prototypes, get the first one.
|
||||
Optional TAGCLASS indicates to restrict the return to only
|
||||
tags of TAGCLASS."
|
||||
|
|
|
|||
|
|
@ -1344,7 +1344,7 @@ Optional argument STAR and REF indicate the number of * and & in the typedef."
|
|||
:reentrant-flag (if (member "reentrant" (nth 6 tokenpart)) t)
|
||||
;; A function post-const is funky. Try stuff
|
||||
:methodconst-flag (if (member "const" (nth 6 tokenpart)) t)
|
||||
;; prototypes are functions w/ no body
|
||||
;; prototypes are functions with no body
|
||||
:prototype-flag (if (nth 8 tokenpart) t)
|
||||
;; Pure virtual
|
||||
:pure-virtual-flag (if (eq (nth 8 tokenpart) :pure-virtual-flag) t)
|
||||
|
|
@ -2015,7 +2015,7 @@ have to be wrapped in that namespace."
|
|||
(setq txt (concat txt (format "%S" arg)))
|
||||
(setq sv (cdr sv)))
|
||||
|
||||
;; This is optional, and potentially fraught w/ errors.
|
||||
;; This is optional, and potentially fraught with errors.
|
||||
(condition-case nil
|
||||
(dolist (lt sv)
|
||||
(setq txt (concat txt " " (semantic-lex-token-text lt))))
|
||||
|
|
|
|||
|
|
@ -667,7 +667,7 @@ Similar to `minibuffer-contents' when completing in the minibuffer."
|
|||
)
|
||||
(delete-overlay semantic-complete-inline-overlay)
|
||||
(setq semantic-complete-inline-overlay nil)
|
||||
;; DONT restore the window configuration if we just
|
||||
;; DON'T restore the window configuration if we just
|
||||
;; switched windows!
|
||||
(when (eq buf (current-buffer))
|
||||
(set-window-configuration wc))
|
||||
|
|
|
|||
|
|
@ -275,7 +275,7 @@ For instance: /home/<username>/.semanticdb/!usr!include!BROWSE"
|
|||
(let ((ans nil)
|
||||
(efcn (symbol-function 'ebrowse-show-progress)))
|
||||
(fset 'ebrowse-show-progress (lambda (&rest _junk) nil))
|
||||
(unwind-protect ;; Protect against errors w/ ebrowse
|
||||
(unwind-protect ; Protect against errors with ebrowse
|
||||
(setq ans (list B (ebrowse-read)))
|
||||
;; These items must always happen
|
||||
(erase-buffer)
|
||||
|
|
|
|||
|
|
@ -1277,7 +1277,7 @@ associated with that tag should be loaded into a buffer."
|
|||
;;; Specialty Search Routines
|
||||
(defun semanticdb-find-tags-external-children-of-type
|
||||
(type &optional path find-file-match)
|
||||
"Search for all tags defined outside of TYPE w/ TYPE as a parent.
|
||||
"Search for all tags defined outside of TYPE with TYPE as a parent.
|
||||
See `semanticdb-find-translate-path' for details on PATH.
|
||||
FIND-FILE-MATCH indicates that any time a match is found, the file
|
||||
associated with that tag should be loaded into a buffer."
|
||||
|
|
|
|||
|
|
@ -330,7 +330,7 @@ This mode provides a nice context menu on the include statements."
|
|||
)
|
||||
))
|
||||
|
||||
;; @TODO - if not a tag w/ a position, we need to get one. How?
|
||||
;; @TODO - if not a tag with a position, we need to get one. How?
|
||||
|
||||
(when (semantic-tag-with-position-p tag)
|
||||
(let ((ol (semantic-decorate-tag tag
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@
|
|||
;; of themselves that can be edited w/out affecting the definition of
|
||||
;; that tag.
|
||||
;;
|
||||
;; 2. Tags w/ positioned children could have a property of an
|
||||
;; 2. Tags with positioned children could have a property of an
|
||||
;; overlay marking the region in themselves that contain the
|
||||
;; children. This could be used to better improve splicing near
|
||||
;; the beginning and end of the child lists.
|
||||
|
|
|
|||
|
|
@ -396,7 +396,7 @@ Uses `semantic-idle-work-for-on-buffer' to do the work."
|
|||
(semanticdb-save-all-db-idle)
|
||||
)
|
||||
|
||||
;; Done w/ processing
|
||||
;; Done with processing
|
||||
nil))))
|
||||
|
||||
;; Done
|
||||
|
|
|
|||
|
|
@ -577,7 +577,7 @@ such as `public' or `private'."
|
|||
(if (semantic-tag-file-name TAG)
|
||||
;; If it has a filename, just go with it...
|
||||
(setq copyslots (cons TAG copyslots))
|
||||
;; Otherwise, copy the tag w/ the guessed filename.
|
||||
;; Otherwise, copy the tag with the guessed filename.
|
||||
(setq copyslots (cons (semantic-tag-copy TAG nil fname)
|
||||
copyslots)))
|
||||
)
|
||||
|
|
|
|||
|
|
@ -51,7 +51,7 @@ Display the references in `semantic-symref-results-mode'."
|
|||
(let ((ct (semantic-current-tag)))
|
||||
;; Must have a tag...
|
||||
(when (not ct) (error "Place cursor inside tag to be searched for"))
|
||||
;; Check w/ user.
|
||||
;; Check with user.
|
||||
(when (not (y-or-n-p (format "Find references for %s? "
|
||||
(semantic-tag-name ct))))
|
||||
(error "Quit"))
|
||||
|
|
|
|||
|
|
@ -133,7 +133,7 @@ symbol whose value is such a string."
|
|||
semantic-minor-mode-alist))))
|
||||
(semantic-mode-line-update)
|
||||
|
||||
;; Semantic minor modes don't work w/ Desktop restore.
|
||||
;; Semantic minor modes don't work with Desktop restore.
|
||||
;; This line will disable this minor mode from being restored
|
||||
;; by Desktop.
|
||||
(when (boundp 'desktop-minor-mode-handlers)
|
||||
|
|
|
|||
|
|
@ -29,7 +29,8 @@
|
|||
;;
|
||||
;;; Origins:
|
||||
;;
|
||||
;; Document was first written w/ cparse, a custom regexp based c parser.
|
||||
;; Document was first written with cparse, a custom regexp based c
|
||||
;; parser.
|
||||
;;
|
||||
;; Document was then ported to cedet/semantic using sformat (super
|
||||
;; format) as the templating engine.
|
||||
|
|
|
|||
|
|
@ -219,7 +219,7 @@ Return nil if nothing was extracted."
|
|||
;; With a name, do the insertion.
|
||||
(let ((subdict (srecode-dictionary-add-section-dictionary
|
||||
dict (oref ins object-name))))
|
||||
(error "Need to implement include w/ name extractor")
|
||||
(error "Need to implement include with name extractor")
|
||||
;; Recurse into the new template while no errors.
|
||||
(while (condition-case nil
|
||||
(progn
|
||||
|
|
|
|||
|
|
@ -43,8 +43,8 @@
|
|||
|
||||
;;; The SEMANTIC TAG inserter
|
||||
;;
|
||||
;; Put a tag into the dictionary that can be used w/ arbitrary
|
||||
;; lisp expressions.
|
||||
;; Put a tag into the dictionary that can be used with arbitrary
|
||||
;; Lisp expressions.
|
||||
|
||||
(defclass srecode-semantic-tag (srecode-dictionary-compound-value)
|
||||
((prime :initarg :prime
|
||||
|
|
|
|||
|
|
@ -2265,8 +2265,8 @@ buffer, otherwise stop after the first error."
|
|||
(unless (and sym (or (boundp sym) (fboundp sym)))
|
||||
;; Find out how we spell-check this word.
|
||||
(unless (or
|
||||
;; All caps w/ option th, or s tacked on the end
|
||||
;; for pluralization or number.
|
||||
;; All caps with option th, or s tacked on the
|
||||
;; end for pluralization or number.
|
||||
(string-match "^[A-Z][A-Z]+\\(s\\|th\\)?$" word)
|
||||
(looking-at "}") ; a keymap expression
|
||||
)
|
||||
|
|
|
|||
|
|
@ -659,7 +659,7 @@ Optional argument BACKEND specifies the VC backend to use for cloning
|
|||
the package's repository; this is only possible if NAME-OR-URL is a URL,
|
||||
a string. If BACKEND is omitted or nil, the function
|
||||
uses `package-vc-heuristic-alist' to guess the backend.
|
||||
Note that by default, a source package will be prioritised over a
|
||||
Note that by default, a source package will be prioritized over a
|
||||
regular package, but it will not remove a source package."
|
||||
(interactive
|
||||
(progn
|
||||
|
|
|
|||
|
|
@ -11075,7 +11075,8 @@
|
|||
stay at your current version. It seems fairly stable though.
|
||||
That changed? erc-buffer-name handling was completely rewritten,
|
||||
and erc-buffer-list local variable handling removed.
|
||||
Simplifies alot of code. Poke at it. read the diff. report bug/send patches!
|
||||
Simplifies a lot of code. Poke at it. Read the diff. Report
|
||||
bug/send patches!
|
||||
|
||||
* erc.el: * Added variable listing when /set is used without args
|
||||
|
||||
|
|
@ -11448,7 +11449,7 @@
|
|||
2001-10-03 Mario Lang <mlang@delysid.org>
|
||||
|
||||
* erc.el:
|
||||
* Removed alot of (progn ...) where they were not necessary
|
||||
* Removed a lot of (progn ...) where they were not necessary
|
||||
* Changed some (if ...) without else part to (when ...)
|
||||
* Some (while ...) to use (dolist ...)
|
||||
* Fix for completion popup generating tracebacks.
|
||||
|
|
|
|||
|
|
@ -552,7 +552,7 @@ See the variable `eshell-kill-processes-on-exit'."
|
|||
(setq sigs (cdr sigs))))))
|
||||
|
||||
(defun eshell-query-kill-processes ()
|
||||
"Kill processes belonging to the current Eshell buffer, possibly w/ query."
|
||||
"Kill processes belonging to the current Eshell buffer, possibly with query."
|
||||
(when (and eshell-kill-processes-on-exit
|
||||
eshell-process-list)
|
||||
(save-window-excursion
|
||||
|
|
|
|||
|
|
@ -1446,7 +1446,7 @@ will be computed and used."
|
|||
(mml-insert-empty-tag 'part
|
||||
'type type
|
||||
;; icicles redefines read-file-name and returns a
|
||||
;; string w/ text properties :-/
|
||||
;; string with text properties :-/
|
||||
'filename (substring-no-properties file)
|
||||
'disposition (or disposition "attachment")
|
||||
'description description)
|
||||
|
|
|
|||
|
|
@ -2766,7 +2766,7 @@ return that value."
|
|||
(cond
|
||||
;; nil means do nothing
|
||||
((eq nil feedmail-date-generator) nil)
|
||||
;; t is the same a using the function feedmail-default-date-generator, so let it and recurse
|
||||
;; t is the same as using the function feedmail-default-date-generator, so let it and recurse
|
||||
((eq t feedmail-date-generator)
|
||||
(let ((feedmail-date-generator (feedmail-default-date-generator maybe-file)))
|
||||
(feedmail-fiddle-date maybe-file)))
|
||||
|
|
@ -2822,7 +2822,7 @@ probably not appropriate for you."
|
|||
(cond
|
||||
;; nil means do nothing
|
||||
((eq nil feedmail-message-id-generator) nil)
|
||||
;; t is the same a using the function feedmail-default-message-id-generator, so let it and recurse
|
||||
;; t is the same as using the function feedmail-default-message-id-generator, so let it and recurse
|
||||
((eq t feedmail-message-id-generator)
|
||||
(let ((feedmail-message-id-generator (feedmail-default-message-id-generator maybe-file)))
|
||||
(feedmail-fiddle-message-id maybe-file)))
|
||||
|
|
@ -2864,7 +2864,7 @@ probably not appropriate for you."
|
|||
(cond
|
||||
;; nil means do nothing
|
||||
((eq nil feedmail-x-mailer-line) nil)
|
||||
;; t is the same a using the function feedmail-default-x-mailer-generator, so let it and recurse
|
||||
;; t is the same as using the function feedmail-default-x-mailer-generator, so let it and recurse
|
||||
((eq t feedmail-x-mailer-line)
|
||||
(let ((feedmail-x-mailer-line (feedmail-default-x-mailer-generator)))
|
||||
(feedmail-fiddle-x-mailer)))
|
||||
|
|
|
|||
|
|
@ -43,9 +43,9 @@ string instead of decoding as utf-8."
|
|||
|
||||
(defun rfc6068-parse-mailto-url (mailto-url)
|
||||
"Parse MAILTO-URL, and return an alist of header-name, header-value pairs.
|
||||
MAILTO-URL should be a RFC 6068 (mailto) compliant url. A cons cell w/ a
|
||||
MAILTO-URL should be a RFC 6068 (mailto) compliant url. A cons cell with a
|
||||
key of `Body' is a special case and is considered a header for this purpose.
|
||||
The returned alist is intended for use w/ the `compose-mail' interface.
|
||||
The returned alist is intended for use with the `compose-mail' interface.
|
||||
Note: make sure MAILTO-URL has been \"unhtmlized\" (e.g., & -> &), before
|
||||
calling this function."
|
||||
(let ((case-fold-search t)
|
||||
|
|
|
|||
|
|
@ -2599,7 +2599,7 @@ is greater than zero; otherwise, show it in full."
|
|||
"Handle a \"Mail-Followup-To\" header field with an unknown mailing list.
|
||||
Ask the user whether to add that list name to `mail-mailing-lists'."
|
||||
;; FIXME s-r not needed? Use rmail-get-header?
|
||||
;; We have not narrowed to the headers at ths point?
|
||||
;; We have not narrowed to the headers at this point?
|
||||
(save-restriction
|
||||
(let ((mail-followup-to (mail-fetch-field "mail-followup-to" nil t)))
|
||||
(when mail-followup-to
|
||||
|
|
|
|||
|
|
@ -1350,7 +1350,7 @@ buffer."
|
|||
nesting)))
|
||||
|
||||
(defun sc-add-citation-level ()
|
||||
"Add a citation level for nested citation style w/ coercion."
|
||||
"Add a citation level for nested citation style with coercion."
|
||||
(let* ((nesting (sc-guess-nesting))
|
||||
(citation (make-string (1+ (length nesting))
|
||||
(string-to-char sc-citation-delimiter)))
|
||||
|
|
|
|||
|
|
@ -331,7 +331,7 @@ This regexp should not start with a `^' character.")
|
|||
;; This used to have leading space [ \t]*, but was removed because it
|
||||
;; causes false page splits on an occasional NAME with leading space
|
||||
;; inside a manpage. And `Man-heading-regexp' doesn't have [ \t]* anyway.
|
||||
(defvar Man-first-heading-regexp "^NAME$\\|^[ \t]*No manual entry fo.*$"
|
||||
(defvar Man-first-heading-regexp "^NAME$\\|^[ \t]*No manual entry for.*$"
|
||||
"Regular expression describing first heading on a manpage.
|
||||
This regular expression should start with a `^' character.")
|
||||
|
||||
|
|
|
|||
|
|
@ -10556,7 +10556,7 @@
|
|||
* org-element.el (org-element-paragraph-separate): Fix comments in
|
||||
paragraph separator regexp. Optimize it.
|
||||
|
||||
* org-element.el: Update code commets.
|
||||
* org-element.el: Update code comments.
|
||||
|
||||
* org.el (org-mark-subtree): Fix bug when marking subtree with
|
||||
point on an inlinetask. Refactor code.
|
||||
|
|
@ -24341,7 +24341,7 @@
|
|||
2010-07-19 Bernt Hansen <bernt@norang.ca>
|
||||
|
||||
* org.el (org-time-string-to-absolute): Ignore cyclic repeater
|
||||
when displaying items on todays agenda date.
|
||||
when displaying items on today's agenda date.
|
||||
|
||||
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
|
|
|
|||
|
|
@ -1238,7 +1238,7 @@ This docstring appeases checkdoc, that's all."
|
|||
:request-dispatcher (funcall spread #'eglot-handle-request)
|
||||
:on-shutdown #'eglot--on-shutdown
|
||||
initargs))
|
||||
(cancelled nil)
|
||||
(canceled nil)
|
||||
(tag (make-symbol "connected-catch-tag")))
|
||||
(when server-info
|
||||
(jsonrpc--debug server "Running language server: %s"
|
||||
|
|
@ -1277,7 +1277,7 @@ This docstring appeases checkdoc, that's all."
|
|||
:workspaceFolders (eglot-workspace-folders server))
|
||||
:success-fn
|
||||
(eglot--lambda ((InitializeResult) capabilities serverInfo)
|
||||
(unless cancelled
|
||||
(unless canceled
|
||||
(push server
|
||||
(gethash project eglot--servers-by-project))
|
||||
(setf (eglot--capabilities server) capabilities)
|
||||
|
|
@ -1315,13 +1315,13 @@ in project `%s'."
|
|||
(when tag (throw tag t))))
|
||||
:timeout eglot-connect-timeout
|
||||
:error-fn (eglot--lambda ((ResponseError) code message)
|
||||
(unless cancelled
|
||||
(unless canceled
|
||||
(jsonrpc-shutdown server)
|
||||
(let ((msg (format "%s: %s" code message)))
|
||||
(if tag (throw tag `(error . ,msg))
|
||||
(eglot--error msg)))))
|
||||
:timeout-fn (lambda ()
|
||||
(unless cancelled
|
||||
(unless canceled
|
||||
(jsonrpc-shutdown server)
|
||||
(let ((msg (format "Timed out after %s seconds"
|
||||
eglot-connect-timeout)))
|
||||
|
|
@ -1338,7 +1338,7 @@ in project `%s'."
|
|||
(jsonrpc-name server))
|
||||
nil)
|
||||
(_ server)))
|
||||
(quit (jsonrpc-shutdown server) (setq cancelled 'quit)))
|
||||
(quit (jsonrpc-shutdown server) (setq canceled 'quit)))
|
||||
(setq tag nil))))
|
||||
|
||||
(defun eglot--inferior-bootstrap (name contact &optional connect-args)
|
||||
|
|
|
|||
|
|
@ -276,7 +276,7 @@ START, END and COMMENT-START are regular expressions. A block is
|
|||
defined as text surrounded by START and END.
|
||||
|
||||
As a special case, START may be a list of the form (COMPLEX-START
|
||||
MDATA-SELECTOR), where COMPLEX-START is a regexp w/ multiple parts and
|
||||
MDATA-SELECTOR), where COMPLEX-START is a regexp with multiple parts and
|
||||
MDATA-SELECTOR an integer that specifies which sub-match is the proper
|
||||
place to adjust point, before calling `hs-forward-sexp-func'. Point
|
||||
is adjusted to the beginning of the specified match. For example,
|
||||
|
|
@ -576,7 +576,7 @@ property of an overlay."
|
|||
(save-match-data (not (nth 8 (syntax-ppss))))))
|
||||
|
||||
(defun hs-forward-sexp (match-data arg)
|
||||
"Adjust point based on MATCH-DATA and call `hs-forward-sexp-func' w/ ARG.
|
||||
"Adjust point based on MATCH-DATA and call `hs-forward-sexp-func' with ARG.
|
||||
Original match data is restored upon return."
|
||||
(save-match-data
|
||||
(set-match-data match-data)
|
||||
|
|
|
|||
|
|
@ -155,7 +155,7 @@ which case it will be used to compose the new symbol as per the
|
|||
third argument of `compose-region'.")
|
||||
|
||||
(defun prettify-symbols-default-compose-p (start end _match)
|
||||
"Return non-nil iff the symbol MATCH should be composed.
|
||||
"Return non-nil if the symbol MATCH should be composed.
|
||||
The symbol starts at position START and ends at position END.
|
||||
This is the default for `prettify-symbols-compose-predicate'
|
||||
which is suitable for most programming languages such as C or Lisp."
|
||||
|
|
|
|||
|
|
@ -7719,7 +7719,7 @@ nil otherwise."
|
|||
(setq match t)
|
||||
(setq elm nil))
|
||||
(setq elm (cdr elm)))))
|
||||
;; If this is a test just for exact match, return nil ot t
|
||||
;; If this is a test just for exact match, return nil or t
|
||||
(if (and (equal flag 'lambda) (not (equal match 't)))
|
||||
nil
|
||||
match))))
|
||||
|
|
|
|||
|
|
@ -2584,7 +2584,7 @@ Uses the `derived-mode-parent' property of the symbol to trace backwards."
|
|||
(defun major-mode-restore (&optional avoided-modes)
|
||||
"Restore major mode earlier suspended with `major-mode-suspend'.
|
||||
If there was no earlier suspended major mode, then fallback to `normal-mode',
|
||||
tho trying to avoid AVOIDED-MODES."
|
||||
though trying to avoid AVOIDED-MODES."
|
||||
(if major-mode--suspended
|
||||
(funcall (prog1 major-mode--suspended
|
||||
(kill-local-variable 'major-mode--suspended)))
|
||||
|
|
|
|||
|
|
@ -366,7 +366,7 @@
|
|||
* url.el, url-queue.el, url-parse.el, url-http.el, url-future.el:
|
||||
* url-dav.el, url-cookie.el: Use cl-lib.
|
||||
* url-util.el, url-privacy.el, url-nfs.el, url-misc.el, url-methods.el:
|
||||
* url-gw.el, url-file.el, url-expand.el: Dont use CL.
|
||||
* url-gw.el, url-file.el, url-expand.el: Don't use CL.
|
||||
|
||||
2012-06-30 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1192,7 +1192,7 @@ variable `vc-rcs-release' is set to the returned value."
|
|||
(defun vc-rcs-parse (&optional buffer)
|
||||
"Parse current buffer, presumed to be in RCS-style masterfile format.
|
||||
Optional arg BUFFER specifies another buffer to parse. Return an alist
|
||||
of two elements, w/ keys `headers' and `revisions' and values in turn
|
||||
of two elements, with keys `headers' and `revisions' and values in turn
|
||||
sub-alists. For `headers', the values unless otherwise specified are
|
||||
strings and the keys are:
|
||||
|
||||
|
|
|
|||
|
|
@ -11988,7 +11988,7 @@
|
|||
|
||||
* cmds.c (nonundocount): New global variable.
|
||||
(keys_of_cmds): Initialize it.
|
||||
(Fself_insert_command): Use it to combine upto 20 sequential chars
|
||||
(Fself_insert_command): Use it to combine up to 20 sequential chars
|
||||
into a single undo entry, just like the Qself_insert_command code in
|
||||
keyboard.c does.
|
||||
Call frame_make_pointer_invisible, also like the Qself_insert_command
|
||||
|
|
|
|||
|
|
@ -14132,7 +14132,7 @@
|
|||
(coding_set_destination): Return how many bytes
|
||||
coding->destination was relocated.
|
||||
(CODING_DECODE_CHAR, CODING_ENCODE_CHAR, CODING_CHAR_CHARSET)
|
||||
(CODING_CHAR_CHARSET_P): Adjust for the avove changes.
|
||||
(CODING_CHAR_CHARSET_P): Adjust for the above changes.
|
||||
|
||||
2011-12-05 Kazuhiro Ito <kzhr@d1.dion.ne.jp> (tiny change)
|
||||
|
||||
|
|
|
|||
|
|
@ -3155,7 +3155,7 @@
|
|||
|
||||
* xdisp.c (resize_mini_window): Don't resize if
|
||||
Vmax_mini_window_height is nil. Otherwise, use a default if
|
||||
Vmax_mini_window_height is not ot a number.
|
||||
Vmax_mini_window_height is not a number.
|
||||
(syms_of_xdisp): Extend documentation of Vmax_mini_window_height.
|
||||
|
||||
1999-08-25 Alexandre Oliva <oliva@dcc.unicamp.br>
|
||||
|
|
|
|||
|
|
@ -422,7 +422,7 @@ xd_signature (char *signature, int dtype, int parent_type, Lisp_Object object)
|
|||
case DBUS_TYPE_STRING:
|
||||
case DBUS_TYPE_OBJECT_PATH:
|
||||
case DBUS_TYPE_SIGNATURE:
|
||||
/* We dont check the syntax of signature. This will be done by
|
||||
/* We don't check the syntax of signature. This will be done by
|
||||
libdbus. */
|
||||
if (dtype == DBUS_TYPE_OBJECT_PATH)
|
||||
XD_DBUS_VALIDATE_PATH (object)
|
||||
|
|
@ -748,7 +748,7 @@ xd_append_arg (int dtype, Lisp_Object object, DBusMessageIter *iter)
|
|||
case DBUS_TYPE_STRING:
|
||||
case DBUS_TYPE_OBJECT_PATH:
|
||||
case DBUS_TYPE_SIGNATURE:
|
||||
/* We dont check the syntax of signature. This will be done
|
||||
/* We don't check the syntax of signature. This will be done
|
||||
by libdbus. */
|
||||
if (dtype == DBUS_TYPE_OBJECT_PATH)
|
||||
XD_DBUS_VALIDATE_PATH (object)
|
||||
|
|
|
|||
|
|
@ -220,13 +220,13 @@ enum font_property_index
|
|||
#define FONT_WIDTH_FOR_FACE(font) \
|
||||
font_style_symbolic (font, FONT_WIDTH_INDEX, true)
|
||||
|
||||
/* Return the numeric weight value corresponding ot the symbol NAME. */
|
||||
/* Return the numeric weight value corresponding to the symbol NAME. */
|
||||
#define FONT_WEIGHT_NAME_NUMERIC(name) \
|
||||
(font_style_to_value (FONT_WEIGHT_INDEX, (name), false) >> 8)
|
||||
/* Return the numeric slant value corresponding ot the symbol NAME. */
|
||||
/* Return the numeric slant value corresponding to the symbol NAME. */
|
||||
#define FONT_SLANT_NAME_NUMERIC(name) \
|
||||
(font_style_to_value (FONT_SLANT_INDEX, (name), false) >> 8)
|
||||
/* Return the numeric width value corresponding ot the symbol NAME. */
|
||||
/* Return the numeric width value corresponding to the symbol NAME. */
|
||||
#define FONT_WIDTH_NAME_NUMERIC(name) \
|
||||
(font_style_to_value (FONT_WIDTH_INDEX, (name), false) >> 8)
|
||||
|
||||
|
|
|
|||
|
|
@ -1389,7 +1389,7 @@ itree_iterator_start (struct itree_iterator *iter,
|
|||
iter->end = end;
|
||||
iter->otick = tree->otick;
|
||||
iter->order = order;
|
||||
/* Beware: the `node` field alwyas holds "the next" node to consider.
|
||||
/* Beware: the `node` field always holds "the next" node to consider.
|
||||
so it's always "one node ahead" of what the iterator loop sees.
|
||||
In most respects this makes no difference, but we depend on this
|
||||
detail in `delete_all_overlays` where this allows us to modify
|
||||
|
|
|
|||
|
|
@ -967,7 +967,7 @@ x_handle_selection_request (struct selection_input_event *event)
|
|||
x_reply_selection_request. If FOR_MULTIPLE, write out
|
||||
the data even if conversion fails, using conversion_fail_tag.
|
||||
|
||||
Return true iff successful. */
|
||||
Return true if successful. */
|
||||
|
||||
static bool
|
||||
x_convert_selection (Lisp_Object selection_symbol,
|
||||
|
|
|
|||
|
|
@ -766,7 +766,7 @@ parse_settings (unsigned char *prop,
|
|||
#ifndef HAVE_PGTK
|
||||
/* Read settings from the XSettings property window on display for DPYINFO.
|
||||
Store settings read in SETTINGS.
|
||||
Return true iff successful. */
|
||||
Return true if successful. */
|
||||
|
||||
static bool
|
||||
read_settings (Display_Info *dpyinfo, struct xsettings *settings)
|
||||
|
|
|
|||
|
|
@ -59,7 +59,7 @@
|
|||
"Contains a list of all messages passed to `auth-source-do-debug'.")
|
||||
|
||||
(defun auth-source-pass--have-message-matching (regexp)
|
||||
"Return non-nil iff at least one `auth-source-do-debug' match REGEXP."
|
||||
"Return non-nil if at least one `auth-source-do-debug' match REGEXP."
|
||||
(seq-find (lambda (message)
|
||||
(string-match regexp message))
|
||||
auth-source-pass--debug-log))
|
||||
|
|
@ -109,7 +109,7 @@ ENTRY, HOSTNAME, USER and PORT are the same as in
|
|||
(put 'auth-source-pass-match-entry-p 'ert-explainer #'auth-source-pass--explain-match-entry-p)
|
||||
|
||||
(defun auth-source-pass--includes-sorted-entries (entries hostname &optional user port)
|
||||
"Return non-nil iff ENTRIES matching the parameters are found in store.
|
||||
"Return non-nil if ENTRIES matching the parameters are found in store.
|
||||
ENTRIES should be sorted from most specific to least specific.
|
||||
|
||||
HOSTNAME, USER and PORT are passed unchanged to
|
||||
|
|
@ -157,7 +157,7 @@ result is ordered the same way as the suffixes."
|
|||
(auth-source-pass--generate-entry-suffixes hostname user port))))
|
||||
|
||||
(defun auth-source-pass-match-entry-p (entry hostname &optional user port)
|
||||
"Return non-nil iff an ENTRY matching the parameters is found in store.
|
||||
"Return non-nil if an ENTRY matching the parameters is found in store.
|
||||
|
||||
HOSTNAME, USER and PORT are passed unchanged to
|
||||
`auth-source-pass--matching-entries'."
|
||||
|
|
@ -166,7 +166,7 @@ HOSTNAME, USER and PORT are passed unchanged to
|
|||
(auth-source-pass--matching-entries hostname user port)))
|
||||
|
||||
(defun auth-source-pass-match-any-entry-p (hostname &optional user port)
|
||||
"Return non-nil iff there is at least one entry matching the parameters.
|
||||
"Return non-nil if there is at least one entry matching the parameters.
|
||||
|
||||
HOSTNAME, USER and PORT are passed unchanged to
|
||||
`auth-source-pass--matching-entries'."
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ It is filled with some text."
|
|||
|
||||
(when (and (overlayp (oref f overlay))
|
||||
(not (overlay-get (oref f overlay) 'srecode-init-only)))
|
||||
(error "Field creation overlay is not tagged w/ init flag"))
|
||||
(error "Field creation overlay is not tagged with init flag"))
|
||||
|
||||
(srecode-overlaid-activate f)
|
||||
|
||||
|
|
|
|||
|
|
@ -407,7 +407,7 @@
|
|||
:session dbus--test-service
|
||||
'(:array (:dict-entry :string "string" :boolean t :boolean t)))
|
||||
:type 'wrong-type-argument)
|
||||
;; The first element ist not of a basic type.
|
||||
;; The first element is not of a basic type.
|
||||
(should-error
|
||||
(dbus-check-arguments
|
||||
:session dbus--test-service
|
||||
|
|
|
|||
|
|
@ -127,7 +127,7 @@ Don't set it globally, the functions should be let-bound.")
|
|||
|
||||
(defun vc-test--create-repo-function (backend)
|
||||
"Run the `vc-create-repo' backend function.
|
||||
For backends which dont support it, it is emulated."
|
||||
For backends which don't support it, it is emulated."
|
||||
|
||||
(cond
|
||||
((eq backend 'CVS)
|
||||
|
|
|
|||
|
|
@ -211,10 +211,10 @@
|
|||
(comp-tests-err-arith-f)
|
||||
(arith-error (concat "arith-error "
|
||||
(error-message-string err)
|
||||
" catched"))
|
||||
" caught"))
|
||||
(error (concat "error "
|
||||
(error-message-string err)
|
||||
" catched"))))
|
||||
" caught"))))
|
||||
(defun comp-tests-condition-case-1-f ()
|
||||
;; Bpushhandler Bpophandler
|
||||
(condition-case
|
||||
|
|
@ -222,10 +222,10 @@
|
|||
(comp-tests-err-foo-f)
|
||||
(arith-error (concat "arith-error "
|
||||
(error-message-string err)
|
||||
" catched"))
|
||||
" caught"))
|
||||
(error (concat "error "
|
||||
(error-message-string err)
|
||||
" catched"))))
|
||||
" caught"))))
|
||||
(defun comp-tests-catch-f (f)
|
||||
(catch 'foo
|
||||
(funcall f)))
|
||||
|
|
|
|||
|
|
@ -298,9 +298,9 @@ Check that the resulting binaries do not differ."
|
|||
(comp-deftest non-locals ()
|
||||
"Test non locals."
|
||||
(should (string= (comp-tests-condition-case-0-f)
|
||||
"arith-error Arithmetic error catched"))
|
||||
"arith-error Arithmetic error caught"))
|
||||
(should (string= (comp-tests-condition-case-1-f)
|
||||
"error Foo catched"))
|
||||
"error Foo caught"))
|
||||
(should (= (comp-tests-catch-f
|
||||
(lambda () (throw 'foo 3)))
|
||||
3))
|
||||
|
|
|
|||
|
|
@ -222,7 +222,7 @@ expressions works for identifiers starting with period."
|
|||
|
||||
(ert-deftest eval-tests/funcall-with-delayed-message ()
|
||||
;; Check that `funcall-with-delayed-message' displays its message before
|
||||
;; its function terminates iff the timeout is short enough.
|
||||
;; its function terminates if the timeout is short enough.
|
||||
|
||||
;; This also serves as regression test for bug#55628 where a short
|
||||
;; timeout was rounded up to the next whole second.
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue