+2008-11-14 Juanma Barranquero <lekktu@gmail.com>
+
+ * w32-fns.el (w32-shell-dos-semantics):
+ * calendar/diary-lib.el (diary-face-attrs):
+ * international/mule-cmds.el (set-default-coding-systems)
+ (prefer-coding-system):
+ * net/tramp.el (tramp-set-completion-function):
+ * progmodes/vhdl-mode.el (vhdl-file-header):
+ * term/pc-win.el (msdos-show-help): Fix typos in docstrings.
+
+ * emacs-lisp/authors.el (authors-fixed-entries): Fix typo in value.
+
+ * files.el (enable-local-eval, not-modified, kill-buffer-ask)
+ (kill-matching-buffers, save-buffers-kill-emacs)
+ (save-buffers-kill-terminal): Fix typos in docstrings.
+ (switch-to-buffer-other-window): Reflow docstring.
+ (revert-buffer): Doc fix.
+ (define-project-bindings): Rename arg LIST to SETTINGS.
+ (project-find-settings-file): Use `let', not `let*'.
+ Use `when'.
+
2008-11-13 Juanma Barranquero <lekktu@gmail.com>
* files.el (project-settings-file, locate-dominating-file):
specifies which face attribute (e.g. `:foreground') to modify, or
that this is a face (`:face') to apply. TYPE is the type of
attribute being applied. Available TYPES (see `diary-attrtype-convert')
-are: `string', `symbol', `int', `tnil',`stringtnil.'"
+are: `string', `symbol', `int', `tnil', `stringtnil.'"
:type '(repeat (list (string :tag "Regular expression")
(integer :tag "Sub-expression")
(symbol :tag "Attribute (e.g. :foreground)")
("Geoff Voelker" :wrote "src/makefile.nt" "lisp/makefile.nt" "winnt.el"
"nt.c" "nt.h" "ntheap.c" "ntheap.h" "ntinevt.c"
"ntproc.c" "ntterm.c" "windowsnt.h")
- ("Morten Welinder" :wrote "dosfns.c" "[many MSDOS files]" "msdos.h")
+ ("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h")
("Pace Willisson" :wrote "ispell.el")
("Garrett Wollman" :changed "sendmail.el")
("Dale R. Worley" :changed "mail-extr.el")
(defcustom enable-local-eval 'maybe
"Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
-A value of t means obey `eval' variables;
+A value of t means obey `eval' variables.
A value of nil means ignore them; anything else means query."
:type '(choice (const :tag "Obey" t)
(const :tag "Ignore" nil)
When called from Lisp, BUFFER can be a buffer, a string \(a buffer name),
or nil. If BUFFER is nil, then this function chooses a buffer
using `other-buffer'.
-Optional second arg NORECORD non-nil means
-do not put this buffer at the front of the list of recently selected ones.
+Optional second arg NORECORD non-nil means do not put this
+buffer at the front of the list of recently selected ones.
This function returns the buffer it switched to.
This uses the function `display-buffer' as a subroutine; see its
(error "No such project class `%s'" (symbol-name class)))
(push (cons directory class) project-directory-alist))
-(defun define-project-bindings (class list)
+(defun define-project-bindings (class settings)
"Map the project type CLASS to a list of variable settings.
CLASS is the project class, a symbol.
-LIST is a list that declares variable settings for the class.
-An element in LIST is either of the form:
+SETTINGS is a list that declares variable settings for the class.
+An element in SETTINGS is either of the form:
(MAJOR-MODE . ALIST)
or
(DIRECTORY . LIST)
applied by recursively following these rules."
(let ((elt (assq class project-class-alist)))
(if elt
- (setcdr elt list)
- (push (cons class list) project-class-alist))))
+ (setcdr elt settings)
+ (push (cons class settings) project-class-alist))))
(defcustom project-settings-file ".dir-settings.el"
"Settings file for per-project settings.
Otherwise this returns nil."
(when project-settings-file
(setq file (expand-file-name file))
- (let* ((settings (locate-dominating-file file project-settings-file))
- (pda nil))
+ (let ((settings (locate-dominating-file file project-settings-file))
+ (pda nil))
;; `locate-dominating-file' may have abbreviated the name.
- (if settings
- (setq settings (expand-file-name project-settings-file settings)))
+ (when settings
+ (setq settings (expand-file-name project-settings-file settings)))
(dolist (x project-directory-alist)
(when (and (eq t (compare-strings file nil (length (car x))
(car x) nil nil))
\f
(defun not-modified (&optional arg)
"Mark current buffer as unmodified, not needing to be saved.
-With prefix arg, mark buffer as modified, so \\[save-buffer] will save.
+With prefix ARG, mark buffer as modified, so \\[save-buffer] will save.
It is not a good idea to use this function in Lisp programs, because it
prints a message in the minibuffer. Instead, use `set-buffer-modified-p'."
This command also implements an interface for special buffers
that contain text which doesn't come from a file, but reflects
some other data instead (e.g. Dired buffers, `buffer-list'
-buffers). This is done via the variable
-`revert-buffer-function'. In these cases, it should reconstruct
-the buffer contents from the appropriate data.
+buffers). This is done via the variable `revert-buffer-function'.
+In these cases, it should reconstruct the buffer contents from the
+appropriate data.
When called from Lisp, the first argument is IGNORE-AUTO; only offer
to revert from the auto-save file when this is nil. Note that the
sake of backward compatibility. IGNORE-AUTO is optional, defaulting
to nil.
-Optional second argument NOCONFIRM means don't ask for confirmation at
-all. \(The variable `revert-without-query' offers another way to
+Optional second argument NOCONFIRM means don't ask for confirmation
+at all. \(The variable `revert-without-query' offers another way to
revert buffers without querying for confirmation.)
Optional third argument PRESERVE-MODES non-nil means don't alter
(kill-buffer buffer))))
(defun kill-buffer-ask (buffer)
- "Kill buffer if confirmed."
+ "Kill BUFFER if confirmed."
(when (yes-or-no-p
(format "Buffer %s %s. Kill? " (buffer-name buffer)
(if (buffer-modified-p buffer)
(setq list (cdr list))))
(defun kill-matching-buffers (regexp &optional internal-too)
- "Kill buffers whose name matches the specified regexp.
+ "Kill buffers whose name matches the specified REGEXP.
The optional second argument indicates whether to kill internal buffers too."
(interactive "sKill buffers matching this regular expression: \nP")
(dolist (buffer (buffer-list))
(defun save-buffers-kill-emacs (&optional arg)
"Offer to save each buffer, then kill this Emacs process.
-With prefix arg, silently save all file-visiting buffers, then kill."
+With prefix ARG, silently save all file-visiting buffers, then kill."
(interactive "P")
(save-some-buffers arg t)
(and (or (not (memq t (mapcar (function
"Offer to save each buffer, then kill the current connection.
If the current frame has no client, kill Emacs itself.
-With prefix arg, silently save all file-visiting buffers, then kill.
+With prefix ARG, silently save all file-visiting buffers, then kill.
If emacsclient was started with a list of filenames to edit, then
only these files will be asked to be saved."
This also sets the following values:
o default value used as `file-name-coding-system' for converting file names
if CODING-SYSTEM is ASCII-compatible
- o default value for the command `set-terminal-coding-system' (not on MSDOS)
+ o default value for the command `set-terminal-coding-system' (not on MS-DOS)
o default value for the command `set-keyboard-coding-system'
if CODING-SYSTEM is ASCII-compatible"
(check-coding-system coding-system)
o default coding system for subprocess I/O
This also sets the following values:
o default value used as `file-name-coding-system' for converting file names
- o default value for the command `set-terminal-coding-system' (not on MSDOS)
+ o default value for the command `set-terminal-coding-system' (not on MS-DOS)
o default value for the command `set-keyboard-coding-system'
If CODING-SYSTEM specifies a certain type of EOL conversion, the coding
The FUNCTION is intended to parse FILE according its syntax.
It might be a predefined FUNCTION, or a user defined FUNCTION.
Predefined FUNCTIONs are `tramp-parse-rhosts', `tramp-parse-shosts',
-`tramp-parse-sconfig',`tramp-parse-hosts', `tramp-parse-passwd',
+`tramp-parse-sconfig', `tramp-parse-hosts', `tramp-parse-passwd',
and `tramp-parse-netrc'.
Example:
The following keywords for template generation are supported:
<filename> : replaced by the name of the buffer
<author> : replaced by the user name and email address
- \(`user-full-name',`mail-host-address', `user-mail-address')
+ \(`user-full-name', `mail-host-address', `user-mail-address')
<login> : replaced by user login name (`user-login-name')
<company> : replaced by contents of option `vhdl-company-name'
<date> : replaced by the current date
"The content of the echo area before help echo was displayed.")
(defun msdos-show-help (help)
- "Function installed as `show-help-function' on MSDOS frames."
+ "Function installed as `show-help-function' on MS-DOS frames."
(when (and (not (window-minibuffer-p)) ;Don't overwrite minibuffer contents.
;; Don't know how to reproduce it in Elisp:
;; Don't overwrite a keystroke echo.
w32-system-shells)))
(defun w32-shell-dos-semantics ()
- "Return non-nil if the interactive shell being used expects MSDOS shell semantics."
+ "Return non-nil if the interactive shell being used expects MS-DOS shell semantics."
(or (w32-system-shell-p (w32-shell-name))
(and (member (downcase (file-name-nondirectory (w32-shell-name)))
'("cmdproxy" "cmdproxy.exe"))
+2008-11-14 Juanma Barranquero <lekktu@gmail.com>
+
+ * msdos.c (Fmsdos_long_file_names):
+ (syms_of_msdos) <dos-unsupported-char-glyph>:
+ * dosfns.c (Fint86): Fix typos in docstrings.
+
2008-11-14 Eli Zaretskii <eliz@gnu.org>
* makefile.w32-in (OBJ1, WIN32OBJ): Fix whitespace.
#endif
DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
- doc: /* Call specific MSDOS interrupt number INTERRUPT with REGISTERS.
+ doc: /* Call specific MS-DOS interrupt number INTERRUPT with REGISTERS.
Return the updated REGISTER vector.
INTERRUPT should be an integer in the range 0 to 255.
DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names,
0, 0, 0,
- doc: /* Return non-nil if long file names are supported on MSDOS. */)
+ doc: /* Return non-nil if long file names are supported on MS-DOS. */)
()
{
return (_USE_LFN ? Qt : Qnil);
DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph,
doc: /* *Glyph to display instead of chars not supported by current codepage.
-This variable is used only by MSDOS terminals. */);
+This variable is used only by MS-DOS terminals. */);
Vdos_unsupported_char_glyph = make_number ('\177');
#endif
HCoop / bpt / emacs.git / commitdiff