Mercurial > emacs

changeset 26455:03d8424273d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new backquote syntax.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 15 Nov 1999 14:24:32 +0000
parents 2f0e687605b8
children 048d2aebabdf
files lisp/iswitchb.el lisp/mail/mh-utils.el lisp/mail/rmail.el lisp/mail/rnews.el lisp/progmodes/cperl-mode.el
diffstat 5 files changed, 106 insertions(+), 106 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/iswitchb.el	Mon Nov 15 14:11:30 1999 +0000
+++ b/lisp/iswitchb.el	Mon Nov 15 14:24:32 1999 +0000
@@ -208,7 +208,7 @@
     (defmacro defgroup (&rest args)
       nil)
     (defmacro defcustom (var value doc &rest args) 
-      (` (defvar (, var) (, value) (, doc))))))
+      `(defvar ,var ,value ,doc))))
 
 ;;; User Variables
 ;;
--- a/lisp/mail/mh-utils.el	Mon Nov 15 14:11:30 1999 +0000
+++ b/lisp/mail/mh-utils.el	Mon Nov 15 14:24:32 1999 +0000
@@ -217,16 +217,16 @@
   ;; If SAVE-MODIFICATION-FLAG-P is non-nil, the buffer's modification
   ;; flag is unchanged, otherwise it is cleared.
   (setq save-modification-flag-p (car save-modification-flag-p)) ; CL style
