Mercurial > emacs

changeset 210:01cbfdd59f82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 06 Mar 1991 21:14:11 +0000
parents f501afd0a375
children d7da9e79438f
files lisp/progmodes/hideif.el lisp/progmodes/icon.el
diffstat 2 files changed, 64 insertions(+), 99 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/hideif.el	Wed Mar 06 18:33:25 1991 +0000
+++ b/lisp/progmodes/hideif.el	Wed Mar 06 21:14:11 1991 +0000
@@ -120,14 +120,14 @@
 
 
 (defvar hide-ifdef-mode-map nil
-  "Keymap used with hide-ifdef mode")
+  "Keymap used with Hide-Ifdef mode")
 
 (defconst hide-ifdef-mode-prefix-key "\C-c"
-  "Prefix key for all hide-ifdef-mode commands.")
+  "Prefix key for all Hide-Ifdef mode commands.")
 
 (defvar hide-ifdef-mode-map-before nil
   "Buffer-local variable to store a copy of the local keymap
-	before hide-ifdef-mode modifies it.")
+before `hide-ifdef-mode' modifies it.")
 
 (defun define-hide-ifdef-mode-map ()
   (if hide-ifdef-mode-map
@@ -161,7 +161,6 @@
   "Update mode-line by setting buffer-modified to itself."
   (set-buffer-modified-p (buffer-modified-p)))
 
-
 (defvar hide-ifdef-mode nil
   "non-nil when hide-ifdef-mode is activated.")
 
@@ -178,35 +177,35 @@
           (cons '(hide-ifdef-mode " Ifdef")
                 minor-mode-alist)))
 
-
 (defun hide-ifdef-mode (arg)
-  "Toggle hide-ifdef-mode.  Thus this is a minor mode, albeit a large one.
-With arg, turn hide-ifdef-mode on iff arg is positive.
-In hide-ifdef-mode, code within #ifdef constructs that the C preprocessor
+  "Toggle Hide-Ifdef mode.  This is a minor mode, albeit a large one.
+With ARG, turn Hide-Ifdef mode on iff arg is positive.
+In Hide-Ifdef mode, code within #ifdef constructs that the C preprocessor
 would eliminate may be hidden from view.  Several variables affect
 how the hiding is done:
 
 hide-ifdef-env
 	An association list of defined and undefined symbols for the
-	current buffer.  Initially, the global value of hide-ifdef-env is used.
+	current buffer.  Initially, the global value of `hide-ifdef-env'
+	is used.
 
 hide-ifdef-define-alist
 	An association list of defined symbol lists.  
-        Use hide-ifdef-set-define-alist to save the current hide-ifdef-env
-        and hide-ifdef-use-define-alist to set the current hide-ifdef-env
-        from one of the lists in hide-ifdef-define-alist.
+        Use `hide-ifdef-set-define-alist' to save the current `hide-ifdef-env'
+        and `hide-ifdef-use-define-alist' to set the current `hide-ifdef-env'
+        from one of the lists in `hide-ifdef-define-alist'.
 
 hide-ifdef-lines
 	Set to non-nil to not show #if, #ifdef, #ifndef, #else, and
 	#endif lines when hiding.
 
 hide-ifdef-initially
-	Indicates whether hide-ifdefs should be called when hide-ifdef-mode
+	Indicates whether `hide-ifdefs' should be called when Hide-Ifdef mode
 	is activated.
 
 hide-ifdef-read-only
 	Set to non-nil if you want to make buffers read only while hiding.
-	After show-ifdefs, read-only status is restored to previous value.
+	After `show-ifdefs', read-only status is restored to previous value.
 
 \\{hide-ifdef-mode-map}"
 
@@ -411,15 +410,13 @@
   (prog1
       (hif-expr)
     (if token ; is there still a token?
-	(error "Error: unexpected token: %s" token)))
-  )
+	(error "Error: unexpected token: %s" token))))
 
 (defun hif-nexttoken ()
   "Pop the next token from token-list into the let variable \"token\"."
   (setq token (car token-list))
   (setq token-list (cdr token-list))
-  token
-  )
+  token)
 
 (defun hif-expr ()
   "Parse and expression of the form
@@ -428,8 +425,7 @@
     (while (eq  token 'or)
       (hif-nexttoken)
       (setq result (list 'or result (hif-term))))
-  result
-  ))
+  result))
 
 (defun hif-term ()
   "Parse a term of the form
@@ -438,8 +434,7 @@
     (while (eq token 'and)
       (hif-nexttoken)
       (setq result (list 'and result (hif-factor))))
-    result
-    ))
+    result))
 
 (defun hif-factor ()
   "Parse a factor of the form
@@ -479,7 +474,6 @@
 	(hif-nexttoken)
 	(` (hif-lookup (quote (, ident))))
 	))
