mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-26 07:33:47 +00:00
*** empty log message ***
This commit is contained in:
Jim Blandy
parent
573f9b32b9
commit
14c5b7212d
@ -29,8 +29,7 @@ A list represents a rectangle; its elements are strings.")
|
||||
(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 @@ Interactively, second arg is non-nil if prefix arg is supplied."
|
||||
(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 @@ START and END are buffer positions indicating what to append."
|
||||
(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 @@ START and END are buffer positions indicating what to prepend."
|
||||
(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
|
||||
|
||||
@ -84,22 +84,22 @@ BibTeX macro \"ijcai7\".")
|
||||
(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 @@ word in the title)")
|
||||
(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 @@ word in the title)")
|
||||
|
||||
|
||||
(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 @@ word in the title)")
|
||||
|
||||
;*********************************************************
|
||||
(defun r2b-reset ()
|
||||
"unbind defvars, for debugging"
|
||||
"Unbind defvars, for debugging."
|
||||
(interactive)
|
||||
(makunbound 'r2b-journal-abbrevs)
|
||||
(makunbound 'r2b-booktitle-abbrevs)
|
||||
@ -162,8 +162,7 @@ word in the title)")
|
||||
(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 @@ word in the title)")
|
||||
(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 @@ word in the title)")
|
||||
))
|
||||
|
||||
(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 @@ word in the title)")
|
||||
(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 @@ title if CAPITALIZE is true. Returns value of VAR."
|
||||
))
|
||||
|
||||
(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 @@ title if CAPITALIZE is true. Returns value of VAR."
|
||||
("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 @@ title if CAPITALIZE is true. Returns value of VAR."
|
||||
)
|
||||
|
||||
(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 @@ title if CAPITALIZE is true. Returns value of VAR."
|
||||
|
||||
|
||||
(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 @@ try to replace the {DATA} with an abbreviation"
|
||||
|
||||
|
||||
(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 @@ try to replace the {DATA} with an abbreviation"
|
||||
|
||||
|
||||
(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 @@ try to replace the {DATA} with an abbreviation"
|
||||
)))
|
||||
|
||||
(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 @@ but not a publisher"
|
||||
))
|
||||
|
||||
(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 @@ but not a publisher"
|
||||
|
||||
|
||||
(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 @@ do M-x r2b-help for more info"
|
||||
|
||||
|
||||
(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 @@ To see this message again, perform
|
||||
|
||||
|
||||
(defun r2b-help ()
|
||||
"print help message"
|
||||
"Print help message."
|
||||
(interactive)
|
||||
(with-output-to-temp-buffer "*Help*"
|
||||
(princ r2b-help-message)))
|
||||
@ -712,4 +708,3 @@ To see this message again, perform
|
||||
(r2b-help))
|
||||
|
||||
(message "r2b loaded")
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user