[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 cc00738 09/64: find-lisp doc touchups
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] emacs-25 cc00738 09/64: find-lisp doc touchups |
Date: |
Sun, 01 May 2016 18:18:39 +0000 |
branch: emacs-25
commit cc00738ff274c523d3b7ff479c35a1c4b213719d
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
find-lisp doc touchups
* lisp/find-lisp.el (find-lisp-format): Copy over the doc
string (bug#15047).
(find-lisp-find-files): Clarify doc.
(cherry picked from commit e4c7657b0d1a31d64ca24bc64b5480cd7687e332)
---
lisp/find-lisp.el | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 475001f..8591eb8 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -118,7 +118,7 @@ Argument DIR is the directory containing FILE."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun find-lisp-find-files (directory regexp)
- "Find files in DIRECTORY which match REGEXP."
+ "Find files under DIRECTORY, recursively, that match REGEXP."
(let ((file-predicate 'find-lisp-default-file-predicate)
(directory-predicate 'find-lisp-default-directory-predicate)
(find-lisp-regexp regexp))
@@ -297,6 +297,9 @@ It is a function which takes two arguments, the directory
and its parent."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun find-lisp-format (file-name file-attr switches now)
+ "Format one line of long ls output for file FILE-NAME.
+FILE-ATTR and FILE-SIZE give the file's attributes and size.
+SWITCHES and TIME-INDEX give the full switch list and time data."
(let ((file-type (nth 0 file-attr)))
(concat (if (memq ?i switches) ; inode number
(format "%6d " (nth 10 file-attr)))
@@ -325,7 +328,7 @@ It is a function which takes two arguments, the directory
and its parent."
"\n")))
(defun find-lisp-time-index (switches)
- ;; Return index into file-attributes according to ls SWITCHES.
+ "Return index into file-attributes according to ls SWITCHES."
(cond
((memq ?c switches) 6) ; last mode change
((memq ?u switches) 4) ; last access
@@ -333,10 +336,11 @@ It is a function which takes two arguments, the directory
and its parent."
(t 5)))
(defun find-lisp-format-time (file-attr switches now)
- ;; Format time string for file with attributes FILE-ATTR according
- ;; to SWITCHES (a list of ls option letters of which c and u are recognized).
- ;; Use the same method as `ls' to decide whether to show time-of-day or year,
- ;; depending on distance between file date and NOW.
+ "Format time string for file.
+This is done with attributes FILE-ATTR according to SWITCHES (a
+list of ls option letters of which c and u are recognized). Use
+the same method as \"ls\" to decide whether to show time-of-day or
+year, depending on distance between file date and NOW."
(let* ((time (nth (find-lisp-time-index switches) file-attr))
(diff16 (- (car time) (car now)))
(diff (+ (ash diff16 16) (- (car (cdr time)) (car (cdr now)))))
- [Emacs-diffs] emacs-25 updated (d8affa3 -> 8aa4147), Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 3fc1ed8 02/64: Mention `lisp-indent-function' in the lispref manual, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 0a14d84 04/64: Clarify some doc strings, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 cf33ae0 05/64: Clarify the `interactive' doc string slightly, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 de8349e 06/64: Doc string change to enable-recursive-minibuffers, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 9bd2af8 01/64: Clarify doc string of internal compilation function, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 4a2f33d 20/64: Doc fixes for menu-bar.el, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 7b85885 22/64: Doc fix, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 cc00738 09/64: find-lisp doc touchups,
Lars Ingebrigtsen <=
- [Emacs-diffs] emacs-25 651182d 24/64: Doc fixed for next-error-buffer-p, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 351c079 03/64: Add some concept index entries for custom types, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 c355774 21/64: delsel doc touch ups, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 05194cb 26/64: Doc fix for font-lock-remove-keywords, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 28ef870 11/64: Doc tweak, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 d815ba5 23/64: Tiny doc fix, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 92559c7 10/64: Link from (emacs)Exiting to (lisp)Killing Emacs, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 bc6c294 12/64: Doc fix for `kbd', Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 71795d4 19/64: Doc fix, Lars Ingebrigtsen, 2016/05/01
- [Emacs-diffs] emacs-25 3852fd6 18/64: Minor doc clarification, Lars Ingebrigtsen, 2016/05/01