|About 1,600 results (0.18 seconds)|
(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) (goto-char (+
[0-9]* <a" (car list-lines)) (progn (setq string (concat string (match-string 1 (car list-
lines)) " " (match-string 2 (car list-lines)) " " ) ) (if (string-match "<strong>\\(.
The first is called the car; the second is called the cdr. See also atom. cursor (text
cursor) – how it differs from the pointer (mouse pointer); its relation with point ...
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)) ...
(while records (if (bbdb-record-net (car records)) (setq good (cons (car records)
good)) (setq bad (cons (car records) bad))) (setq records (cdr records))) ;; write ...
Oct 13, 2005 ... ... stream functions (defmacro cons-stream (a b) `(cons ,a (delay ,b))) (defun
stream-car (stream) (car stream)) (defun stream-cdr (stream) (force ...
... thing (intern thing))) (let ((bounds (bounds-of-thing-at-point thing))) (if bounds (
kill-region (car bounds) (cdr bounds))))) ;;;###autoload (defun copy-thing (thing) ...
(defun vcproj-extract-platforms (current-block) "Extract a list of platform from
CURRENT-BLOCK." (unless (eq (car current-block) 'Platforms) (error "Expected a
Jan 10, 2015 ... ... message</msg> <info>My UA</info> </post>") (root (with-temp-buffer (insert
xml) (xml-parse-region (point-min) (point-max)))) (post (car root)) ...
Aug 24, 2013 ... ... nil t) (let* ((capacity (car (read-from-string (match-string 1)))) (amps (car (read-
from-string (match-string 2)))) (current (car (read-from-string ...