-
     ))
 
 ;;;----------- end of parser -----------------------
@@ -517,8 +511,7 @@
   (end-of-line)
   ; avoid infinite recursion by only going to beginning of line if match found
   (if (re-search-forward hif-ifx-else-endif-regexp (point-max) t)
-      (beginning-of-line))
-  )
+      (beginning-of-line)))
 
 (defun hif-find-previous-relevant ()
   "Position at beginning of previous #ifdef, #ifndef, #else, #endif,
@@ -527,9 +520,7 @@
   (beginning-of-line)
   ; avoid infinite recursion by only going to beginning of line if match found
   (if (re-search-backward hif-ifx-else-endif-regexp (point-min) t)
-     (beginning-of-line)
-    )
-  )
+     (beginning-of-line)))
 
 
 (defun hif-looking-at-ifX ()		;; Should eventually see #if
@@ -553,8 +544,7 @@
 	((hif-looking-at-endif)
 	 'done)
 	(t
-	 (error "Missmatched #ifdef #endif pair"))
-	))
+	 (error "Missmatched #ifdef #endif pair"))))
 
 
 (defun hif-endif-to-ifdef ()
@@ -571,13 +561,12 @@
 	 (hif-endif-to-ifdef))
 	((hif-looking-at-ifX)
 	 'done)
-	(t ; never gets here
-	 )))
+	(t ; never gets here)))
 
 
 (defun forward-ifdef (&optional arg)
   "Move point to beginning of line of the next ifdef-endif.
-       With argument, do this that many times."
+With argument, do this that many times."
   (interactive "p")
   (or arg (setq arg 1))
   (if (< arg 0)
@@ -596,7 +585,7 @@
 
 (defun backward-ifdef (&optional arg)
   "Move point to beginning of the previous ifdef-endif.
-       With argument, do this that many times."
+With argument, do this that many times."
   (interactive "p")
   (or arg (setq arg 1))
   (if (< arg 0)
@@ -610,9 +599,7 @@
       (if (hif-looking-at-endif)
 	  (hif-endif-to-ifdef)
 	(goto-char start)
-	(error "No previous #ifdef")
-	))))
-
+	(error "No previous #ifdef")))))
 
 
 (defun down-ifdef ()
@@ -623,8 +610,7 @@
       (if (or (hif-looking-at-ifX) (hif-looking-at-else))
 	  ()
 	(goto-char start)
-	(error "No following #ifdef")
-	)))
+	(error "No following #ifdef"))))
 
 
 (defun up-ifdef ()
@@ -637,12 +623,11 @@
     (if (hif-looking-at-endif)
 	(hif-endif-to-ifdef))
       (if (= start (point))
-	  (error "No previous #ifdef")
-	)))
+	  (error "No previous #ifdef"))))
 
 (defun next-ifdef (&optional arg)
   "Move to the beginning of the next #ifX, #else, or #endif.
-       With argument, do this that many times."
+With argument, do this that many times."
   (interactive "p")
   (or arg (setq arg 1))
   (if (< arg 0)
@@ -653,12 +638,11 @@
     (if (eolp)
 	(progn
 	  (beginning-of-line)
-	  (error "No following #ifdefs, #elses, or #endifs")
-	  ))))
+	  (error "No following #ifdefs, #elses, or #endifs")))))
 
 (defun previous-ifdef (&optional arg)
   "Move to the beginning of the previous #ifX, #else, or #endif.
-       With argument, do this that many times."
+With argument, do this that many times."
   (interactive "p")
   (or arg (setq arg 1))
   (if (< arg 0)
@@ -743,8 +727,7 @@
 ;;; one, we'd throw off all the counts.  Feh.
 
 (defun hif-hide-line (point)
-  "Hide the line containing point.  Does nothing if
-hide-ifdef-lines is nil."
+  "Hide the line containing point.  Does nothing if `hide-ifdef-lines' is nil."
   (if hide-ifdef-lines
       (save-excursion
 	(goto-char point)
@@ -783,8 +766,7 @@
 ;;;  possibly-hidden range.
 
 (defun hif-recurse-on (start end)
-  "Call hide-ifdef-guts after narrowing to end of START line and END
-line."
+  "Call `hide-ifdef-guts' after narrowing to end of START line and END line."
   (save-excursion
     (save-restriction
       (goto-char start)
@@ -794,7 +776,7 @@
 
 (defun hif-possibly-hide ()
   "Called at #ifX expression, this hides those parts that should be
-hidden, according to judgement of hide-ifdef-evaluator."
+hidden, according to judgement of `hide-ifdef-evaluator'."
 ;  (message "hif-possibly-hide") (sit-for 1)
     (let ((test (hif-canonicalize))
 	  (range (hif-find-range)))
@@ -829,7 +811,7 @@
 
 
 (defun hide-ifdef-guts ()
-  "Does the work of hide-ifdefs, except for the work that's pointless
+  "Does the work of `hide-ifdefs', except for the work that's pointless
 to redo on a recursive entry."
 ;  (message "hide-ifdef-guts")
   (save-excursion
@@ -843,8 +825,8 @@
 ;===%%SF%% exports (Start)  ===
 
 (defvar hide-ifdef-initially nil
-  "*Non-nil if hide-ifdefs should be called when hide-ifdef-mode
-	is first activated.")
+  "*Non-nil if `hide-ifdefs' should be called when Hide-Ifdef mode
+is first activated.")
 
 (defvar hide-ifdef-hiding nil
   "Non-nil if text might be hidden.")
@@ -853,7 +835,7 @@
   "*Set to non-nil if you want buffer to be read-only while hiding text.")
 
 (defvar hif-outside-read-only nil
-  "Internal variable.  Saves the value of buffer-read-only while hiding.")
+  "Internal variable.  Saves the value of `buffer-read-only' while hiding.")
 
 (defvar hide-ifdef-lines nil
   "*Set to t if you don't want to see the #ifX, #else, and #endif lines.")
@@ -866,11 +848,10 @@
 	   (if hide-ifdef-read-only "ON" "OFF"))
   (if hide-ifdef-hiding
       (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only)))
-  (hif-update-mode-line)
-  )
+  (hif-update-mode-line))
 
 (defun hide-ifdef-toggle-outside-read-only ()
-  "Replacement for toggle-read-only within hide-ifdef-mode."
+  "Replacement for `toggle-read-only' within Hide-Ifdef mode."
   (interactive)
   (setq hif-outside-read-only (not hif-outside-read-only))
   (message "Read only %s"
@@ -879,8 +860,7 @@
 	(or (and hide-ifdef-hiding hide-ifdef-read-only)
 	    hif-outside-read-only)
 	)
-  (hif-update-mode-line)
-  )
+  (hif-update-mode-line))
 
       
 (defun hide-ifdef-define (var)
@@ -898,7 +878,7 @@
 
 (defun hide-ifdefs ()
   "Hide the contents of some #ifdefs.  Assume that defined symbols have
-been added to hide-ifdef-env.  The text hidden is the text that would not
+been added to `hide-ifdef-env'.  The text hidden is the text that would not
 be included by the C preprocessor if it were given the file with those
 symbols defined.
 
@@ -915,10 +895,8 @@
   (setq hide-ifdef-hiding t)
   (hide-ifdef-guts)
   (if (or hide-ifdef-read-only hif-outside-read-only)
-      (toggle-read-only) ; make it read only
-    )
-  (message "Hiding done")
-  )
+      (toggle-read-only)) ; make it read only
+  (message "Hiding done"))
 
 
 (defun show-ifdefs ()
@@ -929,8 +907,7 @@
   (hif-show-all)
   (if hif-outside-read-only
       (toggle-read-only)) ; make it read only
-  (setq hide-ifdef-hiding nil)
-  )
+  (setq hide-ifdef-hiding nil))
 
 
 (defun hif-find-ifdef-block ()
@@ -942,18 +919,15 @@
 	(up-ifdef))
     (setq top (point))
     (hif-ifdef-to-endif)
-    (setq max-bottom (1- (point)))
-    )
+    (setq max-bottom (1- (point))))
   (save-excursion
     (beginning-of-line)
     (if (not (hif-looking-at-endif))
 	(hif-find-next-relevant))
     (while (hif-looking-at-ifX)
       (hif-ifdef-to-endif)
-      (hif-find-next-relevant)
-      )
-    (setq bottom (min max-bottom (1- (point))))
-    ))
+      (hif-find-next-relevant))
+    (setq bottom (min max-bottom (1- (point))))))
   )
 
 
@@ -971,11 +945,9 @@
 	(progn
 	  (hif-hide-line top)
 	  (hif-hide-line (1+ bottom))))
-    (setq hide-ifdef-hiding t)
-    )
+    (setq hide-ifdef-hiding t))
   (if (or hide-ifdef-read-only hif-outside-read-only)
-      (toggle-read-only))
-  )
+      (toggle-read-only)))
 
 
 (defun show-ifdef-block ()
@@ -994,9 +966,7 @@
       )
 
     ; restore read only status since we dont know if all is shown.
-    (if old-read-only (toggle-read-only))
-    ))
-
+    (if old-read-only (toggle-read-only))))
 
 
 ;;;  defininition alist support
@@ -1014,16 +984,14 @@
       (if (car defs)
 	  (setq new-defs (cons (car defs) new-defs)))
       (setq defs (cdr defs)))
-    new-defs
-    ))
+    new-defs))
 
 (defun hide-ifdef-set-define-alist (name)
   "Set the association for NAME to hide-ifdef-env."
   (interactive "SSet define list: ")
   (setq hide-ifdef-define-alist
 	(cons (cons name (hif-compress-define-list hide-ifdef-env))
-	      hide-ifdef-define-alist))
-  )
+	      hide-ifdef-define-alist)))
 
 (defun hide-ifdef-use-define-alist (name)
   "Set hide-ifdef-env to the define list specified by NAME."
@@ -1034,8 +1002,6 @@
 	      (mapcar '(lambda (arg) (cons arg t))
 		      (cdr define-list)))
       (error "No define list for %s" name))
-    (if hide-ifdef-hiding (hide-ifdefs))
-    )
-  )
+    (if hide-ifdef-hiding (hide-ifdefs))))
 
 ;===%%SF%% exports (End)  ===
--- a/lisp/progmodes/icon.el	Wed Mar 06 18:33:25 1991 +0000
+++ b/lisp/progmodes/icon.el	Wed Mar 06 21:14:11 1991 +0000
@@ -107,15 +107,15 @@
     then-clause of an if or body of a while.
  icon-continued-brace-offset
     Extra indentation given to a brace that starts a substatement.
-    This is in addition to icon-continued-statement-offset.
+    This is in addition to `icon-continued-statement-offset'.
  icon-brace-offset
     Extra indentation for line if it starts with an open brace.
  icon-brace-imaginary-offset
     An open brace following other text is treated as if it were
     this far to the right of the start of its line.
 
-Turning on Icon mode calls the value of the variable icon-mode-hook with no args,
-if that value is non-nil."
+Turning on Icon mode calls the value of the variable `icon-mode-hook'
+with no args, if that value is non-nil."
   (interactive)
   (kill-all-local-variables)
   (use-local-map icon-mode-map)
@@ -143,9 +143,8 @@
   (setq comment-indent-hook 'icon-comment-indent)
   (run-hooks 'icon-mode-hook))
 
-;; This is used by indent-for-comment
-;; to decide how much to indent a comment in Icon code
-;; based on its context.
+;; This is used by indent-for-comment to decide how much to
+;; indent a comment in Icon code based on its context.
 (defun icon-comment-indent ()
   (if (looking-at "^#")
       0	
@@ -187,14 +186,14 @@
 (defun icon-indent-command (&optional whole-exp)
   (interactive "P")
   "Indent current line as Icon code, or in some cases insert a tab character.
-If icon-tab-always-indent is non-nil (the default), always indent current line.
-Otherwise, indent the current line only if point is at the left margin
+If `icon-tab-always-indent' is non-nil (the default), always indent current
+line.  Otherwise, indent the current line only if point is at the left margin
 or in the line's indentation; otherwise insert a tab.
 
-A numeric argument, regardless of its value,
-means indent rigidly all the lines of the expression starting after point
-so that this line becomes properly indented.
-The relative indentation among the lines of the expression are preserved."
+A numeric argument, regardless of its value, means indent rigidly all the
+lines of the expression starting after point so that this line becomes
+properly indented.  The relative indentation among the lines of the
+expression are preserved."
   (if whole-exp
       ;; If arg, always indent this line as Icon
       ;; and shift remaining lines of expression the same amount.
@@ -402,7 +401,7 @@
     (icon-is-continuation-line)))
 
 (defun icon-backward-to-start-of-if (&optional limit)
-  "Move to the start of the last ``unbalanced'' if."
+  "Move to the start of the last \"unbalanced\" if."
   (or limit (setq limit (save-excursion (beginning-of-icon-defun) (point))))
   (let ((if-level 1)
 	(case-fold-search nil))