|About 1,580 results (0.38 seconds)|
[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>\\(.
t) (eq event 'tab)) (let ((most (try-completion (car name) bufs))) (cond ((not (stringp
most)) (beep)) ;there are no matches ((> (length most) (length (car name))) ...
(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 (+
... thing (intern thing))) (let ((bounds (bounds-of-thing-at-point thing))) (if bounds (
kill-region (car bounds) (cdr bounds))))) ;;;###autoload (defun copy-thing (thing) ...
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)) ...
Aug 9, 2015 ... Assumes that each zone is ordered (its car <= its cadr). The cddrs are ignored.
Zones that use markers do not overlap if the marker buffers differ ...
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 ...
(defun vcproj-extract-platforms (current-block) "Extract a list of platform from
CURRENT-BLOCK." (unless (eq (car current-block) 'Platforms) (error "Expected a
(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 ...
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 ...