Mercurial > emacs

changeset 243:6155e428f077

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 12 Apr 1991 20:25:03 +0000
parents 5647f2040009
children d6439d1d5d02
files lisp/register.el lisp/textmodes/refbib.el
diffstat 2 files changed, 42 insertions(+), 56 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/register.el	Fri Apr 12 20:15:51 1991 +0000
+++ b/lisp/register.el	Fri Apr 12 20:25:03 1991 +0000
@@ -29,8 +29,7 @@
   (cdr (assq char register-alist)))
 
 (defun set-register (char value)
-  "Set contents of Emacs register named CHAR to VALUE.
-Returns VALUE."
+  "Set contents of Emacs register named CHAR to VALUE.  Returns VALUE."
   (let ((aelt (assq char register-alist)))
     (if aelt
 	(setcdr aelt value)
@@ -136,20 +135,16 @@
   (if (not arg) (exchange-point-and-mark)))
 
 (defun copy-to-register (char start end &optional delete-flag)
-  "Copy region into register REG.
-With prefix arg, delete as well.
-Called from program, takes four args:
-REG, START, END and DELETE-FLAG.
+  "Copy region into register REG.  With prefix arg, delete as well.
+Called from program, takes four args: REG, START, END and DELETE-FLAG.
 START and END are buffer positions indicating what to copy."
   (interactive "cCopy to register: \nr\nP")
   (set-register char (buffer-substring start end))
   (if delete-flag (delete-region start end)))
 
 (defun append-to-register (char start end &optional delete-flag)
-  "Append region to text in register REG.
-With prefix arg, delete as well.
-Called from program, takes four args:
-REG, START, END and DELETE-FLAG.
+  "Append region to text in register REG.  With prefix arg, delete as well.
+Called from program, takes four args: REG, START, END and DELETE-FLAG.
 START and END are buffer positions indicating what to append."
   (interactive "cAppend to register: \nr\nP")
   (or (stringp (get-register char))
@@ -159,10 +154,8 @@
   (if delete-flag (delete-region start end)))
 
 (defun prepend-to-register (char start end &optional delete-flag)
-  "Prepend region to text in register REG.
-With prefix arg, delete as well.
-Called from program, takes four args:
-REG, START, END and DELETE-FLAG.
+  "Prepend region to text in register REG.  With prefix arg, delete as well.
+Called from program, takes four args: REG, START, END and DELETE-FLAG.
 START and END are buffer positions indicating what to prepend."
   (interactive "cPrepend to register: \nr\nP")
   (or (stringp (get-register char))
@@ -172,10 +165,8 @@
   (if delete-flag (delete-region start end)))
 
 (defun copy-rectangle-to-register (char start end &optional delete-flag)
-  "Copy rectangular region into register REG.
-With prefix arg, delete as well.
-Called from program, takes four args:
-REG, START, END and DELETE-FLAG.
+  "Copy rectangular region into register REG.  With prefix arg, delete as well.
+Called from program, takes four args: REG, START, END and DELETE-FLAG.
 START and END are buffer positions giving two corners of rectangle."
   (interactive "cCopy rectangle to register: \nr\nP")
   (set-register char
--- a/lisp/textmodes/refbib.el	Fri Apr 12 20:15:51 1991 +0000
+++ b/lisp/textmodes/refbib.el	Fri Apr 12 20:25:03 1991 +0000
@@ -84,22 +84,22 @@
 (defvar r2b-proceedings-list
    '()
    "  Assoc list of books or journals which are really conference proceedings,
-but whose name and whose abbrev expansion (as defined in r2b-journal-abbrevs
-and r2b-booktitle-abbrevs) does not contain the words 'conference' or
-'proceedings'.  (Those cases are handled automatically.)
+but whose name and whose abbrev expansion (as defined in `r2b-journal-abbrevs'
+and `r2b-booktitle-abbrevs') does not contain the words \"conference\" or
+\"proceedings\".  (Those cases are handled automatically.)
 The entry must match the given data exactly.
   Because titles are capitalized before matching, the items in this list 
 should begin with a capital letter.
   For example, suppose the title \"Ijcai81\" is used for the proceedings of
-a conference, and it's expansion is the BibTeX macro \"ijcai7\".  Then 
-r2b-proceedings-list should be '((\"Ijcai81\") ...).  If instead its 
+a conference, and it's expansion is the BibTeX macro \"ijcai7\".  Then
+`r2b-proceedings-list' should be '((\"Ijcai81\") ...).  If instead its
 expansion were \"Proceedings of the Seventh International Conference
-on Artificial Intelligence\", then you would NOT need to include Ijcai81 
-in r2b-proceedings-list (although it wouldn't cause an error).")
+on Artificial Intelligence\", then you would NOT need to include Ijcai81
+in `r2b-proceedings-list' (although it wouldn't cause an error).")
 
 (defvar r2b-additional-stop-words
 	 "Some\\|What"
-   "Words other than the capitialize-title-stop-words
+   "Words other than the `capitialize-title-stop-words'
 which are not to be used to build the citation key")
 
 
@@ -121,7 +121,7 @@
    (concat "\\(" capitalize-title-stop-words "\\)\\(\\b\\|'\\)"))
 
 (defun capitalize-title-region (begin end)
-   "Like capitalize-region, but don't capitalize stop words, except the first"
+   "Like `capitalize-region', but don't capitalize stop words, except the first."
    (interactive "r")
    (let ((case-fold-search nil) (orig-syntax-table (syntax-table)))
       (unwind-protect
@@ -144,7 +144,7 @@
 
 
 (defun capitalize-title (s)
-   "Like capitalize, but don't capitalize stop words, except the first"
+   "Like capitalize, but don't capitalize stop words, except the first."
    (save-excursion
       (set-buffer (get-buffer-create "$$$Scratch$$$"))
       (erase-buffer)
@@ -154,7 +154,7 @@
 
 ;*********************************************************
 (defun r2b-reset ()
-   "unbind defvars, for debugging"
+   "Unbind defvars, for debugging."
    (interactive)
    (makunbound 'r2b-journal-abbrevs)
    (makunbound 'r2b-booktitle-abbrevs)
@@ -162,8 +162,7 @@
    (makunbound 'capitalize-title-stop-words)
    (makunbound 'capitalize-title-stop-regexp)
    (makunbound 'r2b-additional-stop-words)
-   (makunbound 'r2b-stop-regexp)
-   )
+   (makunbound 'r2b-stop-regexp))
 
 (defvar r2b-stop-regexp
    (concat "\\`\\(\\(" 
@@ -175,11 +174,10 @@
    (if r2b-trace-on
       (progn
 	 (apply (function message) args)
-	 (sit-for 0)
-	 )))
+	 (sit-for 0))))
 
 (defun r2b-match (exp)
-   "returns string matched in current buffer"
+   "Returns string matched in current buffer."
    (buffer-substring (match-beginning exp) (match-end exp)))
 
 (defvar r2b-out-buf-name "*Out*" "*output from refer-to-bibtex" )
@@ -223,12 +221,11 @@
 			  ))
 
 (defun r2b-clear-variables ()
-   "set all global vars used by r2b to nil"
+   "Set all global vars used by r2b to nil."
    (let ((vars r2b-variables))
       (while vars
 	 (set (car vars) nil)
-	 (setq vars (cdr vars)))
-      ))
+	 (setq vars (cdr vars)))))
 
 (defun r2b-warning (&rest args)
    (setq r2b-error-found t)
@@ -236,8 +233,7 @@
    (princ "\n" r2b-log)
    (princ "\n" r2b-out-buf)
    (princ "% " r2b-out-buf)
-   (princ (apply (function format) args) r2b-out-buf)
-   )
+   (princ (apply (function format) args) r2b-out-buf))
 
 (defun r2b-get-field (var field &optional unique required capitalize)
    "Set VAR to string value of FIELD, if any.  If none, VAR is set to
@@ -278,7 +274,7 @@
       ))
 
 (defun r2b-set-match (var n regexp string )
-   "set VAR to the Nth subpattern in REGEXP matched by STRING, or nil if none"
+   "Set VAR to the Nth subpattern in REGEXP matched by STRING, or nil if none."
    (set var
       (if (and (stringp string) (string-match regexp string))
 	 (substring string (match-beginning n) (match-end n))
@@ -291,7 +287,7 @@
        ("sep") ("oct") ("nov") ("dec")))
 
 (defun r2b-convert-month ()
-   "Try to convert r2bv-month to a standard 3 letter name"
+   "Try to convert `r2bv-month' to a standard 3 letter name."
    (if r2bv-month
       (let ((months r2b-month-abbrevs))
 	 (if (string-match "[^0-9]" r2bv-month)
@@ -316,7 +312,7 @@
    )
 
 (defun r2b-snarf-input ()
-   "parse buffer into global variables"
+   "Parse buffer into global variables."
    (let ((case-fold-search t))
       (r2b-trace "snarfing...")
       (sit-for 0)
@@ -376,9 +372,9 @@
 
 
 (defun r2b-put-field (field data &optional abbrevs)
-  "print bibtex FIELD = {DATA} if DATA not null; precede
+  "Print bibtex FIELD = {DATA} if DATA not null; precede
 with a comma and newline; if ABBREVS list is given, then
-try to replace the {DATA} with an abbreviation"
+try to replace the {DATA} with an abbreviation."
   (if data
     (let (match nodelim multi-line index)
       (cond
@@ -433,7 +429,7 @@
 
 
 (defun r2b-require (vars)
-   "If any of VARS is null, set to empty string and log error"
+   "If any of VARS is null, set to empty string and log error."
    (cond 
       ((null vars))
       ((listp vars) (r2b-require (car vars)) (r2b-require (cdr vars)))
@@ -448,11 +444,11 @@
 
 
 (defmacro r2b-moveq (new old)
-   "set NEW to OLD and set OLD to nil"
+   "Set NEW to OLD and set OLD to nil."
    (list 'progn (list 'setq new old) (list 'setq old 'nil)))
 
 (defun r2b-isa-proceedings (name)
-   "return t if NAME is the name of proceedings"
+   "Return t if NAME is the name of proceedings."
    (and
       name
       (or
@@ -464,8 +460,8 @@
       )))
 
 (defun r2b-isa-university (name)
-   "return t if NAME is a university or similar organization, 
-but not a publisher"
+   "Return t if NAME is a university or similar organization,
+but not a publisher."
    (and 
       name
       (string-match "university" name)
@@ -474,7 +470,7 @@
    ))
 
 (defun r2b-barf-output ()
-   "generate bibtex based on global variables"
+   "Generate bibtex based on global variables."
    (let ((standard-output r2b-out-buf) (case-fold-search t) match)
 
       (r2b-trace "...barfing")
@@ -604,8 +600,8 @@
 
 
 (defun r2b-convert-record (output-name)
-   "transform current bib entry and append to buffer OUTPUT;
-do M-x r2b-help for more info"
+   "Transform current bib entry and append to buffer OUTPUT;
+do \"M-x r2b-help\" for more info."
    (interactive 
       (list (read-string "Output to buffer: " r2b-out-buf-name)))
    (let (rec-end rec-begin not-done)
@@ -641,8 +637,8 @@
       
       
 (defun r2b-convert-buffer (output-name)
-   "transform current buffer and append to buffer OUTPUT;
-do M-x r2b-help for more info"
+   "Transform current buffer and append to buffer OUTPUT;
+do \"M-x r2b-help\" for more info."
    (interactive 
       (list (read-string "Output to buffer: " r2b-out-buf-name)))
    (save-excursion
@@ -703,7 +699,7 @@
 
 
 (defun r2b-help ()
-   "print help message"
+   "Print help message."
    (interactive)
    (with-output-to-temp-buffer "*Help*"
       (princ r2b-help-message)))
@@ -712,4 +708,3 @@
    (r2b-help))
 
 (message "r2b loaded")
-