[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103662: Fix misuse of quote in `case
|
From: |
Stefan Monnier |
|
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103662: Fix misuse of quote in `case'. |
|
Date: |
Tue, 15 Mar 2011 13:39:56 -0400 |
|
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 103662
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2011-03-15 13:39:56 -0400
message:
Fix misuse of quote in `case'.
* lisp/progmodes/ruby-mode.el (ruby-backward-sexp):
* lisp/progmodes/ebrowse.el (ebrowse-draw-file-member-info):
* lisp/play/gamegrid.el (gamegrid-make-face):
* lisp/play/bubbles.el (bubbles--grid-width, bubbles--grid-height)
(bubbles--colors, bubbles--shift-mode, bubbles--initialize-images):
* lisp/notifications.el (notifications-notify):
* lisp/net/xesam.el (xesam-search-engines):
* lisp/net/quickurl.el (quickurl-list-insert):
* lisp/vc/vc-hg.el (vc-hg-dir-printer): Fix use of case.
* lisp/gnus/auth-source.el (auth-source-netrc-create):
* lisp/gnus/message.el (message-yank-original): Fix use of `case'.
* lisp/org/org-src.el (org-src-switch-to-buffer):
* lisp/org/org-plot.el (org-plot/gnuplot-script, org-plot/gnuplot):
* lisp/org/org-mouse.el (org-mouse-agenda-type):
* lisp/org/org-freemind.el (org-freemind-node-to-org):
* lisp/org/ob-sql.el (org-babel-execute:sql):
* lisp/org/ob-exp.el (org-babel-exp-do-export, org-babel-exp-code):
* lisp/org/ob-ref.el (org-babel-ref-resolve): Fix use of case.
modified:
lisp/ChangeLog
lisp/gnus/ChangeLog
lisp/gnus/auth-source.el
lisp/gnus/message.el
lisp/net/quickurl.el
lisp/net/xesam.el
lisp/notifications.el
lisp/org/ChangeLog
lisp/org/ob-exp.el
lisp/org/ob-ref.el
lisp/org/ob-sql.el
lisp/org/org-freemind.el
lisp/org/org-mouse.el
lisp/org/org-plot.el
lisp/org/org-src.el
lisp/play/bubbles.el
lisp/play/gamegrid.el
lisp/progmodes/ebrowse.el
lisp/progmodes/ruby-mode.el
lisp/vc/vc-dir.el
lisp/vc/vc-hg.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-03-15 16:21:30 +0000
+++ b/lisp/ChangeLog 2011-03-15 17:39:56 +0000
@@ -1,3 +1,15 @@
+2011-03-15 Stefan Monnier <address@hidden>
+
+ * progmodes/ruby-mode.el (ruby-backward-sexp):
+ * progmodes/ebrowse.el (ebrowse-draw-file-member-info):
+ * play/gamegrid.el (gamegrid-make-face):
+ * play/bubbles.el (bubbles--grid-width, bubbles--grid-height)
+ (bubbles--colors, bubbles--shift-mode, bubbles--initialize-images):
+ * notifications.el (notifications-notify):
+ * net/xesam.el (xesam-search-engines):
+ * net/quickurl.el (quickurl-list-insert):
+ * vc/vc-hg.el (vc-hg-dir-printer): Fix use of case.
+
2011-03-15 Chong Yidong <address@hidden>
* startup.el (command-line): Update package subdirectory regexp.
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-03-15 12:10:36 +0000
+++ b/lisp/gnus/ChangeLog 2011-03-15 17:39:56 +0000
@@ -1,3 +1,8 @@
+2011-03-15 Stefan Monnier <address@hidden>
+
+ * auth-source.el (auth-source-netrc-create):
+ * message.el (message-yank-original): Fix use of `case'.
+
2011-03-15 Teodor Zlatanov <address@hidden>
* message.el (message-yank-original): Use cond instead of CL case.
=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el 2011-03-15 02:44:17 +0000
+++ b/lisp/gnus/auth-source.el 2011-03-15 17:39:56 +0000
@@ -1130,10 +1130,10 @@
(if (zerop (length add)) "" " ")
;; remap auth-source tokens to netrc
(case r
- ('user "login")
- ('host "machine")
- ('secret "password")
- ('port "port") ; redundant but clearer
+ (user "login")
+ (host "machine")
+ (secret "password")
+ (port "port") ; redundant but clearer
(t (symbol-name r)))
;; the value will be printed in %S format
data))))
=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el 2011-03-15 12:10:36 +0000
+++ b/lisp/gnus/message.el 2011-03-15 17:39:56 +0000
@@ -3748,13 +3748,13 @@
(goto-char (mark t))
(insert-before-markers ?\n)
(goto-char pt))))
- (cond
- ((eq 'above message-cite-reply-position)
+ (case message-cite-reply-position
+ (above
(message-goto-body)
(insert body-text)
(insert (if (bolp) "\n" "\n\n"))
(message-goto-body))
- ((eq 'below message-cite-reply-position)
+ (below
(message-goto-signature)))
;; Add a `message-setup-very-last-hook' here?
;; Add `gnus-article-highlight-citation' here?
=== modified file 'lisp/net/quickurl.el'
--- a/lisp/net/quickurl.el 2011-01-25 04:08:28 +0000
+++ b/lisp/net/quickurl.el 2011-03-15 17:39:56 +0000
@@ -511,15 +511,15 @@
(with-current-buffer quickurl-list-last-buffer
(insert
(case type
- ('url (funcall quickurl-format-function url))
- ('naked-url (quickurl-url-url url))
- ('with-lookup (format "%s <URL:%s>"
+ (url (funcall quickurl-format-function url))
+ (naked-url (quickurl-url-url url))
+ (with-lookup (format "%s <URL:%s>"
(quickurl-url-keyword url)
(quickurl-url-url url)))
- ('with-desc (format "%S <URL:%s>"
+ (with-desc (format "%S <URL:%s>"
(quickurl-url-description url)
(quickurl-url-url url)))
- ('lookup (quickurl-url-keyword url)))))
+ (lookup (quickurl-url-keyword url)))))
(error "No URL details on that line"))
url))
=== modified file 'lisp/net/xesam.el'
--- a/lisp/net/xesam.el 2011-02-01 21:22:21 +0000
+++ b/lisp/net/xesam.el 2011-03-15 17:39:56 +0000
@@ -414,18 +414,18 @@
;; Hopefully, this will change later.
(setq hit-fields
(case (intern vendor-id)
- ('Beagle
+ (Beagle
'("xesam:mimeType" "xesam:url"))
- ('Strigi
+ (Strigi
'("xesam:author" "xesam:cc" "xesam:charset"
"xesam:contentType" "xesam:fileExtension"
"xesam:id" "xesam:lineCount" "xesam:links"
"xesam:mimeType" "xesam:name" "xesam:size"
"xesam:sourceModified" "xesam:subject" "xesam:to"
"xesam:url"))
- ('TrackerXesamSession
+ (TrackerXesamSession
'("xesam:relevancyRating" "xesam:url"))
- ('Debbugs
+ (Debbugs
'("xesam:keyword" "xesam:owner" "xesam:title"
"xesam:url" "xesam:sourceModified" "xesam:mimeType"
"debbugs:key"))
=== modified file 'lisp/notifications.el'
--- a/lisp/notifications.el 2011-01-25 04:08:28 +0000
+++ b/lisp/notifications.el 2011-03-15 17:39:56 +0000
@@ -210,8 +210,8 @@
(add-to-list 'hints `(:dict-entry
"urgency"
(:variant :byte ,(case urgency
- ('low 0)
- ('critical 2)
+ (low 0)
+ (critical 2)
(t 1)))) t))
(when category
(add-to-list 'hints `(:dict-entry
=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog 2011-03-12 19:19:47 +0000
+++ b/lisp/org/ChangeLog 2011-03-15 17:39:56 +0000
@@ -1,3 +1,13 @@
+2011-03-15 Stefan Monnier <address@hidden>
+
+ * org-src.el (org-src-switch-to-buffer):
+ * org-plot.el (org-plot/gnuplot-script, org-plot/gnuplot):
+ * org-mouse.el (org-mouse-agenda-type):
+ * org-freemind.el (org-freemind-node-to-org):
+ * ob-sql.el (org-babel-execute:sql):
+ * ob-exp.el (org-babel-exp-do-export, org-babel-exp-code):
+ * ob-ref.el (org-babel-ref-resolve): Fix use of case.
+
2011-03-06 Juanma Barranquero <address@hidden>
* org.el (org-blank-before-new-entry, org-context-in-file-links)
=== modified file 'lisp/org/ob-exp.el'
--- a/lisp/org/ob-exp.el 2011-01-25 04:08:28 +0000
+++ b/lisp/org/ob-exp.el 2011-03-15 17:39:56 +0000
@@ -231,10 +231,10 @@
(org-babel-exp-results info type 'silent))))
(clean () (org-babel-remove-result info)))
(case (intern (or (cdr (assoc :exports (nth 2 info))) "code"))
- ('none (silently) (clean) "")
- ('code (silently) (clean) (org-babel-exp-code info type))
- ('results (org-babel-exp-results info type))
- ('both (concat (org-babel-exp-code info type)
+ (none (silently) (clean) "")
+ (code (silently) (clean) (org-babel-exp-code info type))
+ (results (org-babel-exp-results info type))
+ (both (concat (org-babel-exp-code info type)
"\n\n"
(org-babel-exp-results info type))))))
@@ -250,8 +250,8 @@
(name (nth 4 info))
(args (mapcar #'cdr (org-babel-get-header (nth 2 info) :var))))
(case type
- ('inline (format "=%s=" body))
- ('block
+ (inline (format "=%s=" body))
+ (block
(let ((str
(format "#+BEGIN_SRC %s %s\n%s%s#+END_SRC\n" lang switches body
(if (and body (string-match "\n$" body))
@@ -265,7 +265,7 @@
(mapconcat #'identity args ", ")))
str))
str))
- ('lob
+ (lob
(let ((call-line (and (string-match "results=" (car args))
(substring (car args) (match-end 0)))))
(cond
=== modified file 'lisp/org/ob-ref.el'
--- a/lisp/org/ob-ref.el 2011-01-25 04:08:28 +0000
+++ b/lisp/org/ob-ref.el 2011-03-15 17:39:56 +0000
@@ -147,12 +147,12 @@
(let ((params (append args '((:results . "silent")))))
(setq result
(case type
- ('results-line (org-babel-read-result))
- ('table (org-babel-read-table))
- ('list (org-babel-read-list))
- ('file (org-babel-read-link))
- ('source-block (org-babel-execute-src-block nil nil params))
- ('lob (org-babel-execute-src-block nil lob-info params)))))
+ (results-line (org-babel-read-result))
+ (table (org-babel-read-table))
+ (list (org-babel-read-list))
+ (file (org-babel-read-link))
+ (source-block (org-babel-execute-src-block nil nil params))
+ (lob (org-babel-execute-src-block nil lob-info params)))))
(if (symbolp result)
(format "%S" result)
(if (and index (listp result))
=== modified file 'lisp/org/ob-sql.el'
--- a/lisp/org/ob-sql.el 2011-01-25 04:08:28 +0000
+++ b/lisp/org/ob-sql.el 2011-03-15 17:39:56 +0000
@@ -66,18 +66,18 @@
(out-file (or (cdr (assoc :out-file params))
(org-babel-temp-file "sql-out-")))
(command (case (intern engine)
- ('msosql (format "osql %s -s \"\t\" -i %s -o %s"
- (or cmdline "")
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)))
- ('mysql (format "mysql %s -e \"source %s\" > %s"
+ (msosql (format "osql %s -s \"\t\" -i %s -o %s"
(or cmdline "")
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)))
- ('postgresql (format "psql -A -P footer=off -F \"\t\" -f
%s -o %s %s"
- (org-babel-process-file-name in-file)
- (org-babel-process-file-name out-file)
- (or cmdline "")))
+ (org-babel-process-file-name in-file)
+ (org-babel-process-file-name out-file)))
+ (mysql (format "mysql %s -e \"source %s\" > %s"
+ (or cmdline "")
+ (org-babel-process-file-name in-file)
+ (org-babel-process-file-name out-file)))
+ (postgresql (format "psql -A -P footer=off -F \"\t\" -f %s
-o %s %s"
+ (org-babel-process-file-name in-file)
+ (org-babel-process-file-name out-file)
+ (or cmdline "")))
(t (error "no support for the %s sql engine" engine)))))
(with-temp-file in-file
(insert (org-babel-expand-body:sql body params)))
=== modified file 'lisp/org/org-freemind.el'
--- a/lisp/org/org-freemind.el 2011-01-25 04:08:28 +0000
+++ b/lisp/org/org-freemind.el 2011-03-15 17:39:56 +0000
@@ -1172,8 +1172,8 @@
(when (< 0 (- level skip-levels))
(dolist (attrib attributes)
(case (car attrib)
- ('TEXT (setq text (cdr attrib)))
- ('text (setq text (cdr attrib)))))
+ (TEXT (setq text (cdr attrib)))
+ (text (setq text (cdr attrib)))))
(unless text
;; There should be a richcontent node holding the text:
(setq text (org-freemind-get-richcontent-node-text node)))
@@ -1193,7 +1193,7 @@
(setq text (replace-regexp-in-string "\n $" "" text))
(insert text))
(case qname
- ('node
+ (node
(insert (make-string (- level skip-levels) ?*) " " text "\n")
(when note
(insert ":COMMENT:\n" note "\n:END:\n"))
=== modified file 'lisp/org/org-mouse.el'
--- a/lisp/org/org-mouse.el 2011-01-25 04:08:28 +0000
+++ b/lisp/org/org-mouse.el 2011-03-15 17:39:56 +0000
@@ -476,11 +476,11 @@
(defun org-mouse-agenda-type (type)
(case type
- ('tags "Tags: ")
- ('todo "TODO: ")
- ('tags-tree "Tags tree: ")
- ('todo-tree "TODO tree: ")
- ('occur-tree "Occur tree: ")
+ (tags "Tags: ")
+ (todo "TODO: ")
+ (tags-tree "Tags tree: ")
+ (todo-tree "TODO tree: ")
+ (occur-tree "Occur tree: ")
(t "Agenda command ???")))
=== modified file 'lisp/org/org-plot.el'
--- a/lisp/org/org-plot.el 2011-01-25 04:08:28 +0000
+++ b/lisp/org/org-plot.el 2011-03-15 17:39:56 +0000
@@ -206,18 +206,18 @@
(y-labels (plist-get params :ylabels))
(plot-str "'%s' using %s%d%s with %s title '%s'")
(plot-cmd (case type
- ('2d "plot")
- ('3d "splot")
- ('grid "splot")))
+ (2d "plot")
+ (3d "splot")
+ (grid "splot")))
(script "reset") plot-lines)
(flet ((add-to-script (line) (setf script (format "%s\n%s" script line))))
(when file ;; output file
(add-to-script (format "set term %s" (file-name-extension file)))
(add-to-script (format "set output '%s'" file)))
(case type ;; type
- ('2d ())
- ('3d (if map (add-to-script "set map")))
- ('grid (if map
+ (2d ())
+ (3d (if map (add-to-script "set map")))
+ (grid (if map
(add-to-script "set pm3d map")
(add-to-script "set pm3d"))))
(when title (add-to-script (format "set title '%s'" title))) ;; title
@@ -243,7 +243,7 @@
"%Y-%m-%d-%H:%M:%S") "\"")))
(unless preface
(case type ;; plot command
- ('2d (dotimes (col num-cols)
+ (2d (dotimes (col num-cols)
(unless (and (equal type '2d)
(or (and ind (equal (+ 1 col) ind))
(and deps (not (member (+ 1 col) deps)))))
@@ -258,10 +258,10 @@
with
(or (nth col col-labels) (format "%d" (+ 1
col))))
plot-lines)))))
- ('3d
+ (3d
(setq plot-lines (list (format "'%s' matrix with %s title ''"
data-file with))))
- ('grid
+ (grid
(setq plot-lines (list (format "'%s' with %s title ''"
data-file with)))))
(add-to-script
@@ -305,9 +305,9 @@
(setf params (org-plot/collect-options params))))
;; dump table to datafile (very different for grid)
(case (plist-get params :plot-type)
- ('2d (org-plot/gnuplot-to-data table data-file params))
- ('3d (org-plot/gnuplot-to-data table data-file params))
- ('grid (let ((y-labels (org-plot/gnuplot-to-grid-data
+ (2d (org-plot/gnuplot-to-data table data-file params))
+ (3d (org-plot/gnuplot-to-data table data-file params))
+ (grid (let ((y-labels (org-plot/gnuplot-to-grid-data
table data-file params)))
(when y-labels (plist-put params :ylabels y-labels)))))
;; check for timestamp ind column
=== modified file 'lisp/org/org-src.el'
--- a/lisp/org/org-src.el 2011-02-10 16:56:00 +0000
+++ b/lisp/org/org-src.el 2011-03-15 17:39:56 +0000
@@ -335,26 +335,26 @@
(defun org-src-switch-to-buffer (buffer context)
(case org-src-window-setup
- ('current-window
+ (current-window
(switch-to-buffer buffer))
- ('other-window
+ (other-window
(switch-to-buffer-other-window buffer))
- ('other-frame
+ (other-frame
(case context
- ('exit
+ (exit
(let ((frame (selected-frame)))
(switch-to-buffer-other-frame buffer)
(delete-frame frame)))
- ('save
+ (save
(kill-buffer (current-buffer))
(switch-to-buffer buffer))
(t
(switch-to-buffer-other-frame buffer))))
- ('reorganize-frame
+ (reorganize-frame
(if (eq context 'edit) (delete-other-windows))
(org-switch-to-buffer-other-window buffer)
(if (eq context 'exit) (delete-other-windows)))
- ('switch-invisibly
+ (switch-invisibly
(set-buffer buffer))
(t
(message "Invalid value %s for org-src-window-setup"
=== modified file 'lisp/play/bubbles.el'
--- a/lisp/play/bubbles.el 2011-01-25 04:08:28 +0000
+++ b/lisp/play/bubbles.el 2011-03-15 17:39:56 +0000
@@ -719,57 +719,57 @@
(defsubst bubbles--grid-width ()
"Return the grid width for the current game theme."
(car (case bubbles-game-theme
- ('easy
+ (easy
bubbles--grid-small)
- ('medium
+ (medium
bubbles--grid-medium)
- ('difficult
+ (difficult
bubbles--grid-large)
- ('hard
+ (hard
bubbles--grid-huge)
- ('user-defined
+ (user-defined
bubbles-grid-size))))
(defsubst bubbles--grid-height ()
"Return the grid height for the current game theme."
(cdr (case bubbles-game-theme
- ('easy
+ (easy
bubbles--grid-small)
- ('medium
+ (medium
bubbles--grid-medium)
- ('difficult
+ (difficult
bubbles--grid-large)
- ('hard
+ (hard
bubbles--grid-huge)
- ('user-defined
+ (user-defined
bubbles-grid-size))))
(defsubst bubbles--colors ()
"Return the color list for the current game theme."
(case bubbles-game-theme
- ('easy
+ (easy
bubbles--colors-2)
- ('medium
+ (medium
bubbles--colors-3)
- ('difficult
+ (difficult
bubbles--colors-4)
- ('hard
+ (hard
bubbles--colors-5)
- ('user-defined
+ (user-defined
bubbles-colors)))
(defsubst bubbles--shift-mode ()
"Return the shift mode for the current game theme."
(case bubbles-game-theme
- ('easy
- 'default)
- ('medium
- 'default)
- ('difficult
- 'always)
- ('hard
- 'always)
- ('user-defined
+ (easy
+ 'default)
+ (medium
+ 'default)
+ (difficult
+ 'always)
+ (hard
+ 'always)
+ (user-defined
bubbles-shift-mode)))
(defun bubbles-save-settings ()
@@ -1346,11 +1346,11 @@
(when (and (display-images-p)
(not (eq bubbles-graphics-theme 'ascii)))
(let ((template (case bubbles-graphics-theme
- ('circles bubbles--image-template-circle)
- ('balls bubbles--image-template-ball)
- ('squares bubbles--image-template-square)
- ('diamonds bubbles--image-template-diamond)
- ('emacs bubbles--image-template-emacs))))
+ (circles bubbles--image-template-circle)
+ (balls bubbles--image-template-ball)
+ (squares bubbles--image-template-square)
+ (diamonds bubbles--image-template-diamond)
+ (emacs bubbles--image-template-emacs))))
(setq bubbles--empty-image
(create-image (replace-regexp-in-string
"^\"\\(.*\\)\t.*c .*\",$"
=== modified file 'lisp/play/gamegrid.el'
--- a/lisp/play/gamegrid.el 2011-01-25 04:08:28 +0000
+++ b/lisp/play/gamegrid.el 2011-03-15 17:39:56 +0000
@@ -213,19 +213,19 @@
(let ((data (gamegrid-match-spec-list data-spec-list))
(color (gamegrid-match-spec-list color-spec-list)))
(case data
- ('color-x
+ (color-x
(gamegrid-make-color-x-face color))
- ('grid-x
+ (grid-x
(unless gamegrid-grid-x-face
(setq gamegrid-grid-x-face (gamegrid-make-grid-x-face)))
gamegrid-grid-x-face)
- ('mono-x
+ (mono-x
(unless gamegrid-mono-x-face
(setq gamegrid-mono-x-face (gamegrid-make-mono-x-face)))
gamegrid-mono-x-face)
- ('color-tty
+ (color-tty
(gamegrid-make-color-tty-face color))
- ('mono-tty
+ (mono-tty
(unless gamegrid-mono-tty-face
(setq gamegrid-mono-tty-face (gamegrid-make-mono-tty-face)))
gamegrid-mono-tty-face))))
=== modified file 'lisp/progmodes/ebrowse.el'
--- a/lisp/progmodes/ebrowse.el 2011-01-26 08:36:39 +0000
+++ b/lisp/progmodes/ebrowse.el 2011-03-15 17:39:56 +0000
@@ -3566,12 +3566,12 @@
(insert kind)
(indent-to 50)
(insert (case (second info)
- ('ebrowse-ts-member-functions "member function")
- ('ebrowse-ts-member-variables "member variable")
- ('ebrowse-ts-static-functions "static function")
- ('ebrowse-ts-static-variables "static variable")
- ('ebrowse-ts-friends (if globals-p "define" "friend"))
- ('ebrowse-ts-types "type")
+ (ebrowse-ts-member-functions "member function")
+ (ebrowse-ts-member-variables "member variable")
+ (ebrowse-ts-static-functions "static function")
+ (ebrowse-ts-static-variables "static variable")
+ (ebrowse-ts-friends (if globals-p "define" "friend"))
+ (ebrowse-ts-types "type")
(t "unknown"))
"\n")))
=== modified file 'lisp/progmodes/ruby-mode.el'
--- a/lisp/progmodes/ruby-mode.el 2011-01-27 17:07:48 +0000
+++ b/lisp/progmodes/ruby-mode.el 2011-03-15 17:39:56 +0000
@@ -974,7 +974,7 @@
(goto-char (scan-sexps (1+ (point)) -1))
(case (char-before)
(?% (forward-char -1))
- ('(?q ?Q ?w ?W ?r ?x)
+ ((?q ?Q ?w ?W ?r ?x)
(if (eq (char-before (1- (point))) ?%) (forward-char
-2))))
nil)
((looking-at "\\s\"\\|\\\\\\S_")
=== modified file 'lisp/vc/vc-dir.el'
--- a/lisp/vc/vc-dir.el 2011-03-05 21:56:00 +0000
+++ b/lisp/vc/vc-dir.el 2011-03-15 17:39:56 +0000
@@ -104,7 +104,7 @@
;; We pass a filename to create-file-buffer because it is what
;; the function expects, and also what uniquify needs (if active)
(with-current-buffer (create-file-buffer (expand-file-name bname dir))
- (cd dir)
+ (setq default-directory dir)
(vc-setup-buffer (current-buffer))
;; Reset the vc-parent-buffer-name so that it does not appear
;; in the mode-line.
@@ -1002,7 +1002,7 @@
(generate-new-buffer (format " *VC-%s* tmp status" backend))))
(lexical-let ((buffer (current-buffer)))
(with-current-buffer vc-dir-process-buffer
- (cd def-dir)
+ (setq default-directory def-dir)
(erase-buffer)
(vc-call-backend
backend 'dir-status-files def-dir files default-state
@@ -1067,7 +1067,7 @@
(ewoc-set-hf vc-ewoc (vc-dir-headers backend def-dir) "")
(lexical-let ((buffer (current-buffer)))
(with-current-buffer vc-dir-process-buffer
- (cd def-dir)
+ (setq default-directory def-dir)
(erase-buffer)
(vc-call-backend
backend 'dir-status def-dir
=== modified file 'lisp/vc/vc-hg.el'
--- a/lisp/vc/vc-hg.el 2011-03-10 08:32:27 +0000
+++ b/lisp/vc/vc-hg.el 2011-03-15 17:39:56 +0000
@@ -529,9 +529,9 @@
(insert (propertize
(format " (%s %s)"
(case (vc-hg-extra-fileinfo->rename-state extra)
- ('copied "copied from")
- ('renamed-from "renamed from")
- ('renamed-to "renamed to"))
+ (copied "copied from")
+ (renamed-from "renamed from")
+ (renamed-to "renamed to"))
(vc-hg-extra-fileinfo->extra-name extra))
'face 'font-lock-comment-face)))))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103662: Fix misuse of quote in `case'.,
Stefan Monnier <=