Macro: ABBREVS

Documentation

creates abbreviations for a list of paired functions e.g. (abbrevs short1 long1 short2 long2 ...)

Source

(defmacro abbrevs (&rest names)
  "creates abbreviations for a list of paired functions
   e.g. (abbrevs short1 long1
                 short2 long2
                 ...)"
  `(progn
    ,@(mapcar (lambda (pair)
		`(abbrev ,@pair))
	      (group names 2))))