Mercurial > emacs

comparison lisp/vc-hooks.el @ 14566:20d4400de24e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-consult-rcs-headers): Ignore text properties.
author Karl Heuer <kwzh@gnu.org>
date Wed, 14 Feb 1996 04:32:55 +0000
parents bd73837b861a
children 3d47471d947d
comparison
equal deleted inserted replaced
14565:fa33ca883a52 14566:20d4400de24e
391 (and (progn (goto-char (point-min)) 391 (and (progn (goto-char (point-min))
392 (search-forward "$Header: " nil t)) 392 (search-forward "$Header: " nil t))
393 (looking-at "[^ ]+ \\([0-9.]+\\) "))) 393 (looking-at "[^ ]+ \\([0-9.]+\\) ")))
394 (goto-char (match-end 0)) 394 (goto-char (match-end 0))
395 ;; if found, store the revision number ... 395 ;; if found, store the revision number ...
396 (setq version (buffer-substring (match-beginning 1) (match-end 1))) 396 (setq version (buffer-substring-no-properties (match-beginning 1)
397 (match-end 1)))
397 ;; ... and check for the locking state 398 ;; ... and check for the locking state
398 (cond 399 (cond
399 ((looking-at 400 ((looking-at
400 (concat "[0-9]+[/-][01][0-9][/-][0-3][0-9] " ; date 401 (concat "[0-9]+[/-][01][0-9][/-][0-3][0-9] " ; date
401 "[0-2][0-9]:[0-5][0-9]+:[0-6][0-9]+\\([+-][0-9:]+\\)? " ; time 402 "[0-2][0-9]:[0-5][0-9]+:[0-6][0-9]+\\([+-][0-9:]+\\)? " ; time
407 (setq locking-user 'none) 408 (setq locking-user 'none)
408 (setq status 'rev-and-lock)) 409 (setq status 'rev-and-lock))
409 ;; revision is locked by some user 410 ;; revision is locked by some user
410 ((looking-at "\\([^ ]+\\) \\$") 411 ((looking-at "\\([^ ]+\\) \\$")
411 (setq locking-user 412 (setq locking-user
412 (buffer-substring (match-beginning 1) (match-end 1))) 413 (buffer-substring-no-properties (match-beginning 1)
414 (match-end 1)))
413 (setq status 'rev-and-lock)) 415 (setq status 'rev-and-lock))
414 ;; everything else: false 416 ;; everything else: false
415 (nil))) 417 (nil)))
416 ;; unexpected information in 418 ;; unexpected information in
417 ;; keyword string --> quit 419 ;; keyword string --> quit
420 ;; -------------------- 422 ;; --------------------
421 ((re-search-forward (concat "\\$" 423 ((re-search-forward (concat "\\$"
422 "Revision: \\([0-9.]+\\) \\$") 424 "Revision: \\([0-9.]+\\) \\$")
423 nil t) 425 nil t)
424 ;; if found, store the revision number ... 426 ;; if found, store the revision number ...
425 (setq version (buffer-substring (match-beginning 1) (match-end 1))) 427 (setq version (buffer-substring-no-properties (match-beginning 1)
428 (match-end 1)))
426 ;; and see if there's any lock information 429 ;; and see if there's any lock information
427 (goto-char (point-min)) 430 (goto-char (point-min))
428 (if (re-search-forward (concat "\\$" "Locker:") nil t) 431 (if (re-search-forward (concat "\\$" "Locker:") nil t)
429 (cond ((looking-at " \\([^ ]+\\) \\$") 432 (cond ((looking-at " \\([^ ]+\\) \\$")
430 (setq locking-user (buffer-substring (match-beginning 1) 433 (setq locking-user (buffer-substring-no-properties
431 (match-end 1))) 434 (match-beginning 1)
435 (match-end 1)))
432 (setq status 'rev-and-lock)) 436 (setq status 'rev-and-lock))
433 ((looking-at " *\\$") 437 ((looking-at " *\\$")
434 (setq locking-user 'none) 438 (setq locking-user 'none)
435 (setq status 'rev-and-lock)) 439 (setq status 'rev-and-lock))
436 (t 440 (t