-  (` (prog1
-	 (let ((mh-folder-updating-mod-flag (buffer-modified-p))
-	       (buffer-read-only nil)
-	       (buffer-file-name nil))	;don't let the buffer get locked
-	   (prog1
-	       (progn
-		 (,@ body))
-	     (mh-set-folder-modified-p mh-folder-updating-mod-flag)))
-       (,@ (if (not save-modification-flag-p)
-	       '((mh-set-folder-modified-p nil)))))))
+  `(prog1
+       (let ((mh-folder-updating-mod-flag (buffer-modified-p))
+	     (buffer-read-only nil)
+	     (buffer-file-name nil))	;don't let the buffer get locked
+	 (prog1
+	     (progn
+	       ,@body)
+	   (mh-set-folder-modified-p mh-folder-updating-mod-flag)))
+     ,@(if (not save-modification-flag-p)
+	   '((mh-set-folder-modified-p nil)))))
 
 (put 'with-mh-folder-updating 'lisp-indent-hook 1)
 
@@ -235,13 +235,13 @@
   ;; Display buffer SHOW-BUFFER in other window and execute BODY in it.
   ;; Stronger than save-excursion, weaker than save-window-excursion.
   (setq show-buffer (car show-buffer))	; CL style
-  (` (let ((mh-in-show-buffer-saved-window (selected-window)))
-       (switch-to-buffer-other-window (, show-buffer))
-       (if mh-bury-show-buffer (bury-buffer (current-buffer)))
-       (unwind-protect
-	   (progn
-	     (,@ body))
-	 (select-window mh-in-show-buffer-saved-window)))))
+  `(let ((mh-in-show-buffer-saved-window (selected-window)))
+     (switch-to-buffer-other-window ,show-buffer)
+     (if mh-bury-show-buffer (bury-buffer (current-buffer)))
+     (unwind-protect
+	 (progn
+           ,@body)
+       (select-window mh-in-show-buffer-saved-window))))
 
 (put 'mh-in-show-buffer 'lisp-indent-hook 1)
 
--- a/lisp/mail/rmail.el	Mon Nov 15 14:11:30 1999 +0000
+++ b/lisp/mail/rmail.el	Mon Nov 15 14:24:32 1999 +0000
@@ -465,25 +465,25 @@
 ;; Perform BODY in the summary buffer
 ;; in such a way that its cursor is properly updated in its own window.
 (defmacro rmail-select-summary (&rest body)
-  (` (let ((total rmail-total-messages))
-       (if (rmail-summary-displayed)
-	   (let ((window (selected-window)))
-	     (save-excursion
-	       (unwind-protect
-		   (progn
-		     (pop-to-buffer rmail-summary-buffer)
-		     ;; rmail-total-messages is a buffer-local var
-		     ;; in the rmail buffer.
-		     ;; This way we make it available for the body
-		     ;; even tho the rmail buffer is not current.
-		     (let ((rmail-total-messages total))
-		       (,@ body)))
-		 (select-window window))))
-	 (save-excursion
-	   (set-buffer rmail-summary-buffer)
-	   (let ((rmail-total-messages total))
-	     (,@ body))))
-       (rmail-maybe-display-summary))))
+  `(let ((total rmail-total-messages))
+     (if (rmail-summary-displayed)
+	 (let ((window (selected-window)))
+	   (save-excursion
+	     (unwind-protect
+		 (progn
+		   (pop-to-buffer rmail-summary-buffer)
+		   ;; rmail-total-messages is a buffer-local var
+		   ;; in the rmail buffer.
+		   ;; This way we make it available for the body
+		   ;; even tho the rmail buffer is not current.
+		   (let ((rmail-total-messages total))
+		     ,@body))
+	       (select-window window))))
+       (save-excursion
+	 (set-buffer rmail-summary-buffer)
+	 (let ((rmail-total-messages total))
+	   ,@body)))
+     (rmail-maybe-display-summary)))
 
 ;;;; *** Rmail Mode ***
 
--- a/lisp/mail/rnews.el	Mon Nov 15 14:11:30 1999 +0000
+++ b/lisp/mail/rnews.el	Mon Nov 15 14:24:32 1999 +0000
@@ -151,7 +151,7 @@
 (defmacro news-cdadr (x) (list 'cdr (list 'car (list 'cdr x))))
 
 (defmacro news-wins (pfx index)
-  (` (file-exists-p (concat (, pfx) "/" (int-to-string (, index))))))
+  `(file-exists-p (concat ,pfx "/" (int-to-string ,index))))
 
 (defvar news-max-plausible-gap 2
 	"* In an rnews directory, the maximum possible gap size.
@@ -166,10 +166,10 @@
 (defmacro news-/ (a1 a2)
 ;; a form of / that guarantees that (/ -1 2) = 0
   (if (zerop (/ -1 2))
-      (` (/ (, a1) (, a2)))
-    (` (if (< (, a1) 0)
-	   (- (/ (- (, a1)) (, a2)))
-	 (/ (, a1) (, a2))))))
+      `(/ ,a1 ,a2)
+    `(if (< ,a1 0)
+	 (- (/ (- ,a1) ,a2))
+       (/ ,a1 ,a2))))
 
 (defun news-find-first-or-last (pfx base dirn)
   ;; first use powers of two to find a plausible ceiling
--- a/lisp/progmodes/cperl-mode.el	Mon Nov 15 14:11:30 1999 +0000
+++ b/lisp/progmodes/cperl-mode.el	Mon Nov 15 14:24:32 1999 +0000
@@ -64,48 +64,48 @@
 
 ;; Some macros are needed for `defcustom'
 (if (fboundp 'eval-when-compile)
-   (eval-when-compile
+    (eval-when-compile
       (defconst cperl-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))
       (defmacro cperl-is-face (arg)	; Takes quoted arg
-	    (cond ((fboundp 'find-face)
-		   (` (find-face (, arg))))
-		  (;;(and (fboundp 'face-list)
-		   ;;	(face-list))
-		   (fboundp 'face-list)
-		   (` (member (, arg) (and (fboundp 'face-list)
-					   (face-list)))))
-		  (t
-		   (` (boundp (, arg))))))
+	(cond ((fboundp 'find-face)
+	       `(find-face ,arg))
+	      (;;(and (fboundp 'face-list)
+	       ;;	(face-list))
+	       (fboundp 'face-list)
+	       `(member ,arg (and (fboundp 'face-list)
+				  (face-list))))
+	      (t
+	       `(boundp ,arg))))
       (defmacro cperl-make-face (arg descr) ; Takes unquoted arg
 	(cond ((fboundp 'make-face)
-	       (` (make-face (quote (, arg)))))
+	       `(make-face (quote ,arg)))
 	      (t
-	       (` (defconst (, arg) (quote (, arg)) (, descr))))))
+	       `(defconst ,arg (quote ,arg) ,descr))))
       (defmacro cperl-force-face (arg descr) ; Takes unquoted arg
-	(` (progn
-	     (or (cperl-is-face (quote (, arg)))
-		 (cperl-make-face (, arg) (, descr)))
-	     (or (boundp (quote (, arg))) ; We use unquoted variants too
-		 (defconst (, arg) (quote (, arg)) (, descr))))))
+	`(progn
+	   (or (cperl-is-face (quote ,arg))
+	       (cperl-make-face ,arg ,descr))
+	   (or (boundp (quote ,arg))	; We use unquoted variants too
+	       (defconst ,arg (quote ,arg) ,descr))))
       (if cperl-xemacs-p
 	  (defmacro cperl-etags-snarf-tag (file line)
-	    (` (progn
-		 (beginning-of-line 2)
-		 (list (, file) (, line)))))
+	    `(progn
+	       (beginning-of-line 2)
+	       (list ,file ,line)))
 	(defmacro cperl-etags-snarf-tag (file line)
-	  (` (etags-snarf-tag))))
+	  `(etags-snarf-tag)))
       (if cperl-xemacs-p
 	  (defmacro cperl-etags-goto-tag-location (elt)
-	    (` ;;(progn
-		 ;; (switch-to-buffer (get-file-buffer (elt (, elt) 0)))
-		 ;; (set-buffer (get-file-buffer (elt (, elt) 0)))
-		 ;; Probably will not work due to some save-excursion???
-		 ;; Or save-file-position?
-		 ;; (message "Did I get to line %s?" (elt (, elt) 1))
-		 (goto-line (string-to-int (elt (, elt) 1)))))
-	    ;;)
+	    ;;(progn
+	    ;; (switch-to-buffer (get-file-buffer (elt (, elt) 0)))
+	    ;; (set-buffer (get-file-buffer (elt (, elt) 0)))
+	    ;; Probably will not work due to some save-excursion???
+	    ;; Or save-file-position?
+	    ;; (message "Did I get to line %s?" (elt (, elt) 1))
+	    `(goto-line (string-to-int (elt ,elt 1))))
+	;;)
 	(defmacro cperl-etags-goto-tag-location (elt)
-	  (` (etags-goto-tag-location (, elt)))))))
+	  `(etags-goto-tag-location ,elt)))))
 
 (defun cperl-choose-color (&rest list)
   (let (answer)
@@ -518,41 +518,41 @@
 	(cperl-choose-color "orchid1" "orange"))
 
       (defface cperl-nonoverridable-face
-	(` ((((class grayscale) (background light))
-	     (:background "Gray90" :italic t :underline t))
-	    (((class grayscale) (background dark))
-	     (:foreground "Gray80" :italic t :underline t :bold t))
-	    (((class color) (background light)) 
-	     (:foreground "chartreuse3"))
-	    (((class color) (background dark)) 
-	     (:foreground (, cperl-dark-foreground)))
-	    (t (:bold t :underline t))))
+	`((((class grayscale) (background light))
+	   (:background "Gray90" :italic t :underline t))
+	  (((class grayscale) (background dark))
+	   (:foreground "Gray80" :italic t :underline t :bold t))
+	  (((class color) (background light)) 
+	   (:foreground "chartreuse3"))
+	  (((class color) (background dark)) 
+	   (:foreground ,cperl-dark-foreground))
+	  (t (:bold t :underline t)))
 	"Font Lock mode face used to highlight array names."
 	:group 'cperl-faces)
 
       (defface cperl-array-face
-	(` ((((class grayscale) (background light))
-	     (:background "Gray90" :bold t))
-	    (((class grayscale) (background dark))
-	     (:foreground "Gray80" :bold t))
-	    (((class color) (background light)) 
-	     (:foreground "Blue" :background "lightyellow2" :bold t))
-	    (((class color) (background dark)) 
-	     (:foreground "yellow" :background (, cperl-dark-background) :bold t))
-	    (t (:bold t))))
+	`((((class grayscale) (background light))
+	   (:background "Gray90" :bold t))
+	  (((class grayscale) (background dark))
+	   (:foreground "Gray80" :bold t))
+	  (((class color) (background light)) 
+	   (:foreground "Blue" :background "lightyellow2" :bold t))
+	  (((class color) (background dark)) 
+	   (:foreground "yellow" :background ,cperl-dark-background :bold t))
+	  (t (:bold t)))
 	"Font Lock mode face used to highlight array names."
 	:group 'cperl-faces)
 
       (defface cperl-hash-face
-	(` ((((class grayscale) (background light))
-	     (:background "Gray90" :bold t :italic t))
-	    (((class grayscale) (background dark))
-	     (:foreground "Gray80" :bold t :italic t))
-	    (((class color) (background light)) 
-	     (:foreground "Red" :background "lightyellow2" :bold t :italic t))
-	    (((class color) (background dark)) 
-	     (:foreground "Red" :background (, cperl-dark-background) :bold t :italic t))
-	    (t (:bold t :italic t))))
+	`((((class grayscale) (background light))
+	   (:background "Gray90" :bold t :italic t))
+	  (((class grayscale) (background dark))
+	   (:foreground "Gray80" :bold t :italic t))
+	  (((class color) (background light)) 
+	   (:foreground "Red" :background "lightyellow2" :bold t :italic t))
+	  (((class color) (background dark)) 
+	   (:foreground "Red" :background ,cperl-dark-background :bold t :italic t))
+	  (t (:bold t :italic t)))
 	"Font Lock mode face used to highlight hash names."
 	:group 'cperl-faces)))
 
@@ -883,11 +883,11 @@
 (defconst cperl-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))
 
 (defmacro cperl-define-key (emacs-key definition &optional xemacs-key)
-  (` (define-key cperl-mode-map
-       (, (if xemacs-key
-	      (` (if cperl-xemacs-p (, xemacs-key) (, emacs-key)))
-	    emacs-key))
-       (, definition))))
+  `(define-key cperl-mode-map
+     ,(if xemacs-key
+	  `(if cperl-xemacs-p ,xemacs-key ,emacs-key)
+	emacs-key)
+     ,definition))
 
 (defvar cperl-del-back-ch
   (car (append (where-is-internal 'delete-backward-char)
@@ -986,9 +986,9 @@
 	(error nil))
       (if (fboundp 'ps-extend-face-list)
 	  (defmacro cperl-ps-extend-face-list (arg)
-	    (` (ps-extend-face-list (, arg))))
+	    `(ps-extend-face-list ,arg))
 	(defmacro cperl-ps-extend-face-list (arg)
-	  (` (error "This version of Emacs has no `ps-extend-face-list'."))))
+	  `(error "This version of Emacs has no `ps-extend-face-list'.")))
       ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
       ;; macros instead of defsubsts don't work on Emacs, so we do the
       ;; expansion manually.  Any other suggestions?