|About 1,570 results (0.22 seconds)|
Mar 21, 2013 ... (cdr (assoc 'Definition list)) "\nSource: " (cdr (assoc 'DefinitionSource ... Results "\
n\n** Results:\n" (ddg-format-results (cdr (assoc 'Results list))) ...
... (selection (anything-get-selection)) (selection-info (progn (setcdr source-info (
cons (let ((found (assoc selection (cdr source-info)))) (if (not found) ;; new entry ...
... (incf (cdr (assoc from from-list))) (push (cons from 1) from-list)) (setq subject (
gnus-simplify-subject (mail-header-subject header))) (if (assoc subject subject-list
Oct 13, 2011 ... type))))) file-1 (cs (cdr (assoc "coding-system" attrs))) str showcode) (unless (
string= (file-name-extension file) type) (setq file (concat file ".
A cons is a pair of pointers; they are called the car and the cdr of the cell. Several
cons cells form a list if the car always points to an element of the list and the cdr ...
Oct 13, 2005 ... (let ((tail buffer-undo-list) (prev nil)) (while (car tail) (when (integerp (car tail)) (let (
(pos (car tail))) (if (null prev) (setq buffer-undo-list (cdr tail)) ...
... thing (intern thing))) (let ((bounds (bounds-of-thing-at-point thing))) (if bounds (
kill-region (car bounds) (cdr bounds))))) ;;;###autoload (defun copy-thing (thing) ...
(interactive) (= 1 (xml-rpc-method-call "http://snipplr.com/xml-rpc.php" 'user.
checkkey snipplr-user-key)) ) (defun snipplr-show-snippet(snippet) (let ((id (cdr ...
(let* ((elist mail-signature-alist) (found nil) (sind 0) (entry (car elist)) (header (car
entry)) (regex (car (cdr entry))) (file (car (cdr (cdr entry))))) (save-excursion (if ...
Aug 24, 2013 ... (save-excursion (let* ((b (diff-find-source-location)) (buff (car b)) (pos (car (car (
cdr (cdr b))))) (src (car (cdr (cdr (cdr b))))) (fn nil)) (set-buffer buff) ...