mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-21 06:55:39 +00:00
Fix docstring typos.
lisp/dframe.el (dframe-detach): lisp/find-dired.el (find-dired, find-name-dired): lisp/finder.el (finder-mode-map, finder-mode-syntax-table) (finder-headmark, finder-select, finder-mouse-select): Fix typos.
This commit is contained in:
parent
5c80919598
commit
43977c23bf
@ -1,8 +1,16 @@
|
||||
2014-02-28 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* dframe.el (dframe-detach):
|
||||
* find-dired.el (find-dired, find-name-dired):
|
||||
* finder.el (finder-mode-map, finder-mode-syntax-table)
|
||||
(finder-headmark, finder-select, finder-mouse-select):
|
||||
Fix docstring typos.
|
||||
|
||||
2014-02-28 Martin Rudalics <rudalics@gmx.at>
|
||||
|
||||
Revert recent with-temp-buffer-window change (Bug#16816, Bug#16882).
|
||||
* window.el (with-temp-buffer-window): Revert change from
|
||||
2014-02-21. Suggested by Thierry Volpiatto
|
||||
2014-02-21. Suggested by Thierry Volpiatto.
|
||||
<thierry.volpiatto@gmail.com>. Fix doc-string based on a
|
||||
suggestion by Nicolas Richard <theonewiththeevillook@yahoo.fr>.
|
||||
* help.el (with-help-window): Fix doc-string.
|
||||
|
@ -530,7 +530,7 @@ LOCATION can be one of 'random, 'left-right, or 'top-bottom."
|
||||
|
||||
(defun dframe-detach (frame-var cache-var buffer-var)
|
||||
"Detach the frame in symbol FRAME-VAR.
|
||||
CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'"
|
||||
CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'."
|
||||
(with-current-buffer (symbol-value buffer-var)
|
||||
(rename-buffer (buffer-name) t)
|
||||
(let ((oldframe (symbol-value frame-var)))
|
||||
|
@ -30,7 +30,7 @@
|
||||
(require 'dired)
|
||||
|
||||
(defgroup find-dired nil
|
||||
"Run a `find' command and dired the output."
|
||||
"Run a `find' command and Dired the output."
|
||||
:group 'dired
|
||||
:prefix "find-")
|
||||
|
||||
@ -234,7 +234,7 @@ use in place of \"-ls\" as the final argument."
|
||||
;;;###autoload
|
||||
(defun find-name-dired (dir pattern)
|
||||
"Search DIR recursively for files matching the globbing pattern PATTERN,
|
||||
and run dired on those files.
|
||||
and run Dired on those files.
|
||||
PATTERN is a shell wildcard (not an Emacs regexp) and need not be quoted.
|
||||
The default command run (after changing into DIR) is
|
||||
|
||||
|
@ -105,20 +105,20 @@ Each element has the form (KEYWORD . DESCRIPTION).")
|
||||
'(menu-item "Select" finder-select
|
||||
:help "Select item on current line in a finder buffer"))
|
||||
map)
|
||||
"Keymap used in `finder-mode'.")
|
||||
"Keymap used in Finder mode.")
|
||||
|
||||
(defvar finder-mode-syntax-table
|
||||
(let ((st (make-syntax-table emacs-lisp-mode-syntax-table)))
|
||||
(modify-syntax-entry ?\; ". " st)
|
||||
st)
|
||||
"Syntax table used while in `finder-mode'.")
|
||||
"Syntax table used while in Finder mode.")
|
||||
|
||||
(defvar finder-font-lock-keywords
|
||||
'(("`\\([^'`]+\\)'" 1 font-lock-constant-face prepend))
|
||||
"Font-lock keywords for Finder mode.")
|
||||
|
||||
(defvar finder-headmark nil
|
||||
"Internal finder-mode variable, local in finder buffer.")
|
||||
"Internal Finder mode variable, local in Finder buffer.")
|
||||
|
||||
;;; Code for regenerating the keyword list.
|
||||
|
||||
@ -384,7 +384,7 @@ FILE should be in a form suitable for passing to `locate-library'."
|
||||
key)))
|
||||
|
||||
(defun finder-select ()
|
||||
"Select item on current line in a finder buffer."
|
||||
"Select item on current line in a Finder buffer."
|
||||
(interactive)
|
||||
(let ((key (finder-current-item)))
|
||||
(if (string-match "\\.el$" key)
|
||||
@ -392,7 +392,7 @@ FILE should be in a form suitable for passing to `locate-library'."
|
||||
(finder-list-matches key))))
|
||||
|
||||
(defun finder-mouse-select (event)
|
||||
"Select item in a finder buffer with the mouse."
|
||||
"Select item in a Finder buffer with the mouse."
|
||||
(interactive "e")
|
||||
(with-current-buffer (window-buffer (posn-window (event-start event)))
|
||||
(goto-char (posn-point (event-start event)))
|
||||
|
Loading…
Reference in New Issue
Block a user