# HG changeset patch # User Jim Blandy # Date 671487903 0 # Node ID 6155e428f07761e61057aa5ba47098e7e9caf57d # Parent 5647f204000964acd6b4c41663be09ece80e59a6 *** empty log message *** diff -r 5647f2040009 -r 6155e428f077 lisp/register.el --- 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 diff -r 5647f2040009 -r 6155e428f077 lisp/textmodes/refbib.el --- 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") -